level 1
2
3
turtle
ARC length angle
CIRCLE radius
CLEARTEXT
HIDETURTLE
PENWIDTH width
PRINT [ . ]
RESET
SETHEADING angle
SETX x
SETXY x y
SETY y
SHOWTURTLE
maths
ARCTAN number
COS angle
INT number
RANDOM number
ROUND number
SIN angle
SQRT number
lists
BUTFIRST list
BUTLAST list
FIRST list
FPUT thing list
ITEM index thing
LAST list
LPUT thing list
SETITEM index array value
to line :count :length ifelse :count = 1 [fw :length] [ make "count :count -1 line :count :length lt 60 line :count :length rt 120 line :count :length lt 60 line :count :length ] end to koch :count :length rt 30 line :count :length rt 120 line :count :length rt 120 line :count :length end reset pu setxy -190 -120 pd koch 5 5
Your browser doesn't support canvas tags.