% PostScript program KochX2.ps

% Created by A. Strumia - May 8, 1995

/a 400 def

/a a 3 div def

/segm { a 0 rlineto } def

/proc {

segm

-60 rotate

segm

120 rotate

segm

-60 rotate

segm

} def

/triang {

proc

120 rotate

proc

120 rotate

proc

closepath

fill

} def

newpath

100 300 moveto

1 1 0 setrgbcolor

triang

stroke

showpage