'From Smalltalk/X, Version:2.5.1 on 29-Jan-1993 at 12:13:27'!

Font subclass:#HersheyFont

	 instanceVariableNames:'glyphs scale'

	 classVariableNames:'GlyphData'

	 poolDictionaries:''

	 category:'Graphics-Support'

!

HersheyFont comment:'

Support for hershey fonts is based on a freeware cd-rom distribution 

by DEC. This disk contains the hershey outlines and glyph maps of

the following fonts:

Fonts:

	Roman:  Plain, Simplex, Duplex, Complex Small, Complex, Triplex

       Italic:  Complex Small, Complex, Triplex

       Script:  Simplex, Complex

       Gothic:  German, English, Italian

	Greek:  Plain, Simplex, Complex Small, Complex

     Cyrillic:  Complex

Symbols:

	Mathematical 

	Daggers 

	Astronomical 

	Astrological 

	Musical 

	Typesetting (ffl,fl,fi sorts of things) 

	Miscellaneous:

		- Playing card suits

		- Meteorology

		- Graphics (lines, curves)

		- Electrical

		- Geometric (shapes)

		- Cartographic

		- Naval

		- Agricultural

		- Highways

		- Etc...

Legal notice:

	This distribution of the Hershey Fonts may be used by anyone for

	any purpose, commercial or otherwise, providing that:

	1. The following acknowledgements must be distributed with

	the font data:

	    - The Hershey Fonts were originally created by Dr.

		    A. V. Hershey while working at the U. S.

		    National Bureau of Standards.

	    - The format of the Font data in this distribution

		    was originally created by

			    James Hurt

			    Cognition, Inc.

			    900 Technology Park Drive

			    Billerica, MA 01821

			    (mit-eddie!!ci-dandelion!!hurt)

	2. The font data in this distribution may be converted into

	any other format *EXCEPT* the format distributed by

	the U.S. NTIS (which organization holds the rights

	to the distribution and use of the font data in that

	particular format). Not that anybody would really

	*want* to use their format... each point is described

	in eight bytes as "xxx yyy:", where xxx and yyy are

	the coordinate values as ASCII numbers.

'!

!HersheyFont class methodsFor:'private'!

hersheyFontPath

    "the directory, where the glyph data is found;

     you may have to modify this a bit ..."

    ^ '/LocalLibrary/Fonts/hershey/data/hersh.oc'

!

readDataFile

    |inStream b5 b3 chars moves glyphNo nPairs char1 char2 index|

    inStream := FileStream readonlyFileNamed:(self hersheyFontPath).

    inStream isNil ifTrue:[

	self error:'no glyph data file found'.

	^ self

    ].

    GlyphData isNil ifTrue:[

	Transcript showCR:'reading hershey glyphs ...'.

	GlyphData := OrderedCollection new:4000; grow:4000.

	b5 := String new:5.

	b3 := String new:3.

	[inStream atEnd] whileFalse:[

	    chars := inStream nextBytes:5 into:b5.

	    glyphNo := Number readFromString:b5.

	    chars := inStream nextBytes:3 into:b3.

	    nPairs := Number readFromString:b3.

	    moves := String new:(nPairs * 2).

	    index := 1.

	    1 to:nPairs do:[:i |

		char1 := inStream next.

		char1 == Character nl ifTrue:[

		    char1 := inStream next

		].

		char2 := inStream next.

		char2 == Character nl ifTrue:[

		    char2 := inStream next

		].

		moves at:index put:char1.

		index := index + 1.

		moves at:index put:char2.

		index := index + 1

	    ].

	    GlyphData at:glyphNo put:moves.

	    [inStream peek == Character nl] whileTrue:[inStream next]

	].

	inStream close

    ]

    "HersheyFont readDataFile"

!

name:aFileName family:family face:face style:style size:sz

    "return a font with glyph-data from aFileName"

    |newFont|

    newFont := self basicNew readGlyphsFrom:aFileName.

    newFont family:family face:face style:style size:sz.

    ^ newFont

    "HersheyFont name:'gothger'"

! !

!HersheyFont class methodsFor:'drawing'!

drawGlyph:glyphNo in:aGC x:x y:y scale:aScale

    |moves c1 c2 xPos yPos nX nY draw w h savedLW|

    moves := GlyphData at:glyphNo.

    moves isNil ifTrue:[

	Transcript showCR:('no glyph for ' , glyphNo printString).

	^ self

    ].

    savedLW := aGC lineWidth.

    aGC lineWidth:(aScale * 2) rounded.

    xPos := 0 "x".

    yPos := 0 "y".

    draw := false. "start with a skip"

    w := ((moves at:1) asciiValue - $R asciiValue)" * aScale".

    h := ($R asciiValue - (moves at:2) asciiValue)" negated * aScale".

    w := w negated * aScale * 2.

    h := h negated * aScale * 2.

    3 to:(moves size) by:2 do:[:index |

	c1 := moves at:index.

	c2 := moves at:(index + 1).

	c1 == Character space ifTrue:[

	    draw := false

	] ifFalse:[

	    nX := "xPos +" ((c1 asciiValue - $R asciiValue) * aScale).

	    nY := "yPos +" (($R asciiValue - c2 asciiValue) negated * aScale).

	    draw ifTrue:[

		aGC displayLineFromX:((x + xPos) truncated "rounded") 

				   y:((y + yPos) truncated "rounded")

				 toX:((x + nX) truncated "rounded") 

				   y:((y + nY) truncated "rounded").

	    ].

	    xPos := nX.

	    yPos := nY.

	    draw := true

	]

    ].

    aGC lineWidth:savedLW

    "Smalltalk at:#v put:nil.

     Smalltalk at:#f put:nil.

     v := View new realize.   

     v clear.

     v font:(f := HersheyFont family:'hershey-times' face:'bold' style:'roman' size:12).

     v displayString:'hello' x:50 y:50"

!

widthOfGlyph:glyphNo scale:aScale

    |moves w|

    moves := GlyphData at:glyphNo.

    moves isNil ifTrue:[

	Transcript showCR:('no glyph for ' , glyphNo printString).

	^ 0

    ].

    w := ((moves at:1) asciiValue - $R asciiValue).

    w := w negated * aScale * 2.

    ^ w

    "HersheyFont widthOfGlyph:3401 scale:1"

!

heightOfGlyph:glyphNo scale:aScale

    |moves h|

    moves := GlyphData at:glyphNo.

    moves isNil ifTrue:[

	Transcript showCR:('no glyph for ' , glyphNo printString).

	^ 0

    ].

    h := ($R asciiValue - (moves at:2) asciiValue)" negated * aScale".

    h := h negated * aScale * 2.

    ^ h

! !

!HersheyFont class methodsFor:'instance creation'!

family:family face:face style:style size:sz

    |fontNames|

    fontNames := #(

	('hershey-times'                'bold'          'roman'         'romant')

	('hershey-times'                'medium'        'roman'         'romanc')

	('hershey-times'                'medium'        'italic'        'italicc')

	('hershey-times'                'bold'          'italic'        'italict')

	('hershey-times'                'bold'          'greek'         'greekc')

	('hershey-japan'                'bold'          'normal'        'japan')

	('hershey-gothic-german'        'bold'          'roman'         'gothger')

	('hershey-gothic-english'       'bold'          'roman'         'gotheng')

	('hershey-gothic-italian'       'bold'          'roman'         'gothita')

	('hershey-cursive'              'medium'        'roman'         'scripts')

	('hershey-script'               'bold'          'roman'         'scriptc')

	('hershey-futura'               'medium'        'roman'         'romans')

	('hershey-futura'               'bold'          'roman'         'romand')

	('hershey-markers'              'medium'        'roman'         'marker')

	('hershey-math1'                'medium'        'roman'         'lowmat')

	('hershey-math2'                'medium'        'roman'         'uppmat')

	('hershey-symbol'               'medium'        'roman'         'symbol')

	('hershey-astrology'            'bold'          'roman'         'astrol')

	('hershey-meteorology'          'medium'        'roman'         'meteo')

	('hershey-music'                'bold'          'roman'         'music')

    ).

    fontNames do:[:entry |

	(entry at:1) = family ifTrue:[

	    (entry at:2) = face ifTrue:[

		(entry at:3) = style ifTrue:[

		    ^ self name:(entry at:4) family:family face:face style:style size:sz

		]

	    ]

	]

    ].

    ^ nil

    "HersheyFont family:'hershey-gothic-german' face:'medium' style:'roman' size:12"

! !

!HersheyFont class methodsFor:'examples'!

showFont:f in:aView

     "

     Smalltalk at:#aView put:(View new extent:500@200) realize.

     aView backingStore:true.

     HersheyFont showFont:(HersheyFont family:'hershey-astrology' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-music' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-meteorology' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-cursive' 

					 face:'medium' 

					style:'roman' 

					 size:10) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-cursive' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-cursive' 

					 face:'medium' 

					style:'roman' 

					 size:48) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-script' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'medium' 

					style:'roman' 

					 size:12) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'medium' 

					style:'roman' 

					 size:48) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'medium' 

					style:'italic' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-times' 

					 face:'bold' 

					style:'italic' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-futura' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-futura' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-markers' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-math1' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-math2' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-symbol' 

					 face:'medium' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-gothic-italian' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-gothic-german' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     HersheyFont showFont:(HersheyFont family:'hershey-gothic-english' 

					 face:'bold' 

					style:'roman' 

					 size:24) in:aView

     "

     |x y dy|

     dy := f heightOn:aView device.

     aView clear.

     x := 100. y := dy.

     32 to:47 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     48 to:57 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     58 to:64 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     65 to:90 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     91 to:96 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     97 to:122 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ].

     x := 100. y := y + dy.

     123 to:127 do:[:i |

	 f drawCharacter:i in:aView x:x y:y.

	 x := x + 30

     ]

! !

!HersheyFont methodsFor:'private'!

readGlyphsFrom:aFileName

    "read glyph definitions from aFileName"

    |inStream ascii index1 index2|

    self class readDataFile.

    glyphs := Array new:(256 - 32).

    inStream := FileStream readonlyFileNamed:('/LocalLibrary/Fonts/hershey/fonts/',aFileName,'.hmp').

    ascii := 32.

    [inStream atEnd] whileFalse:[

	index1 := Number readFrom:inStream.

	index2 := Number readFrom:inStream.

	index2 == 0 ifTrue:[

	    index2 := index1

	].

	index1 to:index2 do:[:pos |

	    glyphs at:(ascii - 32 + 1) put:pos.

	    ascii := ascii + 1

	].

	inStream skipSeparators

    ].

    inStream close.

    ^ self

!

scale:aScale

    scale := aScale

!

family:fam face:fac style:st size:sz

    family := fam.

    face := fac.

    style := st.

    size := sz.

    scale := sz / 24 

! !

!HersheyFont methodsFor:'queries'!

ascentOn:aDevice

    ^ 0

!

descentOn:aDevice

    ^ self heightOn:aDevice

!

heightOn:aDevice

    ^ scale * (24 + 12)

!

widthOfCharacter:ascii

    |glyphNo|

    (ascii between:32 and:127) ifFalse:[^ 0].

    glyphNo := glyphs at:(ascii - 32 + 1).

    glyphNo isNil ifTrue:[^ 0].

    ^ self class widthOfGlyph:glyphNo scale:scale

!

heightOfCharacter:ascii

    |glyphNo|

    (ascii between:32 and:127) ifFalse:[^ 0].

    glyphNo := glyphs at:(ascii - 32 + 1).

    glyphNo isNil ifTrue:[^ 0].

    ^ self class heightOfGlyph:glyphNo scale:scale

!

widthOf:aString from:start to:stop

    "return the width of a substring"

    |sumW|

    (stop < start) ifTrue:[^ 0].

    sumW := 0.

    start to:stop do:[:index |