Student Procedures ~ Turtle Patterns


Procedures

The procedures allow you to make some crazy shapes like triangles, squares, hexagons, circles etc. etc.
This is the procedure too make a tree
to tree
pu
setpos[-106 5]
pd
setc 29
fd 95
seth 270
fd 15
seth 180
fd 95
seth 90
fd 15
pu setpos[-120 98]
setc 56
pd
seth 270
fd 30
seth 300
fd 15
seth 10
fd 25
seth 45
fd 25
seth 90
fd 55
seth 120
fd 25
seth 180
fd 15
seth 200
fd 25
seth 270
fd 40
end
(Genai B. 6/7 W)


Here is how to make a sun:

to sun
pd
setc 45 pu setpos [-353 138] pd repeat 360[fd 1 rt 1] seth 90 pu setpos [-295 140] pd fill setpensize 10 setpos[-295 20] setpos [-295 140] setpos [-175 140] setpos [-295 140] setpos [-295 212] setpos [-295 140] setpos [-366 140] setpos [-295 140]
end

-Samantha 6/7E (2013)

This is how to make a volcano. It is sort of specific to my version of the My Dream House project. Edit it to your need.

to volcanoBuild
setc 39
pd
fd 80
repeat 3 [rt 90 fd 15 lt 90 fd 15]
rt 90
fd 12
pu
setc 16
bk 12
lt 44
pd
bk 63
pu
fd 2
rt 90
fd 2
lt 90
fill
fd 20
fill
fd 22
fill
rt 90
fd 10
setc 39
fill
end

~Ethan 6/7 E (2013)


This is how you make a christmas star:
to star
pd
repeat 3 [ fd 200 rt 160 ]
repeat 5 [ fd 200 rt 160 ]
repeat 3 [ fd 200 rt 160 ]
seth 0
end
~Eileen 6/7V (2013)


to sun
pu
setpos [140 95]
pd
setc 45
repeat 360 [fd 1 rt 1]
pu
setpos [201 99]
pd
fill
setpensize 5
pu
setpos [146 87]
seth 270
pd
fd 50
pu
setpos [152 63]
seth 225
pd
fd 50
pu
setpos [189 44]
seth 180
pd
fd 50
pu
setpos [222 61]
seth 135
pd
fd 50
pu
setpos [162 124]
seth 315
pd
fd 50
pu
setpos [229 126]
seth 45
pd
fd 50
end
-Rosalie 6/7A

This is how to make a door knob.

To knob
repeat 50 [fd 1 rt 55]
end

This is to make a little tree

to tree
setc 19 pu
setpos [99 -117]
pd fd 30
setc 64
seth 180
rt 90
fd 10
fd 10
seth 0
rt 20
fd 20
fd 20
rt 130
fd 40
seth 180
rt 90
fd 20 pu
setpos [96 -73] pd
fill
end

- Fatima F. 6/7 X


This is a really really cool design that I discovered when I was bored. pu setpos [0 0] setpensize 2 pd repeat 720 [fd 5 lt .5] Nathan M. 6/7B


Here is a shape I discovered as I was exploring micro worlds.
to polygon
pd repeat 6 [fd 80 rt 360 / 6]
end

to freak
cg repeat 36 [ polygon rt 360 / 30 ]
end

-Damon



This is a shape i was making when i was on Micro Worlds it's a circle and a triangle :p
pd repeat 360 [fd 1 rt 1]
pd repeat 3 [fd 100 rt 360 /3]
(Love, Emilia R 6/7W) *_*


Here are some freaky shapes i discovered while in Micro Worlds

to lacey
pd fd 105 rt 55 fd 105
end

to spiningwheel
pd fd 250 lt 60 rt 50 bk 250
end

to crazy
pd fd 155 fd 105 rt 105
end

to multi
pd repeat 12 [polygon rt 360 / 12]
end

to dubah
pd fd 234 rt 23 fd 74
end

-Alex K.


This is how you make a circle in micro worlds

to circle
pd
repeat 360 [fd 1 rt 1]
end

-Kaelyn C.


To Make a small circle use decimal points

to smallcircle
pd
repeat 360 [fd 0.7 rt 1]
end

- Margot H.


This is a freaky shape I made in micro worlds

to crazy
pd repeat 6 [fd 80 rt 80 rt 90 fd 80 rt 90 fd 80]
end

-Jessica E.


this is OD what i made but you need to have something in the backpack too.
in the backpack make in go forever, then write rt 2000 setc 9 setc 69 on the rules.
then, to write the procedure, write:

to od
pd repeat 1000 [fd 100 rt 1]
end

-Lukas L.


here's one to try, this introduces some new commands

to makepaler
pd setpensize 30
setopacity 72
repeat 36 [fd 10 rt 10 setopacity opacity - 2]
end




Changes color of the background

to flash
pd repeat 140 [setbg bg + 1]
setbg 0
end

-Steven S.


to triangle
repeat 3 [fd 120 rt 120]
end

posted by yo momma


To make a window with a windowsill included, here's the command:

to window
pd
repeat 4 [rt 90 fd 30]
bk 15 rt 90 fd 30 bk 15 lt 90 fd 15 bk 30
end

<(^.^)>
Posted by Liz


to dizzy
pd repeat 9 [fd 100 rt 90 rt 65 bk 20 rt 45]
end

posted by Brandon H.


I have discovered a way to make you turtle move and draw lines with the arrow keys.

to steer
make "key ascii readchar
if :key = 38 [seth 0]
if :key = 39 [seth 90]
if :key = 40 [seth 180]
if :key = 37 [seth 270]
if :key = 30 [seth 0]
if :key = 29 [seth 90]
if :key = 31 [seth 180]
if :key = 28 [seth 270]
if :key = 32 [
ifelse get "t1 "on? [clickoff]
[clickon]]
end

to go
pd
clean
forever [steer]
t1, setinstruction [forever [fd 5 wait 1]]
clickon
end

posted by Luis B.


to door
repeat 2 [ fd 80 rt 90 fd 40 rt 90]
end

to doornob
repeat 50 [ fd 1 rt 55 / 3]
end

posted by craig b.


command for circle

to circle
pd repeat 36 [fd 1 rt 1]
end

posted by daigi s.


command for question and answer pop up:

to question1
question
"| to change shape use the_command.
1 setsh
2 setc |
if answer = 1 [information1 stop]
if answer = 2 [announce "|Wrong answer!]
end

to information1
announce [that's right, move to question2]
end

posted by joanna g.



commmand for reset with score and pictures:

to reset
setscore 0
t1, t2, t3 , ht
end

posted by ashley r.

I found this shape that has so many sides it looks like a circle

pd repeat 10000 [fd .1 rt 360 / 10000]
- Keith Sudo 6/7 Z


Here's how you make your turtle flashy with flashy colors.

Write
"setc random ___ "
anywhere in your procedure,command,back pack, etc.
In the blanks,write any random number. If its a large number, it will flash alot of colors, if you don't, it'll only flash a little bit of colors. DONT INCLUDE THE APOSTROPHES.

Here's an example I used in my procedures:

to flashy
fd 60 rt 60
setc random 867
end


KAITLiN 6/7 C



to rectangle
rt 90
pd
fd 100
rt 90
fd 50
rt 90
fd 200
rt 90
fd 50
rt 90
fd 100
end
-LILA 6/7 C

Here is something i learned in Microworlds . If you like flashing colors u should do this.

make a button name the button colors then in the insturction box put
setc random 100 - Imani Evans 6/7Y


i LEARNED HOW TO MAKE A Decagon. Here are the instructions.
pd repeat 10[ fd 50 rt 360 / 10]- (Joseph A. 6/7B)

I learned how to also make a nonagon. This is what you need to do.
pd repeat 9[fd 50 rt 40]- (Joseph A. 6/7B)


I learned how to make a pentagon. This is what you need to do.
pd repeat 5 [fd 100 rt 360 / 5]- (Armani R. 6/7E)

To draw a hexagon:
pd repeat 6[ fd 50 rt 60]
To draw a octagon:
pd repeat 8[ fd 50 rt 45]
(Rifah K. 6/7 W)


I found out how to make grass.
to paintgrass
pu setpos [-192, -95] repeat 12 [pd setc 57 seth 145 fd 24 seth 45 fd 28]
end
(Grace 6/7 X)


I found out how to make a garage
to garage
pu setpos [102 -3] seth 90 pd fd 150 seth 180 fd 150 seth 0 fd 1 pu setpos[228 -28] pd fd 100 seth 180 fd 100 seth 90
fd 100 seth 0 fd 100 pu setpos [129 -128] pd seth 45 fd 135 pu setpos [131 -31] seth 135 pd fd 135 pu end
Remember to change the coordinates if you want it to make it somewhere else.
- Nathalie 6/7Y

i know how to make a doorknob
to doorknob
setpos [-1 -122]
setpensize 7
pd
fd 1
rt 1
pu
end
make sure you change the pensize so you won't get a little dot!!!
-Anissa 6/7Y


To fill in shapes with a specific color,
Just put in...
setpos [... ...]
setc 104
fill
end
its that easy.
-kate 6/7 B


This procedure helps you in making a doorknob
to doorknob
repeat 360[rt 1 fd .1]
end
its very simple.try it
(josepha 6/7B)

This procedure helps you make a fence.
to fence
rt 45
fd 20
rt 90
fd 20
rt 45
fd 50
rt 180
fd 50
End
Then all you have to do is repeat as much times you want.
(josepha 6/7B)


to sun
pu setpos [ -184 79] pd setc 45 repeat 90 [fd 80 rt 50]
end

- Talia Barnoy 6/7 X

This procedure helps you make a chimney.
To Chimney
pd fd 100 rt 90 fd 30 rt 90 fd 35
End
-Anthony Carrasquillo 6/7B


This procedure helps you make a window.
to window
pd repeat 4 [fd 30 rt 90]
end
-Sinead Kiernan 6/7B

These procedures make art:

Cool ART!

to startPosition
pu setc 9 seth 0 setpos [-118 -110]
end

to windowPosition1
lt 90 fd 5 rt 90 fd 30 lt 90 fd 50 rt 90
end

to windowBuild
pd
setc 27
repeat 4 [fd 40 rt 90]
windowFrame fd 20 windowFrame
repeat 2 [fd 20 rt 90 fd 40 rt 90 windowFrame] pu
end

to windowFrame
pd
repeat 4 [fd 20 rt 90]
pu
end

to windowPosition2
bk 20 rt 90 fd 100 lt 90
end

to windowsRow1
windowPosition1
windowBuild
windowPosition2
windowBuild
end

to windowPosition3
lt 90 fd 100 rt 90 fd 40
end

to windowsRow2
windowPosition3
windowBuild
windowPosition2
windowBuild
end

to allWindowsBuild
windowsRow1
windowsRow2
end

to coolArt
startPosition repeat 50 [allWindowsBuild]
end

-Ethan 6/7 E (2013)