LOGO-L> torous in UCBLogo & MSWLogo

[MHELHEFNY@FRCU.EUN.EG]

KW Melvin wrote:-

>WoW!
>I just figured out how to copy a post to a file
>and load it into UCBLogo! Am I impressed
>or what? Awesome! I think I've come to the
>right place. I've just started working through
>Harvey's CSLS series. Incredible! The best
>kept secret on the Net is Logo.
--
>KW Melvin
>Spiral Computing
>email: kwmelvin@juno.com
>http://Web.InfoAve.Net/index.html

>>On Sat, 22 Nov 1997 23:50:49 +0200 (O) MHELHEFNY@FRCU.EUN.EG writes:
>>;Hello Every Body
>>;Here is the code to draw an isometric view of two eccentric spheres.
>>;The code runs as is on both UCBLogo & MSWLogo.
>>;Best Regards
>>;Mhelhefny
>>{snip}
;
;You are welcomed KW !!
;You can find many such code on USENET:comp.lang.logo for this month.
;Also you can find them on logo-l archives .
;Now let me use this occasion to send you the code for a totous.
;it will run under UCBLogo as is;and with the addition of a simple colour 
;procedure to take care of RGB colours under MSWLogo.
;Best Regards.
;MHelhefny
;-----------------------------
to c
ifelse xcor >0 [setpc 6][setpc 4]
end

to go
cs ht pu
sphere1 150 sphere2 150
pu setxy -100 -180 pd label (se "with "complements "from "Mhelhefny)
end

to mysetxyz :a :b :c
;isometric transform
setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30
end

to sphere1 :a
for [theta 0 180 9][for [fi 0 360 9][c sppos :a* sin :theta :fi :theta pd]pu]
end

to sphere2 :a
for [fi 0 360 9][for [theta 0 180 9][c sppos :a* sin :theta :fi :theta pd]pu]
end

to sppos :r :fi :theta
;sphirical co-ordinates
mysetxyz :r*(sin :theta)*cos :fi :r*cos :theta :r*(sin :theta)*sin :fi  
end
;-------------------------------------------------------------
---------------------------------------------------------------
Please post messages to the Logo forum to logo-l@gsn.org.  Mail
questions about the list administration to logofdn@gsn.org.  To
unsubscribe send    unsubscribe logo-l    to majordomo@gsn.org.