What shapes can you make on MSW logo?

Answer 1

to circle

repeat 360 [ fd 2 rt 1]

End

to fillblue

pu setpos [20 20] setfc 1 fill

End

to fillgreen

pu setpos [20 20] setfc 2 fill

end

to fillorange

setpos [120 20] setfc 14 fill

End

to fillred

pu setpos [120 20]

pu setpos [120 20] setfc 4 fill

End

to France

pd outline pu fillblue fillred

End

to hectagon

repeat 6 [fd 100 rt 60]

End

to house

REPEAT 4 [fd 100 lt 90] fd 100 lt 90 REPEAT 3 [FD 100 RT 120] lt 90 fd 100 rt 90 fd 35 REPEAT 2 [FD 60 RT 90 FD 50 RT 90] fd -5 rt 90 REPEAT 2 [FD 40 RT 90 FD 25 RT 90] penup fd 60 pendown REPEAT 4 [FD 25 RT 90]

end

to houseb

cs pd house pu lt 90 fd 20 setbrown rt 90 fd 50 setbrown

End

to Ireland

pd outline pu fillgreen fillorange

End

to italy

pd outline pu fillgreen fillred

End

to italy1

pd outline pu fillgreen fillred

End

to libya

pd square pu setpos [50 50] setfc 10 fill

End

to oblong

repeat 2 [fd 20 rt 90 fd 100 rt 90]

End

to rasta

pd italy pu setpos [60 50] setfc 6 fill

End

to rectangle

repeat 3 [fd 100 rt 90 fd 50 rt 90]

End

to Redbox

pd square pu setpos [50 50] setfc 4 fill

End

to setbrown

setfc 8 fill

End

to square

repeat 4 [fd 100 rt 90]

End

to star

REPEAT 8 [FD 100 RT 135]

End

to star2

Repeat 5 [fd 100 rt 144]

End

to swiss

redbox pd fd 32 rt 90 fd 8 rt 90 fd 32 lt 90 fd 16 rt 90 fd 8 rt 90 fd 16 rt 90 rt 90 lt 180 lt 90 fd 32 lt 90 lt 180 fd 8 rt 90 fd 32 lt 90 fd 16 rt 90 fd 8 rt 90 fd 16 setpos [55 50]

setfc 7 fill

End

to tri

repeat 3 [fd 100 rt 120]

End