Playing with JPEG

We can get one in by doing something like this...

First read it in.

Directory[]

tim = Import["tim.jpeg"];
numbers = tim[[1, 1]];
red  =  numbers[[All, All, 1]];
green  =  numbers[[All, All, 2]];
blue  =  numbers[[All, All, 3]];

ListDensityPlot[red]

oneBlock = red[[Range[1, 8], Range[1, 8]]]

oneBlock // MatrixForm

oneBlock // ListDensityPlot