%!PS (ps3d.inc) run << /PageSize [285 420] >> setpagedevice -70 0 100 translate3d [0 0 690 2] set-eye [2 1 0.5] -45 rotate3d /setrandcolor { % def /r1 {rand 5 mod 3 div} def /r2 {rand 4 mod 4 div} def /r3 {rand 3 mod 4 div} def r1 r2 r3 setrgbcolor } def /DS-Chocolade findfont [140 0 0 400 0 0] makefont setfont 1 1 20 { % for newpath 0 1 20 { % for /y exch def 0 y 320 mul moveto (2016) true charpath } for 2d-path-convert clip gsave newpath 0 20 300 { % for /x exch def /w 20 def gsave x 0 0 moveto3d x w add 0 0 lineto3d x w add 6000 0 lineto3d x 6000 0 lineto3d x 0 0 lineto3d closepath setrandcolor fill grestore } for grestore 0.7 0 0.1 setrgbcolor stroke showpage } for
今年はBill CasselmanさんのPostScript用3Dライブラリ ps3d.inc
を利用しました(参照)。
使っているフォントは DS Chocolade。
スターウォーズは関係ないんだからね。
ps3d.inc
はとても読みやすいソースで、しかも開発者のBillさん自身が
過去のやつ。
0 件のコメント:
コメントを投稿