[MWForum]Circle and arc help

[Kathryn Boyle]

--Apple-Mail-1--705560475
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	format=flowed

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

--Apple-Mail-1--705560475
Content-Transfer-Encoding: 7bit
Content-Type: text/enriched;
	charset=US-ASCII

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


<fontfamily><param>Geneva</param><smaller><smaller><smaller>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

</smaller></smaller></smaller></fontfamily>
--Apple-Mail-1--705560475--