(colormap-and colormap1 colormap2)
This procedure creates a new colormap by computing the minimum for each color channel of both pixels at the same position. The two suppied colormaps need to have the same dimensions, otherwise an error is signalled.
The resulting colormap is returned.
> (define image (colormap-readjpg "horses.jpg"))
image
> (define image2 (colormap-copy image))
image2
> (colormap-hmirror! image2)
#<colormap orow:-1 ocol:-1 xres:-1 yres:-1 w:2400 h:1600>
> (define image3 (colormap-and image image2))
image3
> (colormap-writejpg image3 "horses-fuzzyand.jpg")
ok
>
The input image displays as follows (horses.jpg, JPG, 2400x1600):
The resulting image looks like this: