DIRECTORY ImagerBasic USING [IntRectangle, IntPair, CIEColor], ImagerDisplay USING [Mask, ByteSequence, VtxSequence, ContextData, Direction]; Imager8bitDisplay: CEDAR DEFINITIONS = BEGIN OPEN ImagerBasic, ImagerDisplay; SetUp: PUBLIC PROC [ displayContext: ContextData, pin: BOOLEAN _ TRUE, box: Mask]; ShutDown: PROC [displayContext: ContextData]; ColortoPixel: PROC [color: CIEColor] RETURNS [LONG CARDINAL]; -- Color to device transform PixeltoColor: PROC [pxlValue: LONG CARDINAL] RETURNS [CIEColor]; HilitePxls: PROC [area: IntRectangle]; -- Device dependent highlighting scheme MovePxls: PUBLIC PROC [context: ContextData, source: IntRectangle, destination: IntPair]; -- move within context TransferPxls: PUBLIC PROC [source, destination: ContextData]; StoreScanSeg: PUBLIC PROC [source: ContextData, x, y, length: CARDINAL] RETURNS [ByteSequence]; LoadScanSeg: PUBLIC PROC [destination: ContextData, x, y, length: CARDINAL, segment: ByteSequence]; LoadTrapezoid: PUBLIC PROC [destination: ContextData, top, bottom, leftTop, leftBot, rightTop, rightBot: CARDINAL, pxlValue: LONG CARDINAL]; LoadRectangle: PUBLIC PROC [destination: ContextData, area: ImagerBasic.IntRectangle, pxlValue: LONG CARDINAL]; SetAnyPxl: PUBLIC PROC [destination: ContextData, x, y: CARDINAL, pxlValue: LONG CARDINAL, newDirection: Direction _ none]; GetAnyPxl: PUBLIC PROC [source: ContextData, x, y: CARDINAL, newDirection: Direction _ none] RETURNS [LONG CARDINAL]; SetNextPxl: PUBLIC PROC [pxlValue: LONG CARDINAL]; GetNextPxl: PUBLIC PROC [] RETURNS [LONG CARDINAL]; DrawLine: PUBLIC PROC [destination: ContextData, a, b: IntPair, pxlValue: LONG CARDINAL]; -- fast line, constant color Tiler: PUBLIC PROC [destination: ContextData, vtxCount: NAT, vertices: VtxSequence]; -- smooth shaded, convex poly ConstantTiler: PUBLIC PROC [destination: ContextData, vtxCount: NAT, -- constant shade vertices: VtxSequence, pxlValue: LONG CARDINAL]; END. ξImager8bitDisplay.mesa This interface provides access to the low level routines for the color display at 8 bits per pixel. Last Edited by: Crow, September 1, 1983 3:17 pm Get memory, pin it if pin = TRUE, set transform and clipper Κ–˜headšœ™J™c—™šœ™Jšœ™—unitšΟk ˜ Jšœ œ#˜6Jšœœ/˜BJšœ˜——head2šœ$˜$Jšœ˜Jšœ˜ —š Οnœœœ&œœ ˜SIašœœ™;—Jšžœœ˜-Jš ž œœœœœΟc˜[Jš ž œœ œœœ ˜@Jšž œœŸ*˜RJšžœœœ˜-Nšœ5Ÿ˜LJšž œœœ$˜=Jšž œ œ˜0Nšœœœ˜:Jšž œœœ˜4Nšœœ˜:Jšž œœœ˜6Nšœ>œ˜GNšœœœ˜$Nšž œ œ;˜UNšœœœ˜$Jš ž œœœ"œ œœ˜ZJšœ(˜(Jšž œ œ œ˜\Jšœœœœ˜Jš ž œœœ œœ˜2Jš ž œœœœœœ˜3Jšžœ œ+˜@NšœœœŸ˜AJšžœœœ˜.NšœœŸ˜KNš ž œœœ&œŸ˜XNšœ*œœ˜9J˜Jšœ˜—…— 