PostScript ループ for, loop, repeat, 再帰/Times-Italic findfont 300 scalefont setfont /printZip { 0 0 moveto (Zip) show } def /printing{ .99 -.03 0 { setgray printZip -1 .5 translate } for } def 80 500 translate printing 1 setgray printZip 0 -400 translate printing showpage % --- procedures --------------------------------- /pagewidth { 8.5 72 mul } def /doCircle { xpos ypos radius 0 360 arc stroke } def /increase-x { xpos radius add /xp
