data(pirate);
#perform histogram equalization
img = histeq(img);
#convert to grayscale
img = rowSums(img, dims=2)/3;
#rotate image 270 degrees so it appears upright
img = rotate270(img);
#set colors
levels = seq(0,1,.0000001);
g = gray(levels);
image(img,col=g)
Run the code above in your browser using DataLab