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 RECTANGLE :length :width PD REPEAT 2 [FD :length RT 90 FD :width RT 90] PU END TO FILLIT :c PU FD 10 RT 90 FD 10 colour :c fill BK 10 LT 90 BK 10 END TO SQUARE :side PD REPEAT 4 [FD :side RT 90] PU END TO DOOR PD colour "blue RECTANGLE 40 20 fillit "blue colour "black PU END TO WINDOW PD colour "green REPEAT 4 [SQUARE 10 RT 90] colour "black PU END TO WALL PD RECTANGLE 70 100 RT 90 FD 20 LT 90 DOOR LT 90 FD 20 RT 90 PU RT 90 FD 70 LT 90 FD 30 PD WINDOW PU LT 90 FD 70 LT 90 FD 30 RT 180 fillit "pink END TO ROOF colour "red PD LT 90 FD 60 RT 120 FD 60 RT 60 FD 60 RT 60 FD 60 RT 120 FD 60 RT 90 PU fillit "red colour "black END TO HOUSE WALL FD 70 RT 90 FD 50 LT 90 ROOF LT 90 FD 50 LT 90 FD 70 RT 180 END TO STREET CS HOME PU LT 90 FD 200 RT 90 REPEAT 3 [HOUSE PU RT 90 FD 130 LT 90 PD] END colour "black STREET colour "yellow fill
Your browser doesn't support canvas tags.