LOGO-L> Even 2-d logos are powerful

[MHELHEFNY@FRCU.EUN.EG]

;Hello Jim Muller!
;here is a reworked demo of the ellipsoid written to demonestrate
;the power of even two dimensional logo. Hoping that you will like it.
:Best Regards.
;Mhelhefny
;--------------
to c
ifelse :v>90 [setpc 3][setpc 6]
end 

to go
start 180
end

to start :a
ht 
for [i 0 160 40][cs grid :a- :i 60 60 
pu setxy -100 -180 pd label (se "Elipsoid "axis :a- :i "60 "60)
ct type (se  "****************** "a "demo "of 
"the "capability "of "logo "even "2_d "versions "*********** "press "any "key)
make "yy rc] 
end

to grid :a :b :c
pu grid1 :a :b :c 
pu grid2 :a :b :c
end

to grid1 :a :b :c
for [u 0 360 18][for [v 0 180 18][c mysetxyz x y z pd]pu]
end

to grid2 :a :b :c
for [v 0 180 18][for [u 0 360 18][c mysetxyz x y z pd]pu]
end

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

to x
op (:b*sin :u)*(sin :v)
end
;------------------
to y
op (:a*cos :u)*(sin :v)
end

to z
op  :c* cos :v
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.