Return to BezierWraps.psw CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / AppKit / BackspaceViews / Bezier

Annotation of Examples/AppKit/BackspaceViews/Bezier/BezierWraps.psw, revision 1.1.1.1

1.1       root        1: /* ------------ These wraps are all for bezier ---------------- */
                      2: /* This bezier hack was mostly written by mike dixon.  -s              */
                      3: 
                      4: defineps PSWbezierCreate()
                      5: 
                      6:        128 array /myArray exch def
                      7:        
                      8:        /h 0 def        %starting hue
                      9: 
                     10:        /setnewcolor    %tweak the hue
                     11:        {
                     12:                h 1 50 div add
                     13:                dup 1 gt { 1.0 sub } if
                     14:                dup /h exch def
                     15:                1 1 sethsbcolor
                     16:        } def
                     17: 
                     18: 
                     19:        /adj { % dx
                     20:         rand 50000000 idiv add dup 0 le {-5}{5} ifelse add }
                     21:        bind def % dx'
                     22: 
                     23:        /upd { %  dx x max
                     24:             yield exch 2 index add 2 copy le  % dx max x' over?
                     25:            { 1 index sub sub exch neg adj neg exch }
                     26:           { exch pop dup 0 lt { neg exch adj exch } if }
                     27:           ifelse }
                     28:        bind def % dx' x'
                     29: 
                     30:        /xtr { % dxa xa dya ya dxb xb dyb yb ...
                     31:               14 index 13 index 12 index 11 index 10 index 9 index 8 index 7 index }
                     32:        bind def % dxa xa dya ya dxb xb dyb yb ... xa ya xb yb ...
                     33: 
                     34:        /updl { % dxa xa dya ya dxb xb dyb yb ...
                     35:             xtr 24 8 roll
                     36:            4 { ht upd 16 2 roll wd upd 16 2 roll } repeat
                     37:                   % xa ya xb yb ... dxa' xa' dya' ya' dxb' xb' dyb' yb' ...
                     38:                        setnewcolor xtr moveto curveto stroke
                     39:           }
                     40:        bind def
                     41: 
                     42:        /updlNoDraw {
                     43:             xtr 24 8 roll
                     44:            4 { ht upd 16 2 roll wd upd 16 2 roll } repeat
                     45:                        xtr 8 { pop } repeat
                     46:           }
                     47:        bind def
                     48: 
                     49: endps
                     50: 
                     51: defineps PSWbezierInit(float width, height)
                     52: 
                     53:        /wd width def
                     54:        /ht height def
                     55: 
                     56:        1 1 2 1 3 1 4 1      5 1 6 1 7 1 8 1
                     57:        14 { updlNoDraw } repeat
                     58:        myArray astore pop
                     59:        
                     60: endps
                     61: 
                     62: defineps PSWbezierOneStep()
                     63: 
                     64: myArray aload pop
                     65: 128 -8 roll 0 setgray moveto curveto stroke updl
                     66: myArray astore pop
                     67: 
                     68: endps

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