\ ************** Code defining various colormaps for use in ***************** \ Image Processing 8 constant cthresh \ 8 is a good threshold for Roberts Edge Detector using fmap \ 45 is an ok threshold for Sobel Edge Operatior using fmap : scale-c 255 * cthresh / ; : fmap image cthresh < if image scale-c >blue exit else bright >blue then image cthresh 2* < if image cthresh - scale-c >red exit else bright >red then image cthresh 2* - scale-c >green ; : Brighter-image cthresh 2- 1 max is cthresh colormap fmap ; press + "Adjust threshold to increase brightness" : Darker-image cthresh 2+ 43 min is cthresh colormap fmap ; press - "Adjust threshold to decrease brightness" : emap \ Edge is in bit 8; image is in lower 7 bits; red on gray scale overflow0 if bright >red else image 2 * dup >red dup >blue >green then ; : e2map \ Edge is in bit 8; image is in lower 7 bits; white on blue overflow0 if bright dup >red dup >green >blue else image 2 * >blue then ; : cmap \ Standard 7 bit gray scale image 2 * dup >red dup >green >blue ; : binary-map 0 >color center 255 * >red 1 center - 100 * >blue ; : std-map 0 >color centers 1 = if bright >green then centers 2 = if bright >blue then centers 3 = if bright >red then ;