"

 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.

"

"{ Package: 'stx:libview2' }"

"{ NameSpace: Smalltalk }"

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 set.

    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).

    Caveat: not completely correct; the ascent and descent data is wrong, which

    gives textView a little trouble when selecting. (see examples)

    We leave it as an exercise to the interested user to fix those.

    You need the data file 'hersh.oc' and the glyph data files

        astrol.hmp              astrology

        scripts.hmp             cursive

        cyrilc.hmp              cyrillic

        romans.hmp              futura.l

        romand.hmp              futura.m

        gotheng.hmp             gothic.eng

        gothger.hmp             gothic.ger

        gothita.hmp             gothic.ita

        greeks.hmp              greek

        marker.hmp              markers

        lowmat.hmp              math.low

        uppmat.hmp              math.upp

        meteo.hmp               meteorology

        music.hmp               music

        scriptc.hmp             script

        symbol.hmp              symbolic

        greekc.hmp              times.g

        italicc.hmp             times.i

        italict.hmp             times.ib

        romanc.hmp              times.r

        romant.hmp              times.rb

        japan.hmp               japanese

    (these are available via http/ftp and must be acquired from elsewhere due to

     copyright restrictions - google for 'hersh.oc' or search for hershey in github).

    You should install those files in some font folder

    (see hersheyFontPath for a list of places where they are expected)

    [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

"

                                                                [exBegin]

     |aView|

     aView := TextView new extent:400@400.

     aView openAndWait.

     aView font:(HersheyFont family:'hershey-gothic-german' face:'bold' style:'roman' size:12).

     aView contents:'

Hello world

Is this nice?'.

                                                                [exEnd]

                                                                [exBegin]

     |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

     ].

                                                                [exEnd]

"

! !

!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:'bold' 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) codePoint - $R codePoint)" * aScale".

    h := ($R codePoint - (moves at:2) codePoint)" 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 codePoint - $R codePoint) * aScale).

            nY := "yPos +" (($R codePoint - c2 codePoint) 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 codePoint - (moves at:2) codePoint)" negated * aScale".

    h := h negated * aScale * 2.