「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
for %%F in (*.ps) do call eps2eps %%F %%~nF.eps
