Return to SortWraps.psw CVS log

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

Annotation of Examples/AppKit/SortingInAction/SortWraps.psw, revision 1.1.1.1

1.1       root        1:  
                      2: /* Collection of PSwrap functions for animating sorting activity.
                      3:  * 
                      4:  * Author: Julie Zelenski, NeXT Developer Support
                      5:  * You may freely copy, distribute and reuse the code in this example.  
                      6:  * NeXT disclaims any warranty of any kind, expressed or implied, as to 
                      7:  * its fitness for any particular use.
                      8:  */
                      9: 
                     10: 
                     11: 
                     12: /* PSWswapRects sets the gray to white, fills the white rectangle, sets the 
                     13:  * gray to black, fills the black rectangle, and flushes the drawing to 
                     14:  * the screen immediately.
                     15:  */
                     16: defineps PSWswapRects (float x1, y1, x2, y2, width, height)
                     17:     0.0 setgray
                     18:     x1 y1 width height rectfill
                     19:     1.0 setgray
                     20:     x2 y2 width height rectfill
                     21:     flushgraphics
                     22: endps
                     23: 
                     24: 
                     25: /* PSWmoveRects sets the gray appropriately (gray value is passed as parameter)
                     26:  * fills the rectangle and flushes the drawing to the screen immediately.
                     27:  */
                     28: defineps PSWmoveRect (float x, y, width, height, gray)
                     29:     gray setgray
                     30:     x y width height rectfill
                     31:     flushgraphics
                     32: endps
                     33: 
                     34: 
                     35: /* PSWcompareRects turns on instance drawing, sets the gray to light gray,
                     36:  * fills the two rectangles being compared and turns off instance drawing.
                     37:  */
                     38: defineps PSWcompareRects (float x1,y1,width,height1,x2,y2,height2)   
                     39:     true setinstance
                     40:     .667 setgray    
                     41:     x1 y1 width height1 rectfill
                     42:     x2 y2 width height2 rectfill    
                     43:     false setinstance
                     44: endps
                     45: 
                     46: 
                     47: /* PSWfade simply sovers a semi-transparent white rectangle onto the view to
                     48:  * "fade" the background. 
                     49:  */
                     50: defineps PSWfade(float width, height)
                     51:     1.0 setgray
                     52:     .75 setalpha
                     53:     0 0 width height Sover compositerect
                     54: endps
                     55:     
                     56:     
                     57: /* PSWdrawBorder strokes the rectangle border in black.
                     58:  */
                     59: defineps PSWdrawBorder(float width, height)    
                     60:     0.0 setgray
                     61:     1.0 setalpha
                     62:     1.0 setlinewidth
                     63:     0.0 0.0 width height rectstroke
                     64: endps
                     65: 
                     66: 
                     67: /* PSWdrawName shows the sort name at the specified location.
                     68:  */
                     69: defineps PSWdrawName(float x, y; char *name)
                     70:     0.0 setgray
                     71:     1.0 setalpha
                     72:     x y moveto
                     73:    (name) show
                     74: endps
                     75: 
                     76: 
                     77: /* PSWdrawStrings is used to draw four right-aligned strings at a 
                     78:  * specific height.
                     79:  */
                     80: defineps PSWdrawStrings (char *s1, *s2, *s3, *s4; float height)
                     81:     /rightShow {dup stringwidth pop neg 0 rmoveto show} def
                     82:     0.0 setgray
                     83:     1.0 setalpha
                     84:     140.0 height moveto
                     85:     (s1) rightShow
                     86:     270.0 height moveto
                     87:     (s2) rightShow
                     88:     370.0 height moveto
                     89:     (s3) rightShow
                     90:     480.0 height moveto
                     91:     (s4) rightShow
                     92: endps
                     93: 
                     94:     

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