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

Font subclass:#HersheyFont

         instanceVariableNames:'glyphs scale'

         classVariableNames:'knownFonts 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'!

readDataFile

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

    inStream := FileStream readonlyFileNamed:'/LocalLibrary/Fonts/hershey/data/hersh.oc'.

    glyphData isNil ifTrue:[

        Transcript showCr:'reading hershey glyphs ...'.

        glyphData := VariableArray new: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 |

        sumW := sumW + (self widthOfCharacter:(aString at:index)  asciiValue) 

    ].

    ^ sumW

!

widthOf:aString

    |sumW|

    sumW := 0.

    aString do:[:character |

        sumW := sumW + (self widthOfCharacter:character asciiValue) 

    ].

    ^ sumW

!

on:aDevice

    ^ self

! !

!HersheyFont methodsFor:'drawing'!

drawCharacter:ascii in:aGC x:x y:y

    |glyphNo|

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

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

    glyphNo isNil ifTrue:[^ self].

    self class drawGlyph:glyphNo in:aGC x:x y:y scale:scale

!

displayString:aString from:index1 to:index2 x:x0 y:y in:aGC

    |x|

    x := x0.

    index1 to:index2 do:[:index |

        self drawCharacter:(aString at:index) asciiValue in:aGC x:x y:y.

        x := x + (self widthOfCharacter:(aString at:index) asciiValue)