Crazy Face by Jordan

TO BOTTRI
    RT 90
    REPEAT 3 [ FD 20 LT 120 ]
    LT 90
END

TO DOIT
    READYFORSQUARE
    SQUARE
    PENUP
    SETPOS [ -150 150 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ 50 150 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ -150 -200 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ 50 -200 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ -200 -25 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ 100 -25 ]
    PENDOWN
    RECT
    PENUP
    SETPOS [ -180 25 ]
    PENDOWN
    TOPTRI
    PENUP
    SETPOS [ -140 25 ]
    PENDOWN
    TOPTRI
    PENUP
    SETPOS [ 160 25 ]
    PENDOWN
    TOPTRI
    PENUP
    SETPOS [ 120 25 ]
    PENDOWN
    TOPTRI
    PENUP
    SETPOS [ -195 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ -160 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ -125 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ 105 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ 140 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ 175 -25 ]
    PENDOWN
    BOTTRI
    PENUP
    SETPOS [ -50 100 ]
    PENDOWN
    TEE
END

TO READYFORSQUARE
    PENUP
    SETPOS [ -200 -200 ]
    PENDOWN
END

TO RECT
    REPEAT 2 [ FD 50 RT 90 FD 100 RT 90 ]
END

TO SQUARE
    REPEAT 4 [ FD 400 RT 90 ]
END

TO TEE
    RT 90
    FD 100
    RT 90
    FD 25
    RT 90
    FD 35
    LT 90
    FD 50
    RT 90
    FD 30
    RT 90
    FD 50
    LT 90
    FD 35
    RT 90
    FD 25
END

TO TOPTRI
    RT 90
    REPEAT 3 [ FD 20 RT 120 ]
    LT 90
END
Crazy Face by Jordan

Valid XHTML 1.0!