(graymap-and graymap1 graymap2)
This procedure creates a new 16 bit graymap which receives the minimum gray value for each pixel position. The two suppied graymaps need to have the same dimensions, otherwise an error is signalled.
The resulting graymap is returned.
> (define g0 (mandelbrot 0.2709223 0.2709225 0.0047223 0.0047225 2000 1000))
g0
> (define g1 (graymap-copy g0))
g1
> (graymap-hmirror! g1)
#<graymap(16) orow:-1 ocol:-1 xres:-1 yres:-1 w:1000 h:999>
> (define h (graymap-and g0 g1))
h
> (graymap-equalize! h)
#<graymap(16) orow:-1 ocol:-1 xres:-1 yres:-1 w:1000 h:999>
> (graymap-writepng h "graymap-fuzzyand.png")
ok
>
The resulting image looks like this: