<> <> <> <> <<>> DIRECTORY CD USING [Orientation, Rect], CDTexts USING [CDFont], Imager USING [Font, Transformation]; CDTextsBackdoor: CEDAR DEFINITIONS = BEGIN FlipTransform: PROC [bbox: CD.Rect, orient: CD.Orientation] RETURNS [Imager.Transformation]; <<--given a flip-text [with bbox "bbox"] to be drawn with orientation "orient" >> <<--returns the imager transformation applied to do the flipping>> <<>> SubstituteTiogaFonts: PROC [imagerFont: Imager.Font] RETURNS [Imager.Font]; <<--given a tioga (imager) font, returns corresponding press (imager) font >> <<--given other imager font, returns same imager font >> ImagerPrintFont: PROC [cdFont: CDTexts.CDFont] RETURNS [Imager.Font]; <<--given a (ChipNDale, CDTexts) font, returns imager font to be used for printing>> <<--with tioga fonts substituted>> END.