to line :count :length
ifelse :count = 1 [cock :length]
[
make "count :count -1
line :count :length
lt :aa line :count :length
rt :bb line :count :length
lt :bb - :aa line :count :length
]
end
to cock :length
pu
fw :length /8
lt 90
fw :length / 8
pd circle :length /8 pu
bw :length /4
pd circle :length /8 pu
rt 90
fw :length /8
pd fw :length /8 * 4
lt 90
fw :length /8
arc :length/8 180
rt 90 fw :length / 8
bw :length /8 lt 90 fw :length /8
rt 90
pd bw :length /8 *4
pu
fw :length /8 * 6
rt 90
fw :length /8
lt 90
fw :length /3
end
to koch :count :length
rt 30 line :count :length
rt 120 line :count :length
rt 120 line :count :length
end
reset
setxy 250 490
make "aa 60
make "bb 120
lt :bb - :aa
koch 4 11