% PostScript program KochX1.ps

% Created by A. Strumia - May 8, 1995

/a 400 def % choose segment lenghth

/segm { a 0 rlineto } def % plot segment

/proc { segm } def % first order procedure

/triang {

proc

120 rotate

proc

120 rotate

proc

closepath

fill

} def % build up a triangle

newpath % plot the traingle

100 300 moveto

0 0 1 setrgbcolor

triang

stroke

showpage