LOGO-L> Even 2-d logos are powerful 
Author Message
 LOGO-L> Even 2-d logos are powerful

;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
---------------------------------------------------------------





Wed, 17 May 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> Apple logo/MSW Logo

2. LOGO-L> Reseach Machines Logo (RM LOGO)

3. LOGO-L> Welcome to logo-l

4. LOGO-L> Re: Dynamic scope in Logo

5. LOGO-L> INFO re SIG-LOGO

6. LOGO-L> Logo speed

7. LOGO-L> Logo foundation site

8. LOGO-L> Logo Workshops

9. LOGO-L> Logo for MAC

10. LOGO-L> Object Logo for PC

11. LOGO-L>UCB Logo

12. LOGO-L> Re: Logo inside Scheme

 

 
Powered by phpBB® Forum Software