CDTextsBackdoor.mesa A ChipNDale module
Copyright © 1986 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, December 4, 1986 2:16:27 pm PST
Last edited by: Christian Jacobi, December 4, 1986 4:41:08 pm PST
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.