[MWForum]SETPOS

[Wendy Petti]

If you modify Daniel's hourglass procedure to use the setxy procedure and
variables throughout the procedure, and multiply by -1 as needed to obtain
inverses, you'll be able to write a command like this in the command center
to draw an hourglass to your specifications:
- - - - - - - - - -
hourglass 40 80
- - - - - - - - - -

to hourglass :x :y
cg pd
setxy -1 * :x :y
setxy :x :y
setxy -1 * :x -1 * :y
setxy :x -1 * :y
setxy 0 0
end

If you'd like to write just one procedure instead of calling Daniel's setxy
procedure, you could do it like this:

to hourglass :x :y
cg pd
setpos list -1 * :x :y
setpos list :x :y
setpos list -1 * :x -1 * :y
setpos list :x -1 * :y
setpos [0 0]
end

Wendy

Wendy Petti
OWL's MicroWorlds in Action
http://mia.openworldlearning.org
Math Cats
www.mathcats.com


> -----Original Message-----
> From: mwforum-admin@lists.mathcats.com
> [mailto:mwforum-admin@lists.mathcats.com]On Behalf Of Daniel Ajoy
> Sent: Friday, March 18, 2005 12:44 PM
> To: mwforum@lists.mathcats.com
> Subject: Re: [MWForum]SETPOS
>
>
> On 18 Mar 2005 at 9:17, Jean Stringer wrote:
>
> > I cannot find a way to do this with the five directions.  I
> assume they want me to use variables in
> > the setpos but I have not found a way to do so.
>
> to setxy :x :y
> setpos list :x :y
> end
>
> to hourglass
> cg pd
> setxy -45 60
> setxy 45 60
> setxy -45 -60
> setxy 45 -60
> setxy 0 0
> end
>
>
> Daniel
> OpenWorld Learning