Return to drawWraps.psw CVS log

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

Annotation of Examples/AppKit/Draw/drawWraps.psw, revision 1.1

1.1     ! root        1: #import <string.h>
        !             2: 
        !             3: defineps PSInit()
        !             4: 
        !             5: /oval {
        !             6: % w h x y
        !             7:     translate scale newpath .5 .5 .5 0 360 arc closepath
        !             8: } def
        !             9: 
        !            10: /line {
        !            11: % w h x y
        !            12:     moveto rlineto stroke
        !            13: } def
        !            14: 
        !            15: /setup {
        !            16: % linejoin lincap linewidth
        !            17:     setlinewidth
        !            18:     setlinecap
        !            19:     setlinejoin
        !            20:     gsave
        !            21: } def
        !            22: 
        !            23: /arrow {
        !            24: % angle x y
        !            25:     newpath
        !            26:     moveto
        !            27:     dup rotate
        !            28:     -13 6 rlineto
        !            29:     4 -6 rlineto
        !            30:     -4 -6 rlineto
        !            31:     closepath
        !            32:     gsave
        !            33:     0 setlinejoin
        !            34:     stroke
        !            35:     grestore
        !            36:     fill
        !            37:     neg rotate
        !            38: } def
        !            39: 
        !            40: endps
        !            41: 
        !            42: /*
        !            43:  * The following proc has an interesting feature.  Since we draw an oval by
        !            44:  * drawing a unit circle, then scaling it in both directions, we run into the
        !            45:  * problem that the linewidth also gets scaled!  We avoid this by reverting
        !            46:  * to the device matrix (the non-scaled matrix) just before stroking the line.
        !            47:  * This works because the path is built up with the scaled matrix, but the
        !            48:  * stroke is done with the unscaled one.  Neat, huh?
        !            49:  */
        !            50: 
        !            51: defineps PSFramedOval(float x, y, w, h)
        !            52:     w h x y oval
        !            53:     matrix defaultmatrix setmatrix stroke
        !            54: endps
        !            55: 
        !            56: defineps PSFilledOval(float x, y, w, h)
        !            57:     w h x y oval fill
        !            58: endps
        !            59: 
        !            60: defineps PSLine(float x, y, w, h)
        !            61:     w h x y line
        !            62: endps
        !            63: 
        !            64: defineps PSCurve(float x0, y0, x1, y1, x2, y2, x3, y3)
        !            65:     x0 y0 moveto x1 y1 x2 y2 x3 y3 curveto stroke
        !            66: endps
        !            67: 
        !            68: defineps PSArrow(float x, y, angle)
        !            69:     angle x y arrow
        !            70: endps
        !            71: 
        !            72: defineps PSSetParameters(int cap, join; float linewidth)
        !            73:     join cap linewidth setup
        !            74: endps

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