(graymap-or graymap1 graymap2)
This procedure creates a new 16 bit graymap which receives the maximum 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-or g0 g1))
h
> (graymap-equalize! h)
#<graymap(16) orow:-1 ocol:-1 xres:-1 yres:-1 w:1000 h:999>
> (graymap-writepng h "graymap-fuzzyor.png")
ok
>
The resulting image looks like this: