犬

koch[length_, 8] := forward[length] ;

koch[length_, depth_] := ( koch[length/3, depth - 1] ;       &n ... p;         right[90] ; koch[length/3, depth - 1]) ;

RowBox[{snow[n_], :=, RowBox[{(, RowBox[{initial[], ;, RowBox[{koch, [, RowBox[{1., ,, n}], ]}], ;, showturtlepath}], )}]}]

Table[snow[i], {i, 1, 5}]

[Graphics:HTMLFiles/index_19.gif]

[Graphics:HTMLFiles/index_23.gif]

犬です

３Ｄ１６　丹野　風雅