@Comment[ Copyright (C) 1980, 1988  Scribe Systems Inc. ]
@Marker(FontFamily,TimesHebrew, ScaleableLaser)
@DefineFont(BodyFont,        
        A=<Typecase "Mathematics10">, 
        B=<RawFont "TimesBold">,
      	C=<typecase "Hebrew">,
        F=<RawFont "CourierBold">,
        G=<TypeCase "PsGreek">,
        I=<RawFont "TimesItalic">,
        J=<TypeCase "PsSymbol1">,
        K=<TypeCase "PsSymbol2">,
        M=<RawFont "AccentTimesBold">,
        P=<RawFont "TimesBoldItalic">,
        Q=<RawFont "AccentTimesRoman">,
        R=<RawFont "TimesRoman">,
	S=<TypeCase "Pssue">,
        T=<RawFont "Courier">,
        V=<RawFont "AccentTimesItalic">,
	W=<rawfont "ZapfDingbats">,
        Y=<TypeCase "PsPubsSerif">,
        Z=<RawFont "TimesItalic">)

@DefineFont(HeadingFont,
	W=<rawfont "ZapfDingbats">,
      	C=<typecase "Hebrew">,
        P=<RawFont "TimesBoldItalic">,
        B=<RawFont "TimesBold">,
        I=<RawFont "TimesBoldItalic">,
        R=<RawFont "TimesRoman">,
        G=<TypeCase "PsGreek">,
        Q=<RawFont "AccentTimesRoman">,
        M=<RawFont "AccentTimesBold">,
        V=<RawFont "AccentTimesItalic">)

@DefineFont(FixedFont,
	W=<rawfont "ZapfDingbats">,
        P=<RawFont "CourierBoldOblique">,
        B=<RawFont "CourierBold">,
        T=<RawFont "Courier">,
        F=<RawFont "CourierBold">,
        I=<RawFont "CourierOblique">,
        R=<RawFont "TimesRoman">,
        V=<RawFont "AccentCourierItalic">,
        M=<RawFont "AccentCourierBold">,
        Q=<RawFont "AccentCourier">,
        G=<TypeCase "PsGreek">,
        S=<typecase "Pssue">,
      	C=<typecase "Hebrew">)

@Equate(SmallBodyFont=BodyFont,TitleFont=HeadingFont,FixedFonts=FixedFont)

@Marker(FontFamily,ChangeLog)
@Comment[
15 Feb 81  MLK&JMA Fixed Timesroman for the X9700 to print on 512KBit.
                    Removed all entries except Timesroman 10.
15 Feb 81  MLK&JMA Made TimesRoman12 a copy of TimesRoman10.
12 Mar 81  JMA  Changed CMSYxx to Symbol10R.
                Changed Helvetica16x to 14x or 18x.
28 Jul 83  EMN  Change
                Changed Font keyword in Marker to `FontFamily' because Scribe 
                looks for this keyword first. May speed up runtime.
                Change request A-101,A-184
11 Jan 84  EMN  Appearance Change
                The underscore character on the Dover didn't work in 
                fixed-width fonts. Changed all calls from Gacha to Saila.
16 Mar 84  BWL  Edit
                Merged mathematic fontfamily files with the Timesr.fon file.
                User no longer needs separate command: 
                @style(fontfamily=mathematics10) (or Mathematics12, etc)
 7 Jan 85  MEF  Addition
                Added TimesRoman for ScaleableLaser (Postscript)
15 Jan 85  EMN  Addition
                Added fontfamilies TimesRoman9 and TimesRoman8 for Press 
                given by Thomas Gross from Stanford's files.
11 Dec 85  EMN  Addition
                Added the Math facecodes defined in BodyFont of TimesRoman10
                to Smallbodyfont (V, W, S, J)
21 Jan 86  EMN  Appearance Change
                Changed FaceCode R in HeadingFont to use TimesRoman instead
                of TimesBold.
17 Apr 86  EMN  Addition
                Added FaceCode G to Timesroman Headingfont for PostScript.
08 Aug 86  BWL  Addition
                Added some typecases for Greek and Mathematics for Xerox 9700.
23 Jul 87  EMN  Edit
                Changed the facecode definition of O=<Ascii "CMathX10S">
                to O=<Typecase "Mathematics10ControlsC"> so users can
                get a Brace in a footnote.
24 Feb 88  BWL  Addition
                Added font families for HP LaserJet.
 1 Nov 88  EMN  Addition
                Added Facecode W and V to use the Accented Bold and Italic
                characters in Bodyfont and HeadingFont for Postscript

26 Jun 89  dgc	 X9700 Bodyfont Italics: 
                 UN511E changed to UN510Z so that italics can be used by both
	         Helvetica and TimesRoman.  The extra punctuation in UN510E is
        	 san serif and the punctuation in UN510Z is serif.
	         UN510Z.TYP points to UN510E + the serif punctuation.
		 Originally changed 29 Aug 84.
26 Jun 89  dgc	 Changed FaceCode S to Q for Accents in PostScript. 
		 Changed FaceCode W to M for Accents in PostScript. 
                 Added new FaceCode S (Pssue) to BodyFont (defines all 
                 non-ASCIIGraphics characters in the Apple Symbol Set). 
		 Added FaceCodes W and X for ZapfDingbats for both BodyFont
                 and HeadingFont.  Referenced as ZF and ZS in .DEV files.
26 Jun 89  dgc	 Added FixedFonts Font to TimesRoman Fontfamily, composed
		 of a switch to Courier instead of Times.
22 Mar 90  dgc	Added M, V, Q for fixedfont accents.
]