DIRECTORY Imager, IO, Rope; Dunn: CEDAR DEFINITIONS ~ BEGIN Handle: TYPE = REF HandleRep; HandleRep: TYPE = RECORD [ stream: IO.STREAM _ NIL, enable: BOOL _ FALSE, debug: IO.STREAM _ NIL ]; Reserve: PROC RETURNS [handle: Handle _ NIL, errorMsg: Rope.ROPE _ NIL]; Pretend: PROC RETURNS [handle: Handle]; Open: PROC [host: Rope.ROPE _ NIL] RETURNS [handle: Handle]; OpenFailed: ERROR; InUse: ERROR [user: Rope.ROPE]; HandleOK: PROC [handle: Handle] RETURNS [BOOL]; HandleDisabled: PROC [handle: Handle] RETURNS [BOOL]; Close: PROC [handle: Handle]; Status: PROC [handle: Handle] RETURNS [open, sync, film, io: BOOL _ TRUE]; Ready: PROC [handle: Handle] RETURNS [BOOL]; Cmd: PROC [handle: Handle, cmd: Dunn.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]; DebugOff: PROC [handle: Handle]; DebugOn: PROC [handle: Handle, stream: IO.STREAM]; Enable: PROC [handle: Handle]; Disable: PROC [handle: Handle]; Snapper: PROC [action: PROC[Imager.Context], pixelUnits: BOOL _ FALSE, color: BOOL _ TRUE, smooth: BOOL _ TRUE]; SnapperError: ERROR [msg: Rope.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) }; END. δDunn.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Bloomenthal, October 21, 1985 11:48:11 pm PDT This is the simplest way to obtain a Dunn handle. If the reservation is successful, the handle will be nonNIL and the errorMsg will be NIL; otherwise, the handle will be NIL and the errorMsg will contain an explanation. Returns a disabled Dunn handle without opening the Dunn. Subsequent Dunn calls will be ignored. A useful debugging aid. Open the Dunn. If no argument supplied, the host will be defaulted. Open can raise the following two errors: Return TRUE iff handle has an io stream. Return TRUE iff handle is not enabled. Reset and close the Dunn. Status returns four conditions; if either one is FALSE the Dunn is non-functional. Return TRUE iff Dunn is ready for operation. Cmd transmits a Dunn.cmdCode to the Dunn; TRUE is returned iff the Dunn successfully performs the operation. Expose film either as an RGB composite or not, depending on the exposure mode. Expose film either as color or black-and-white, depending on the film type. The exposure mode may be set by Composite or Separate (the reset default). The film type may be set by BW or Color (the reset default). Returns TRUE iff command successful. Set exposure mode to be RGB composite. If film type is color, each command to expose results in sequential red, green, and blue exposures before the film is advanced. Returns TRUE iff command successful. Set exposure mode to be separate. If film type is color, each command to expose results in sequential red, green, and blue exposures to a single film frame. Returns TRUE iff command successful. Set film type to color. Each command to expose results in sequential red, green, and blue filtered exposures with corresponding video. Returns TRUE iff command successful. Set film type to black and white. Each command to expose results in a single exposure with a transparent filter and the green video channel. Returns TRUE iff command successful. Resets Dunn functions; the filter wheel is reset. The film type is set to color and the exposure mode is set to composite. Returns TRUE iff command successful. Turn off debugging (the default). Turn on debugging with output going to stream. Enable Dunn operations for given given handle. Disable Dunn operations for given given handle. Will perform the given action and then expose the resulting image. Snapper can raise the following error: from RS232 Interface Specs for Dunn Models 631 and 632 Color Camera Systems Κβ– "cedar" style˜™ Icodešœ Οmœ1™™B—J™š œžœžœžœ˜-KšœN™NK™KKšœJ™JKšœ<™J™