「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
