<> <> <> DIRECTORY ColorTrixBasics, Commander, Controls, Contours, Draw2d, ImagerPixelMap, IO, Real; ContoursTestImpl: CEDAR PROGRAM IMPORTS ~ BEGIN OPEN Contours; <> PixelMap: TYPE ~ ImagerPixelMap.PixelMap; Spot: TYPE ~ RECORD [x, y: INTEGER]; SpotSequence: TYPE ~ REF SpotSequenceRec; SpotSequenceRec: TYPE ~ RECORD [ length: NAT _ 0, elememnt: SEQUENCE maxLength: NAT OF Spot ]; <> ProgramData: TYPE ~ REF ProgramDataRec; ProgramDataRec: TYPE ~ RECORD [ outer: Viewer _ NIL, -- the outer (parent, top level) viewer contour: Control _ NIL, -- the contour control color: CARDINAL _ 200, cd: Context _ NIL, out: STREAM _ NIL ]; <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <<};>> <<>> <> END. .. <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <> <> <> <> <> <<};>> <<};>> <<>> <> <> <> <> <> <> <> <> <> <> <<};>> <<};>> <<>>