「TeXばなし/馬鹿な方法」の編集履歴(バックアップ)一覧に戻る
%! /ed {exch def} def /koch { % level len 2 dict begin /len ed /level ed level 1 ge { level 1 sub len 3 div 2 copy koch 2 copy 60 rotate koch 2 copy -120 rotate koch 60 rotate koch }{ len 0 rlineto } ifelse end } def /kochcurve { % level len x0 y0 gsave translate 0.1 setlinewidth newpath 0 0 moveto koch stroke grestore } def 1 setlinecap 1 setlinejoin 5 400 100 100 kochcurve showpage
ren %1 %1.org gswin32c -sOutputFile=zzz.tmp -sDEVICE=epswrite -dBATCH -dNOPAUSE %1.org gswin32c -sDEVICE=bbox -dBATCH -dNOPAUSE %1.org 2> zzz2.tmp echo %%!PS-Adobe-3.0 EPSF-3.0 > zzz3.tmp copy zzz3.tmp + zzz2.tmp zzz4.tmp sed -e "1,3D" zzz.tmp > zzz5.tmp copy zzz4.tmp + zzz5.tmp %1