DIRECTORYConvert USING [AppendInt],Imager USING [Error],ImagerFont USING [Extents, Find, FontBoundingBox, RopeWidth, VEC, Width],Real USING [RoundI],RefText USING [AppendChar, AppendRope, ObtainScratch, ReleaseScratch, TrustTextAsRope],Rope USING [ROPE],UserProfile USING [Number, Token],VFonts USING [DefaultFont, defaultFont, ErrorCode, Font];VFontsImpl: CEDAR PROGRAMIMPORTS Convert, Imager, ImagerFont, Real, RefText, UserProfile, VFontsEXPORTS VFonts~ BEGIN OPEN VFonts;VEC: TYPE ~ ImagerFont.VEC;ROPE: TYPE = Rope.ROPE;Error: PUBLIC ERROR [code: VFonts.ErrorCode] ~ CODE;defaultFont: PUBLIC VFonts.Font _ NIL;EstablishFont: PUBLIC PROC [family: ROPE, size: CARDINAL, bold: BOOL _ FALSE, italic: BOOL _ FALSE, defaultOnFailure: BOOL _ TRUE] RETURNS [font: Font _ NIL] ~ {scratch: REF TEXT ~ RefText.ObtainScratch[100];text: REF TEXT _ scratch;text _ RefText.AppendRope[text, "Xerox/TiogaFonts/"];text _ RefText.AppendRope[text, family];text _ Convert.AppendInt[text, size];IF bold THEN text _ RefText.AppendChar[text, 'B];IF italic THEN text _ RefText.AppendChar[text, 'I];font _ ImagerFont.Find[RefText.TrustTextAsRope[text] !Imager.Error => IF defaultOnFailure THEN CONTINUE];IF font=NIL THEN font _ defaultFont;RefText.ReleaseScratch[scratch];};CharWidth: PUBLIC PROC [char: CHAR, font: Font _ NIL] RETURNS [NAT] ~ {width: VEC ~ ImagerFont.Width[DefaultFont[font], [set: 0, code: ORD[char]]];RETURN[Real.RoundI[width.x]];};StringWidth: PUBLIC PROC [string: ROPE, font: Font _ NIL] RETURNS [NAT] ~ {width: VEC ~ ImagerFont.RopeWidth[DefaultFont[font], string];RETURN[Real.RoundI[width.x]];};FontHeight: PUBLIC PROC [font: Font _ NIL] RETURNS [NAT] ~ {extents: ImagerFont.Extents ~ ImagerFont.FontBoundingBox[DefaultFont[font]];RETURN[Real.RoundI[extents.descent+extents.ascent]];};FontAscent: PUBLIC PROC [font: Font _ NIL] RETURNS [NAT] ~ {extents: ImagerFont.Extents ~ ImagerFont.FontBoundingBox[DefaultFont[font]];RETURN[Real.RoundI[extents.ascent]];};CreateDefaultFont: PROC ~ {family: ROPE ~ UserProfile.Token["Viewers.DefaultFontFamily", "Tioga"];size: INT ~ UserProfile.Number["Viewers.DefaultFontSize", 10];err: BOOL _ FALSE;defaultFont _ EstablishFont[family: family, size: size, defaultOnFailure: FALSE !Imager.Error => { err _ TRUE; CONTINUE }];IF err THEN defaultFont _ EstablishFont[family: "Tioga", size: 10, defaultOnFailure: FALSE];};CreateDefaultFont[];END.   à  VFontsImpl.mesaCopyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Doug Wyatt, May 29, 1985 12:06:05 pm PDTRuss Atkinson (RRA) June 19, 1985 2:03:52 pm PDTsubstitute Tioga10 for user's failed choice Êj  –"Mesa" style˜ codešœ™Kšœ
Ïmœ7™BK™(K™0—K˜ šÏk	˜	Kšœžœ˜Kšœžœ	˜Kšœžœ-žœ	˜IKšœžœ
˜KšœžœJ˜WKšœžœžœ˜Kšœžœ˜"Kšœžœ-˜9—K˜ šÐbl
œžœž˜Kšžœ@˜GKšžœ˜Kšœžœžœ˜—K˜ Kšžœžœžœ˜Kšžœžœžœ˜K˜ Kšœžœžœžœ˜4K˜ Kšœžœžœ˜&K˜ šÏnœžœžœ
žœžœ	žœžœ
žœžœžœžœžœžœ˜£Kšœ	žœžœ˜/Kšœžœžœ˜Kšœ5˜5Kšœ(˜(Kšœ%˜%Kšžœžœ%˜1Kšžœžœ%˜3šœ6˜6Kšœžœžœžœ˜3—Kšžœžœžœ˜$Kšœ ˜ K˜K˜ —K˜ š 	œžœžœžœžœžœžœ˜GKšœžœ6žœ	˜LKšžœ˜Kšœ˜K˜ —š œžœžœ
žœžœžœžœ˜KKšœžœ3˜=Kšžœ˜Kšœ˜K˜ —š 
œžœžœžœžœžœ˜<KšœL˜LKšžœ.˜4K˜K˜ —š 
œžœžœžœžœžœ˜<KšœL˜LKšžœ˜$K˜K˜ —š œžœ˜Kšœžœ;˜GKšœžœ5˜>Kšœžœžœ˜šœJžœ˜QKšœžœžœ˜*—šžœžœJžœ˜\Kšœ+™+—Kšœ˜K˜ —K˜K˜ Kšžœ˜— …—    	–  à  