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
HOME RESET make "noofsides 6 make "size 100 TO drawPolygon REPEAT :noofsides[ right 360/:noofsides forward :size ] END TO changeColour color [item :i :col] END make "col ["black "red "orange "green "blue "fuchsia] make "x 0 make "i 0 changeColour REPEAT 36[ make "x :x + 1 drawPolygon if :x%6=0 make "i :i + 1 changeColour right 10 ] HIDETURTLE
Your browser doesn't support canvas tags.