make "s 100
repeat 9 [pe square :s wait 10 make "s :s-10]
ppt
end
to squarepattern
make "s 10
repeat 9 [square :s wait 10 make "s :s+10]
end
to squares
repeat 10 [squarepattern squaredelete]
end
to squaredelete
make "s 100 repeat 9 [pe square :s wait 10 make "s :s-10] ppt end to squarepattern make "s 10 repeat 9 [square :s wait 10 make "s :s+10] end to squares repeat 10 [squarepattern squaredelete] end
0 Comments
to star :s
repeat 5 [fd :s rt 720/5] end to growstar make "x 30 repeat 60 [star :x wait 2 pe star :x pu fd 4 ppt pd make "x :x+2] end Enter the code below to make the shrinking square. to shrinksquare
make "s 100 repeat 25 [sq :s pu fd 5 rt 90 fd 8 lt 90 pd make "s :s-4] end to square :s repeat 4 [fd :s rt 90] end |
Categories
All
Archives
December 2019
|
© Scoil Naomh Colmcille 2019 |
Contact Us |