(*This is MATHEMATICA code for drawing a peano curve.After the code has been loaded,typing `peano[n]' will draw the nth generation of the snowflake*)g=0.5;
w=.002;
peano[n_Integer?NonNegative,g_,w_]:=Graphics[{GrayLevel[g],Thickness[w],FixedPoint[(#1/.Line[{start_,finish_}]:>doline[start,finish])&,{Line[{{0,0},{1/2,Sqrt[3]/2}}],Line[{{1/2,Sqrt[3]/2},{1,0}}],Line[{{1,0},{0,0}}]},n]}];
Show[AspectRatio->Automatic,PlotRange->All]

doline[start_,finish_]:=Module[{vec,normal},vec=finish-start;
normal=(1.5) Reverse[vec]{-1,1}Sqrt[3]/6;
{Line[{start,start+vec/3}],Line[{start+vec/3,start+vec/3+normal}],Line[{start+vec/3+normal,start+vec/2-normal}],Line[{start+vec/2-normal,start+2 vec/3+normal}],Line[{start+2 vec/3+normal,start+2 vec/3}],Line[{start+2 vec/3,finish}]}]

flake[n_,g_,w_]:=KochSnowflake[n,g,w];
plot[n_g_,w_]:=Show[flake[n,g,w],AspectRatio->Automatic,PlotRange->All]


newsave:=Export["test2.eps",%];

vk[n_]:=Show[peano[n,0,.005],AspectRatio->Automatic,PlotRange->All]

vk[4]