% PostScript program KochX5.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

/a a 3 div def

/seg { a 0 rlineto } def

/proc3 {

segm

-60 rotate

segm

120 rotate

segm

-60 rotate

segm

} def

/proc2 {

proc3

-60 rotate

proc3

120 rotate

proc3

-60 rotate

proc3

} 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 0 1 setrgbcolor

triang

stroke

showpage