DIRECTORY CD, Rope USING [ROPE], Imager USING [Font, VEC]; CDTexts: CEDAR DEFINITIONS = BEGIN IsText: PROC [ob: CD.Object] RETURNS [BOOL] = INLINE { RETURN [ ob.class = textClass ] }; TextPtr: TYPE = REF TextRec; TextRec: TYPE = RECORD [ text: Rope.ROPE, cdFont: CDFont ]; CDFont: TYPE = REF READONLY FontRec; FontRec: TYPE = RECORD [ font: Imager.Font, xy: Imager.VEC, scaleR: REAL _ 1.0, scaleI: INT _ 1, origin: CD.Position, height: CD.Number _ -1, isPlaceHolder: BOOL _ FALSE, supposedKey: Rope.ROPE, supposedName: Rope.ROPE, format: PRIVATE INT, data: PRIVATE REF ANY _ NIL, --for CDTextsImpl properties: CD.PropRef ]; CreateText: PROC [text: Rope.ROPE, font: REF READONLY ANY, layer: CD.Layer _ CD.commentLayer] RETURNS [CD.Object]; MakeFont: PROC [name: Rope.ROPE, scale: CD.Number _ 2] RETURNS [CDFont]; textClass: PRIVATE CD.ObjectClass; END. ώCDTexts.mesa A ChipNDale module Copyright c 1983 by Xerox Corporation. All rights reserved. by Christian Jacobi, July 29, 1983 10:42 am last edited by Christian Jacobi, March 25, 1986 1:12:53 pm PST Text objects. --use lambda for good scale Κ/˜codešœ"™"Kšœ Οmœ1™™>—K™šΟk ˜ Kšžœ˜Kšœžœžœ˜Kšœžœžœ˜—K˜KšΠblœžœž œ˜Kšž˜K˜K™ K˜š Οnœžœžœ žœžœžœ˜6Kšžœ˜K˜K˜—Kšœ žœžœ ˜šœ žœžœ˜Kšœ žœ˜Kšœ˜K˜K˜—Kšœžœžœžœ ˜$šœ žœžœ˜Kšœ˜Kšœ žœ˜Kšœžœ˜Kšœžœ˜Kšœžœ ˜Kšœžœ˜Kšœžœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœžœ˜Kšœž œžœžœΟc˜.Kšœ žœ˜K˜—K˜Kš  œžœ žœžœžœžœ žœ žœžœžœ ˜sK˜š  œžœ žœ žœ žœ ˜HKšœ™—K˜Kšœ žœžœ ˜"K˜Kšžœ˜K˜K˜—…—f“