2008年12月1日月曜日

PostScript

% sample.ps
%
/cm { 28.3 mul } def
/Pi 3.141592 def
%
/Palatino-Roman findfont
1.2 cm scalefont
setfont
%
%
/str (I was free today. Nevertheless I took nothing. I will intend to settle a problem tomorrow.) def
%
%
/r str stringwidth pop 1 cm add 2 div Pi div def
%
0.8 0.5 0.3 setrgbcolor
%
10 cm 14 cm r sub moveto
{
( ) dup 0 4 -1 roll put
stringwidth pop r div Pi div 180 mul rotate
pop
} str kshow
%
showpage
%% EOF





これをテキストエディタで入力し、拡張子を .ps で保存。
それを、gv なりで見てみると面白いんじゃね?っていう、χrosくんからの提案。

なかなか面白い。

上手いこといじれば画像の連結が可能。らしい。

0 件のコメント: