<<>> <> <> <> DIRECTORY Imager USING [Context]; ImagerHighlightContextBackdoor: CEDAR DEFINITIONS ~ BEGIN ColorLookupTable: TYPE ~ REF ColorLookupTableRep; ColorLookupTableRep: TYPE ~ RECORD [ toner: ATOM, -- for informational purposes tablePointer: POINTER TO ColorLookupArray, -- the data, as read from the file ref: REF _ NIL -- may be used, for example, to prevent premature gc of table - not used by impl ]; RedIndex: TYPE ~ [0..64); GreenIndex: TYPE ~ [0..64); BlueIndex: TYPE ~ [0..64); ColorLookupArray: TYPE ~ PACKED ARRAY RedIndex OF PACKED ARRAY GreenIndex OF PACKED ARRAY BlueIndex OF ColorLookupEntry; ColorLookupEntry: TYPE ~ MACHINE DEPENDENT RECORD [ highlight: BYTE, black: BYTE ]; HighlightContext: TYPE ~ Imager.Context; -- as created by ImagerHighlightContext.Create; NOP on other contexts. SetColorLookupTable: PROC [context: HighlightContext, colorLookupTable: ColorLookupTable]; <> <> END.