Koch curve: Difference between revisions

=={{header|Logo}}==

{{works with|FMSLogo}}

<lang >

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]

</lang>