Circle and arc help

[mwforum@xxxxxxxxxxxxxxxxxx (Kathryn Boyle)]

Here are the procedures that I used with LogoWriter.  I am currently 
using MicroWorlds 2.O on a variety of Macs with a variety of operating 
systems - everything from 8.0 to OS 10.  I keep these procedures in a 
file called circle.tools and I use the import under the file menu to 
import the procedures whenever I need them.  I mostly use them with 
kindergarteners, where I don't expect them to try to understand how to 
make a circle.  I find that my older students mostly use the paint 
tools to make circles.  I do bring them out for my own enjoyment or if 
I'm doing a series geometry projects.

I know that I go through quite an adjustment every time have changed 
versions of Logo.  I started with Apple Logo on an Apple II.  I loved 
Sprite Logo.  Does anyone else remember that one?  I have found that 
every version has pluses and minuses.  Mostly, when I have to rethink 
an old loved procedure or project, I have benefited from the 
experience.  If you live with computers, you have to get used to and 
learn to love change.

Happy exploring!  Kathy

to circler :r
make "steps (2 * :r * 3.1416 / 36)
repeat 36[rt 5 fd :steps rt 5]
end

to circlel :r
make "steps (2 * :r * 3.1416 / 36)
repeat 36[lt 5 fd :steps lt 5]
end

to arcr :r :d
make "steps (2 * :r * 3.1416 / 36)
make "rem remainder :d 10
repeat :d / 10[rt 5 fd :steps rt 5]
if :rem > 0 [fd :steps * :rem / 10 rt :rem]

end

to arcl :r :d
make "steps (2 * :r * 3.1416 / 36)
make "rem remainder :d 10
repeat :d / 10[lt 5 fd :steps lt 5]
if :rem > 0 [fd :steps * :rem / 10 lt :rem]

end
Here are the procedures that I used with LogoWriter.  I am currently using MicroWorlds 2.O on a variety of Macs with a variety of operating systems - everything from 8.0 to OS 10.  I keep these procedures in a file called circle.tools and I use the import under the file menu to import the procedures whenever I need them.  I mostly use them with kindergarteners, where I don't expect them to try to understand how to make a circle.  I find that my older students mostly use the paint tools to make circles.  I do bring them out for my own enjoyment or if I'm doing a series geometry projects.

I know that I go through quite an adjustment every time have changed versions of Logo.  I started with Apple Logo on an Apple II.  I loved Sprite Logo.  Does anyone else remember that one?  I have found that every version has pluses and minuses.  Mostly, when I have to rethink an old loved procedure or project, I have benefited from the experience.  If you live with computers, you have to get used to and learn to love change.

Happy exploring!  Kathy

to circler :r
make "steps (2 * :r * 3.1416 / 36)
repeat 36[rt 5 fd :steps rt 5]
end

to circlel :r
make "steps (2 * :r * 3.1416 / 36)
repeat 36[lt 5 fd :steps lt 5]
end

to arcr :r :d
make "steps (2 * :r * 3.1416 / 36)
make "rem remainder :d 10
repeat :d / 10[rt 5 fd :steps rt 5]
if :rem > 0 [fd :steps * :rem / 10 rt :rem]

end

to arcl :r :d
make "steps (2 * :r * 3.1416 / 36)
make "rem remainder :d 10
repeat :d / 10[lt 5 fd :steps lt 5]
if :rem > 0 [fd :steps * :rem / 10 lt :rem]

end