Draw a Koch curve. See details: Koch curve

 
to ff :l :i
cs
right 90
pd
pr [lenght] show form :l  4 0
pr [iterations] show form  :i 4 0
koch :l :i
end
 
to koch :len :iterations 
ifelse :iterations = 1 [fd :len] [ 
koch :len :iterations - 1 
left 60 
koch :len :iterations - 1 
right 120 
koch :len :iterations - 1 
left 60 
koch :len :iterations - 1]
end
 
to zzz
ifelse YesNoBox [Welcome] [YES=run it, NO=show me the code] [ff 22 3] [edall]
end
 
Make "startup [zzz]
 