<> <> <> DIRECTORY Imager, IO, Rope; <<>> Dunn: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE ~ Rope.ROPE; STREAM: TYPE ~ IO.STREAM; Context: TYPE ~ Imager.Context; Handle: TYPE = REF HandleRec; HandleRec: TYPE = RECORD [ stream: STREAM _ NIL, simulate: BOOL _ FALSE ]; SnapperError: ERROR [msg: ROPE]; cmdCode: TYPE = MACHINE DEPENDENT { <> <<>> videoInvertHigh (2EH), videoInvertLow (2FH), readyTest (3AH), statusRequest (3BH), expose8x5TimeReq (3CH), exposeAuxTimeReq (3DH), exposeAdjFactorReq (3EH), advAuxFrameCnt (3FH), reset8x10ExposeStat (40H), restoreFilterWheel (41H), recovDefaultVals (42H), select8x10Mode (43H), selectAuxMode (44H), selectBW (45H), selectColor (46H), selectNrmSeqMode (47H), selectSepSeqMode (48H), exposeSeq (49H), selectVidAndExpose (4AH), set8x10ExposeTimes (4BH), setAuxExposeTimes (4CH), setExposeAdjFactors (4DH), openAuxShutter (4EH), closeAuxShutter (4FH), unblankMonitor (50H), blankMonitor (51H), selectVideoChannel (52H), positionFilterWheel (53H), immExposeNoVidSw (54H), yAxisRasterCompOn (55H), yAxisRasterCompOff (56H), clearYAxisOffset (57H), stepYAxisOffset (58H), clearXAxisOffset (59H), stepXAxisOffset (5AH), select35mmAuxCam (5BH), select16mmAuxCam (5CH), select4x5AuxCam (5DH), selectSX70AuxCam (5EH), setNumPadChars (5FH), resetAuxNoFilmStats (60H), fastOn (61H), fastOff (62H) }; DunnError: ERROR [explanation: ROPE]; Simulate: PROC RETURNS [handle: Handle]; <> <> Open: PROC [host, display: ROPE _ NIL] RETURNS [handle: Handle]; <> <> Close: PROC [handle: Handle]; <> Cmd: PROC [handle: Handle, cmd: cmdCode] RETURNS [BOOL]; <> <> <<>> Expose: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> <> <> Composite: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> <> <<>> Separate: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> <> <<>> Color: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> BW: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> Reset: PROC [handle: Handle] RETURNS [BOOL]; <> <> <> Snapper: PROC [action: PROC[Context], pixelUnits: BOOL _ FALSE, color: BOOL _ TRUE, smooth: BOOL _ TRUE]; <> <> <<>> END. .. Reserve: PROC RETURNS [Handle: Handle]; <> DunnSimulated: PROC [handle: Handle] RETURNS [BOOL]; <> <<>> Status: PROC [handle: Handle] RETURNS [DunnStatus]; <> <<>> Ready: PROC [handle: Handle] RETURNS [BOOL]; <> SimulateOn: PROC [handle: Handle]; <> <<>> SimulateOff: PROC [handle: Handle]; <> <<>> DunnStatus: TYPE ~ RECORD [open, sync, film, io: BOOL _ TRUE]; <<>>