to
initialise
clearscreen hideturtle
end
to sendhome
penup home
end
to hull
sendhome pendown
right 90 forward 100
right 125 forward 35
right 55 forward 160
right 80 forward 29
right 100 forward 85
end
to mainsail
sendhome
right 90 forward 16 left 90 forward 6 pendown
forward 150 left 150 forward 173 left 120 forward 85
end
to jib
sendhome
right 90 forward 20 left 90 forward 12 pendown
forward 110 right 150 forward 128 right 120 forward 64
end
to keel
sendhome
right 90 forward 12 right 90 forward 29
pendown forward 25 right 70 forward 13
right 95 forward 30
end
to sailboat
initialise
hull mainsail jib keel
end