<<>> <> <> <> <<>> DIRECTORY CtBasic, Imager; <<>> CtFill: CEDAR DEFINITIONS ~ BEGIN <> VEC: TYPE ~ Imager.VEC; SampleMaps: TYPE ~ CtBasic.SampleMaps; <> Fill: PROC [maps: SampleMaps, seed: VEC, r, g, b: CARDINAL]; <<4-connected fill of the sample map with pixel value, from given seed point.>> <> END.