% PostScript program KochX4.ps

% Created by A. Strumia - May 8, 1995

/a 400 def

/a a 3 div def

/a a 3 div def

/a a 3 div def

/segm { a 0 rlineto } def

/proc2 {

segm

-60 rotate

segm

120 rotate

segm

-60 rotate

segm

} def

/proc1 {

proc2

-60 rotate

proc2

120 rotate

proc2

-60 rotate

proc2

} 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

0 1 1 setrgbcolor

triang

stroke

showpage