ring wandering
%!PS-Adobe-3.0 % PostScript実習マニュアル % P.68 3.11 グラフィックス状態の保存
/square { 2 dict begin /y exch def /x exch def x y moveto 200 0 rlineto 0 200 rlineto -200 0 rlineto fill end } def
/specialsquare { gsave 200 200 translate 50 rotate 2 0.5 scale 0.4 0.8 0 setrgbcolor 0 0 square grestore } def
0 0.4 0.8 setrgbcolor 200 100 square specialsquare 200 500 square showpage
0 件のコメント:
コメントを投稿