Koch snowflake in PostScript

%!PS-Adobe-3.0 EPSF-3.0
%%BoundingBox: 0 0 110 120
%%EndComments
% Koch snowflake in PostScript
% (c) Olivier Pirson --- http://www.opimedia.be/
/left {% angle
    rotate
} def

/right {% angle
    neg rotate
} def


/flock_side {% len, ite
    /ite exch def

    ite 0 gt {
        /len exch 3 div def
        /ite ite 1 sub def

        len ite
        len ite
        len ite
        len ite flock_side
        60 left
        flock_side
        120 right
        flock_side
        60 left
        flock_side
    } {
        0 rlineto
    } ifelse
} def


.1 setlinewidth
5 89 moveto

100 7
/ite exch def
/len exch def

len ite
len ite

len ite flock_side

120 right
flock_side

120 right
flock_side

stroke
%%EOF