3월 28일 실습

PostScript1/box - loop.ps

+%!
+% Box Drawing Program
+
+/box {
+0 0 moveto
+100 0 lineto
+100 100 lineto
+0 100 lineto
+0 0 lineto
+stroke
+} def
+
+200 200 translate
+
+0 10 300 
+    { dup 150 ne
+        { gsave rotate 100 0 translate box grestore }
+        { gsave rotate 100 0 translate 1 0 0 setrgbcolor box grestore } 
+ifelse } for
+
+%0 10 300 
+%    { dup 150 ne
+%        { gsave dup translate box grestore }
+%        { gsave dup translate 1 0 0 setrgbcolor box grestore } 
+%ifelse } for
+
+%0 10 300 {
+%    gsave 
+%    dup translate box 
+%    grestore
+%} for
+
+%0.0 0.02 1.0 {
+%    gsave 
+%    300 mul dup translate box 
+%    grestore
+%} for
+
+%0.0 0.02 1.0 { 
+%    3 rotate 0 0 setrgbcolor box 
+%} for
+
+%0.0 0.02 1.0 { 
+%    10 10 translate 0 0 setrgbcolor box 
+%} for
+
+0 { 10 10 translate gr_color setgray box 
+    0.05 gr_color add
+    /gr_color exch def
+} repeat
+
+showpage
\ No newline at end of file