Return to Rectangle.eps CVS log

Up to [NeXTSTEP 3.3 examples] / Examples / PostScript

Annotation of Examples/PostScript/Rectangle.eps, revision 1.1.1.1

1.1       root        1: %!PS-Adobe-2.0 EPSF-2.0
                      2: %%Title: Rectangle.eps
                      3: %%Creator: Ali Ozer
                      4: %%CreationDate: Tue Aug 14 10:38:47 1990
                      5: %%Pages: 0 1
                      6: %%BoundingBox: -5 0 600 792
                      7: %%EndComments
                      8: % Fun with scaling and rotating...
                      9: % This program draws a rectangle over and over again while
                     10: % slightly altering the scale and rotate values by a
                     11: % fixed amount. This results in symmetric patterns.
                     12: % Author: Ali Ozer, March 1989
                     13: 
                     14: % Initialize the random number generator
                     15: % You can also seed the random number generator with
                     16: % a constant number to get the same pattern everytime...
                     17: usertime srand
                     18: 
                     19: % Random number generator 
                     20: % a b randfloat generates one of 1000 numbers [a..b)
                     21: /randfloat {              % start end
                     22:   exch dup 3 1 roll       % start end start
                     23:   sub                     % end-start
                     24:   rand 1000 mod 1000 div  % 0 - 0.999
                     25:   mul add              
                     26: } bind def
                     27: 
                     28: % The drawing routine.
                     29: /drawbox {
                     30:   -100 -100 200 200 rectstroke
                     31: } bind def
                     32: 
                     33: % Change the following for different pictures...
                     34: /xscaleAmount 0.98 1.02 randfloat def
                     35: /yscaleAmount 0.98 1.02 randfloat def
                     36: /rotateAmount -3.0 3.0  randfloat def
                     37: /numSteps 200 def   
                     38: 
                     39: % Come up towards the middle of a 8.5x11 (default) page
                     40: 72 8.5 mul 2 div 72 11 mul 2 div translate
                     41: 
                     42: % Have thin lines (even when scaled; 0 linewidth
                     43: % means "use the smallest line you can")
                     44: 0 setlinewidth 
                     45: 
                     46: % Take numSteps steps from 1 to 0, drawing a
                     47: % rectangle and altering the coordinate system
                     48: % by the above values at every step...
                     49: 
                     50: 1 1 numSteps div neg 0 {
                     51:   setgray
                     52:   xscaleAmount yscaleAmount scale
                     53:   rotateAmount rotate
                     54:   drawbox
                     55: } for
                     56: 
                     57: 
                     58: %%EndFile

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