(graymap-equal? graymap1 graymap2)
Returns #t if both 16 bit graymaps are equal (same dimensions and pixel content), otherwise #f is returned.
> (define gm (graymap-create 640 480))
gm
> (define gm2 (graymap-copy gm))
gm2
> (graymap-equal? gm gm2)
#t
> (graymap-invert! gm2)
#<graymap(16) orow:-1 ocol:-1 xres:-1 yres:-1 w:640 h:480>
> (graymap-equal? gm gm2)
#f
> (graymap-invert! gm2)
#<graymap(16) orow:-1 ocol:-1 xres:-1 yres:-1 w:640 h:480>
> (graymap-equal? gm gm2)
#t
>