Return to Gauge.psw CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BusyBox

Annotation of Examples/AppKit/BusyBox/Gauge.psw, revision 1.1

1.1     ! root        1: /*
        !             2:  * Gauge.psw, Postscript code for drawing analog gauge.
        !             3:  * Author: Bruce Blumberg, NeXT Developer Support Group.
        !             4:  * Originally written for 0.6 mid 1988, modified for 1.0 by Ali Ozer.
        !             5:  * Cleaned and spiffed up for 2.0 by Julie Zelenski.
        !             6:  * You may freely copy, distribute and reuse the code in this example.  
        !             7:  * NeXT disclaims any warranty of any kind, expressed or implied, as to 
        !             8:  * its fitness for any particular use.
        !             9:  */
        !            10: 
        !            11: /* PSWdrawBorder draws the border and background of the gauge face.
        !            12:  */
        !            13: defineps PSWdrawBorder(float x; float y; float radius)
        !            14:        0.835 setgray
        !            15:        x y radius 1.5 add 0 360 arc
        !            16:        fill 
        !            17:        1.0 setlinewidth
        !            18:        1.0 setgray
        !            19:        x y radius 2 add 50 220 arc
        !            20:        stroke
        !            21:        1.5 setlinewidth
        !            22:        .333 setgray
        !            23:        x y radius 2 add 220 50 arc
        !            24:        stroke
        !            25:        1.0 setlinewidth
        !            26:        0.0 setgray
        !            27:        x y radius 1.5 add 220 50 arc
        !            28:        stroke
        !            29: endps
        !            30: 
        !            31: /* PSWdrawTicks draws a tick mark at each increment around the circle 
        !            32:  * from the start to the stop angle.
        !            33:  */
        !            34: defineps PSWdrawTicks(float x; float y; float radius; float increment; float start; float stop)
        !            35:        0 setgray
        !            36:        .5 setlinewidth
        !            37:        gsave
        !            38:        x y translate
        !            39:        start rotate
        !            40:        start increment stop {
        !            41:                newpath
        !            42:                radius 0 moveto
        !            43:                -3 0 rlineto
        !            44:                closepath
        !            45:                stroke
        !            46:                increment neg rotate
        !            47:        } for
        !            48:        grestore
        !            49: endps
        !            50: 
        !            51: /* PSWdrawString simply draws string at specific location 
        !            52:  */
        !            53: defineps PSWdrawString(float x; float y; char *str)
        !            54:        0 setgray
        !            55:        x y moveto
        !            56:        (str) show
        !            57: endps
        !            58: 
        !            59: /* PSWmakeHand defines a PS function that will subsequently be used
        !            60:  * to draw the hand at different angles as the value changes.
        !            61:  */
        !            62: defineps PSWmakeHand(float length)
        !            63:        /mhand {
        !            64:        0 setgray
        !            65:        0 setlinewidth
        !            66:        newpath
        !            67:                0 3.5 moveto
        !            68:                0 0 3.5 90 270 arc
        !            69:                length 3.5 rlineto
        !            70:                length neg 3.5 rlineto
        !            71:        closepath 
        !            72:        fill
        !            73:        newpath
        !            74:                0 2 moveto
        !            75:                0 0 1.5 0 360 arc
        !            76:                closepath
        !            77:                1 setgray
        !            78:        closepath
        !            79:        fill
        !            80:        } def
        !            81: endps
        !            82: 
        !            83: /* PSWdrawHand translate and rotates the coordinate system, then uses
        !            84:  * mhand to draw the gauge hand.
        !            85:  */
        !            86:               
        !            87: defineps PSWdrawHand(float x; float y; float ang)
        !            88:        gsave
        !            89:        x y translate
        !            90:        ang rotate
        !            91:        mhand
        !            92:        grestore
        !            93: endps

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.