Tangram

TO place x y
    POSITION [200+x*40, 400-y*40]
END

TO line x y x2 y2
    PENUP   place x y
    PENDOWN place x2 y2
END

TO grid x y x2 y2
    REPEAT y2-y+1 [
        line x y+REPCOUNT-1 x2 y+REPCOUNT-1
    ]
    REPEAT x2-x+1 [
        line x+REPCOUNT-1 y x+REPCOUNT-1 y2
    ]
END

PICTURE “drawtangram.svg” [
PENSIZE    2 
HIDETURTLE
PENCAP     “ROUND”
PENCOLOR   “SILVER”
grid 0 0 4 4  SLEEP 1000
PENCOLOR “BLACK”

line 0 4 4 0  SLEEP 1000
line 2 4 4 2  SLEEP 1000
line 1 3 2 4  SLEEP 1000
line 0 0 3 3  SLEEP 1000
line 3 3 3 1  SLEEP 1000

FILLCOLOR “RED”      line 0 0 0 4  place 2 2             FILL  SLEEP 1000
FILLCOLOR “BLUE”     line 0 0 4 0  place 2 2             FILL  SLEEP 1000
FILLCOLOR “GREEN”    line 0 4 2 4  place 1 3             FILL  SLEEP 1000
FILLCOLOR “PURPLE”   line 2 4 4 4  place 4 2             FILL  SLEEP 1000
FILLCOLOR “LIME”     line 3 1 2 2  place 3 3             FILL  SLEEP 1000
FILLCOLOR “FUCHSIA”  line 2 4 1 3  place 2 2  place 3 3  FILL  SLEEP 1000
FILLCOLOR “YELLOW”   line 3 1 3 3  place 4 2  place 4 0  FILL  SLEEP 2000
]