% PostScript program KochX3.ps

% Created by A. Strumia - May 8, 1995

/a 400 def

/a a 3 div def

/a a 3 div def

/segm { a 0 rlineto } def

/proc1 {

segm

-60 rotate

segm

120 rotate

segm

-60 rotate

segm

} def

/proc {

proc1

-60 rotate

proc1

120 rotate

proc1

-60 rotate

proc1

} def

/triang {

proc

120 rotate

proc

120 rotate

proc

closepath

fill

} def

newpath

100 300 moveto

1 0 0 setrgbcolor

triang

stroke

showpage