[MWForum]Help making 3D Balls
Mikula Family
mwforum@lists.mathcats.com
Sun, 03 Aug 2003 19:24:59 -0700
--------------444726C683FEC210BB32CB39
Content-Type: text/plain; charset=us-ascii; x-mac-type="54455854"; x-mac-creator="4D4F5353"
Content-Transfer-Encoding: 7bit
Can you describe in more detail what you want? Do you want your 3D
balls filled with solid color?
I think it would be helpful when posting code if we stated the platform
we are using the the version of MicroWorlds.
I have MicroWorlds 2.03 on Mac and your procedure drew a circle with a
2 colored highlight on the left. Sort of like the shine on an apple
that makes it look 3D. They were not exactly where they belonged though.
Jonathan Jonathan wrote:
>
>
> Greetings all
>
> I am having problems writing a procedure to make 3D balls. I am a
> newbie to LOGO and would appreciate any help or advice.
>
> I was given the procedures below to start off, but despite working on
> them have made no progress.
>
> Thanks
>
> J.
>
>
> to planet :step
> pd repeat 120 [fd :step rt 3]
> end
>
> to planet2 :step :col
> pd setc :col repeat 120 [fd :step rt 3]
> end
>
> to planet3 :step :col
> pd setc :col repeat 120 [fd :step rt 3]
> pu repeat 30 [bk :step lt 3]
> setc :col + 1 setpensize :step + 2
> pd repeat 60 [fd :step rt 3]
> pu repeat 50 [bk :step lt 3]
> rt 90 fd :step + 4 lt 90
> pd setc :col + 2 repeat 40 [fd :step rt 3.5]
> end
>
>
>
>
>
> "Your vision will become clear only when you look into your
> heart... Who looks outside, dreams. Who looks inside,
> awakens."
>
> Carl Jung
>
>
>
> -----------------------------------------------------------------------
> ninemsn Extra Storage is now available. Get five times more storage -
> 10MB in your Hotmail account. Sign up now
> _______________________________________________ MWForum mailing list
> MWForum@lists.mathcats.com
> http://lists.mathcats.com/mailman/listinfo/mwforum attachments
> archived at: http://www.mathcats.com/mwforum/attachments.html
--------------444726C683FEC210BB32CB39
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Can you describe in more detail what you want? Do you want your 3D
balls filled with solid color?
<p>I think it would be helpful when posting code if we stated the platform
we are using the the version of MicroWorlds.
<br>I have MicroWorlds 2.03 on Mac and your procedure drew a circle with
a 2 colored highlight on the left. Sort of like the shine on an apple
that makes it look 3D. They were not exactly where they belonged though.
<br>
<br>
<p>Jonathan Jonathan wrote:
<blockquote TYPE=CITE>
<div style='background-color:'>
<p><font face="Courier New">Greetings all</font>
<p><font face="Courier New">I am having problems writing a procedure to
make 3D balls. I am a</font>
<br><font face="Courier New">newbie to LOGO and would appreciate any help
or advice.</font>
<p><font face="Courier New">I was given the procedures below to start off,
but despite working on</font>
<br><font face="Courier New">them have made no progress.</font>
<p><font face="Courier New">Thanks</font>
<p><font face="Courier New">J.</font>
<br>
<p><font face="Courier New">to planet :step</font>
<br><font face="Courier New">pd repeat 120 [fd :step rt 3]</font>
<br><font face="Courier New">end</font>
<p><font face="Courier New">to planet2 :step :col</font>
<br><font face="Courier New">pd setc :col repeat 120 [fd :step rt 3]</font>
<br><font face="Courier New">end</font>
<p><font face="Courier New">to planet3 :step :col</font>
<br><font face="Courier New">pd setc :col repeat 120 [fd :step rt 3]</font>
<br><font face="Courier New">pu repeat 30 [bk :step lt 3]</font>
<br><font face="Courier New">setc :col + 1 setpensize :step + 2</font>
<br><font face="Courier New">pd repeat 60 [fd :step rt 3]</font>
<br><font face="Courier New">pu repeat 50 [bk :step lt 3]</font>
<br><font face="Courier New">rt 90 fd :step + 4 lt 90</font>
<br><font face="Courier New">pd setc :col + 2 repeat 40 [fd :step rt 3.5]</font>
<br><font face="Courier New">end</font>
<br>
<br>
<br>
<br>
<blockquote dir=ltr style="MARGIN-RIGHT: 0px"><b><font face="Verdana, Geneva, Arial, Sans-serif"><font color="#339933"><font size=+0>"Your
vision will become clear only when you look into your heart... Who looks
outside, dreams. Who looks inside, awakens."</font></font></font></b>
<p><b><font face="Verdana, Geneva, Arial, Sans-serif"><font color="#339933"><font size=+1> </font></font><font color="#CC0000"><font size=+0>Carl
Jung</font></font></font></b>
<br> </blockquote>
</div>
<p><br>
<hr>ninemsn Extra Storage is now available. Get five times more storage
- 10MB in your Hotmail account. <a href="http://g.msn.com/8HMBENAU/2740??PS=">Sign
up now</a> _______________________________________________ MWForum mailing
list MWForum@lists.mathcats.com <A HREF="http://lists.mathcats.com/mailman/listinfo/mwforum">http://lists.mathcats.com/mailman/listinfo/mwforum</A>
attachments archived at: <A HREF="http://www.mathcats.com/mwforum/attachments.html">http://www.mathcats.com/mwforum/attachments.html</A></blockquote>
</html>
--------------444726C683FEC210BB32CB39--