<<>> <> <> <> <<>> <> <<>> DIRECTORY ColorizeViewPointBackdoor USING [MapData], IPMaster USING [Op, SequenceType], Profiles USING [Profile], Rope USING [ROPE], SymTab USING [Ref]; ColorizeViewPointGraphicsCommon: CEDAR DEFINITIONS ~ BEGIN Op: TYPE ~ IPMaster.Op; ROPE: TYPE ~ Rope.ROPE; Seq: TYPE ~ IPMaster.SequenceType; <> InvalidGfxKey: ERROR; Color: TYPE ~ REF ColorRep; ColorRep: TYPE ~ RECORD [value: ROPE, type: ATOM]; <> <> SubsInfo: TYPE ~ REF SubsInfoRep; SubsInfoRep: TYPE ~ RECORD [palette: Profiles.Profile, mapData: ColorizeViewPointBackdoor.MapData, subpaletteList: LIST OF ROPE, subs: SymTab.Ref--key: IP frag; value: it's associated Color--]; GetColorProc: TYPE ~ PROC [ip: ROPE, min, max: INT] RETURNS [newMin, newMax: INT, color, addendum: ROPE _ NIL]; <> ColorizeGraphics: PROC [ip: ROPE, subs: SubsInfo, opList: LIST OF Op, getColor: GetColorProc, seqList: LIST OF Seq _ NIL, customOnly: BOOL _ FALSE] RETURNS [colorizedIP: ROPE _ NIL]; <> SeqAction: TYPE ~ PROC [key, makeSampledBlack: ROPE, real: REAL, textured, transparent: BOOL]; --a proc which installs the mapping of the makeSampledBlack Interpress fragment to its key GfxTexture: TYPE ~ [0..12); Pattern: TYPE ~ ARRAY [0..16) OF CARD16; --the pixel array used by makesampledblack to correctly render a given pattern GfxTextureProc: TYPE ~ PROC [texture: GfxTexture] RETURNS [Pattern]; GfxGrayProc: TYPE ~ PROC [gray: REAL] RETURNS [Pattern]; GfxPaletteFromProfile: PROC [profile: Profiles.Profile, seqAction: SeqAction, gfxTexture: GfxTextureProc, gfxGray: GfxGrayProc, transparent, opaque: BOOL _ TRUE]; <> END.