"

 COPYRIGHT (c) 1989 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 This is a demo example:

 THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND

 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE

 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 SUCH DAMAGE.

"

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:'documentation'!

copyright

"

 COPYRIGHT (c) 1989 by Claus Gittinger

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

 This is a demo example:

 THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND

 ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE

 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 SUCH DAMAGE.

"

!

documentation

"

    HersheyFont provides (limited) support to draw characters

    from the hershey font data file 'hersh.oc'

    This is a demo class - not maintained or meant for productive use.

    Notice: this is a very old demo - it should be rewritten to honor

    the FontDescription protocol (see BitmapFont as a better example).

    [see also:]

        BitmapFont FontDescription Font

    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.

"

!

examples

"

     |aView|

     aView := View new extent:500@200.

     aView openAndWait.

     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

     ].

"

! !

!HersheyFont class methodsFor:'instance creation'!

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

    "return a HersheyFont, given an ST/X-style fontName"

    |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

    "

    "Modified: 16.1.1997 / 18:19:47 / cg"

! !

!HersheyFont class methodsFor:'drawing'!

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

    "draw a single character"

    |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"

    "Modified: 16.1.1997 / 18:22:10 / cg"

!

heightOfGlyph:glyphNo scale:aScale

    "return the height of a single character"

    |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

    "Modified: 16.1.1997 / 18:22:24 / cg"

!

widthOfGlyph:glyphNo scale:aScale

    "return the width of a single character"

    |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"

    "Modified: 16.1.1997 / 18:22:31 / cg"

! !

!HersheyFont class methodsFor:'examples'!

showFont:f 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.