DIRECTORY Space USING [Handle], ImagerMasks USING [Mask], ImagerBasic USING [IntRectangle, IntPair, Transformation, CIEColor, Color], Imager USING [Context]; ImagerDisplay: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerBasic; Direction: TYPE ~ {none, left, right, up, down, upLeft, downLeft, upRight, downRight}; ByteSequence: TYPE ~ REF ByteSequenceRep; ByteSequenceRep: TYPE ~ RECORD [PACKED SEQUENCE COMPUTED CARDINAL OF [0..256)]; Vertex: TYPE ~ RECORD [ x, y: CARDINAL, pxlValue: LONG CARDINAL]; VtxSequence: TYPE ~ REF VtxSequenceRep; VtxSequenceRep: TYPE ~ RECORD [SEQUENCE length: CARDINAL OF Vertex]; Mask: TYPE ~ ImagerMasks.Mask; ImagingSpace: TYPE ~ { client, viewer, device }; Transformation: TYPE ~ ImagerBasic.Transformation; Context: TYPE ~ Imager.Context; ContextData: TYPE ~ REF ContextDataRep; -- Holds the imager state ContextDataRep: TYPE ~ RECORD [ currentColor: ImagerBasic.Color, currentPxlValue: LONG CARDINAL, currentPosition: ImagerBasic.IntPair, -- CP kept in device space -- ********* Transformations ************ clientTransform: ImagerBasic.Transformation, viewerTransform: ImagerBasic.Transformation, deviceTransform: ImagerBasic.Transformation, transform: ImagerBasic.Transformation, -- ***************** Clipping *********** clientClipper: Mask, -- clippers kept in device space viewerClipper: Mask, deviceClipper: Mask, clipper: Mask, -- composite clipper noClip: BOOLEAN _ FALSE, deviceProcs: REF ImagerDisplay.DisplayClassRep, -- Device-dependent procedures wordsPerLine: CARDINAL, pxlBase: LONG POINTER, -- Access to image bits storage: Space.Handle, -- Handle for allocated storage for image bits data: REF ANY -- Interpretation of this depends on the procs ]; NewDisplay: PROC [context: Context, deviceType: ATOM]; RegisterDisplayDevice: PUBLIC PROC [class: REF DisplayClassRep]; SetViewerTransform: PROC [context: Context, transform: Transformation]; ConcatToViewerTransform: PROC [context: Context, transform: Transformation]; SetDeviceTransform: PROC [context: Context, transform: Transformation]; SetViewerClipper: PROC [context: Context, outline: IntRectangle]; ClipViewerClipper: PROC [context: Context, outline: IntRectangle]; SetDeviceClipper: PROC [context: Context, outline: IntRectangle]; HighlightIntRectangle: PROC[context: Context, area: IntRectangle]; MoveIntRectangle: PROC [context: Context, source: IntRectangle, destination: IntPair]; SetStipplePattern: PROC[context: Context, bitsWide, bitsHigh: NAT, bits: REF ANY]; NegateXOR: PROC[context: Context]; -- set XORing to opposite state DisplayClassRep: TYPE ~ RECORD[ deviceType: ATOM, SetUp: PROC [displayContext: ContextData, pin: BOOLEAN _ TRUE, box: Mask], ShutDown: PROC [displayContext: ContextData], ColortoPixel: PROC [color: CIEColor] RETURNS [LONG CARDINAL], PixeltoColor: PROC [pxlValue: LONG CARDINAL] RETURNS [CIEColor], HilitePxls: PROC [area: IntRectangle], MovePxls: PROC [context: ContextData, source: IntRectangle, destination: IntPair], TransferPxls: PROC [source, destination: ContextData], StoreScanSeg: PROC [source: ContextData, x, y, length: CARDINAL] RETURNS [ByteSequence], LoadScanSeg: PROC [destination: ContextData, x, y, length: CARDINAL, segment: ByteSequence], LoadTrapezoid: PROC [destination: ContextData, top, bottom, leftTop, leftBot, rightTop, rightBot: CARDINAL, pxlValue: LONG CARDINAL], LoadRectangle: PROC [destination: ContextData, area: ImagerBasic.IntRectangle, pxlValue: LONG CARDINAL], SetAnyPixel: PROC [destination: ContextData, x, y: CARDINAL, pxlValue: LONG CARDINAL, newDirection: Direction _ none], GetAnyPixel: PROC [source: ContextData, x, y: CARDINAL, newDirection: Direction _ none] RETURNS [LONG CARDINAL], SetNextPixel: PROC [pxlValue: LONG CARDINAL], GetNextPixel: PROC [] RETURNS [LONG CARDINAL], DrawLine: PROC [destination: ContextData, a, b: IntPair, pxlValue: LONG CARDINAL], Tiler: PROC [destination: ContextData, vtxCount: NAT, vertices: VtxSequence] ]; END. XImagerDisplay.mesa This interface provides the procedures and data structures for use with interactive displays Last Edited by: Crow, September 1, 1983 3:20 pm Basic Definitions (Numbers and Shapes) Context (Implemented in ImagerDisplayContextImpl) Get new display without changing anything above the device level Device Transformations (Implemented in ImagerDisplayTransformImpl) fast for setting common types of flips and rotates Clipping (Implemented in ImagerDisplayClipperImpl) Fonts Color Paths Masks Characters Interactive (Implemented in ImagerDisplayInteractiveImpl) Class Э╩ШheadЪЬЩJЩ\JЩЪЬЩJЪЬЩЧunitЪ╧k Ш LЪЬЭЬ ШIaЪЬЭЬШMЪЬЭЬ:ШKJЪЬЭЬШЧЧhead2ЪЬЭЬЭШ JЪЬЭЬЭШJШЧhead3Ъ╧b&Щ&LЪЬЭЬGШVJЪЬЭЬЭЬШ)JЪЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШOJЪЬЭЬЭЬ ЭЬЭЬЭЬШAJЪЬ ЭЬЭЬШ'JЪЬЭЬЭЬЭЬ ЭЬЭЬ ШDЧЪЮ4Щ4JЪЬЭЬШJЪЬЭЬШ1JЪЬЭЬШ2JЪЬ ЭЬШLЪЬ ЭЬЭЬ╧cШBЪЬЭЬЭЬШJЪЬ Ш JЪЬЭЬЭЬШJЪЬ+ЯШELЪЯ,Ш,JЪЬЭЬЭЬШ,JЪЬЭЬШ,JЪЬЭЬШ,JЪЬ ЭЬШ&ЧЪЯ5Ш5JЪЬЯ!Ш9JЪЬШJЪЬШJЪЬЯЬЯШ,JЪЬЭЬЭЬЯШMЪЬ ЭЬ$ЯШSJЪЬЭЬЭЬЭЬЯШGJЪЬЯ.ШKJЪЬЭЬЭЯ7ШDJШЧLЪ╧i@Щ@MЪ╧n ЬЭЬ ЭЬШ6MЪбЬЭЬЭЬ ЭЬШ@ЧOЪЮЩЪЮ=Щ=ЪбЬЭЬ/ШGJЩ2ЧJЪбЬЭЬ.ШLJЪбЬЭЬ/ШGЧЪЮ5Щ5JЪбЬЭЬ+ШAJЪбЬЭЬ+ШBJЪбЬЭЬ+ШAЧOЪЮЩOЪЮЩOЪЮЩOЪЮЩOЪЮ Щ ЪЮ;Щ;JЪбЬЭЬ'ШBLЪбЬЭЬ@ШVLЪ бЬЭЬ'ЭЬЭЬЭЬШRЪб ЬЭЬЯШBJЩЧЧЪЮЩЪЬЭЬЭЬШJЪЬЭЬШJЪбЬЭЬ$ЭЬЭЬ ШKJЪбЬЭЬ%Ш3JЪ бЬЭЬЭЬЭЬЭЬШ>JЪ бЬЭЬЭЬЭЬЭЬШ@JЪб ЬЭЬШ&JЪбЬЭЬDШRJЪбЬЭЬ$Ш6JЪбЬЭЬ%ЭЬШAJЪЬЭЬШ*JЪбЬЭЬ*ЭЬШEJЪЬ,Ш,JЪб ЬЭЬШ/JЪЬ<ЭЬШEMЪЬЭЬЭЬШ"MЪб ЬЭЬ;ШNMЪЬЭЬЭЬШ!JЪбЬЭЬ"ЭЬШ