LOGO-L> Hexagonal torous in both UCBLogo & MSWLogo 
Author Message
 LOGO-L> Hexagonal torous in both UCBLogo & MSWLogo

;Hello Every Body
;Here is the code of an isometric view of a half of the hexagonal torous
;that will run under UCBLogo and under MSWLogo without turning 3d on.
;Best Regards
;Mhelhefny
;----------------------------------------------

to go
cs ht pu sphere1 150 sphere2 150
end

to mysetxyz :a :b :c
;lib. proc. for isometric view
setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30
end

to sphere1 :a
for [theta 0 180 30][for [fi 135 315 5][sppos :a* sin(:theta) :fi :theta pd]pu]
end

to sphere2 :a
for [fi 135 315 5][for [theta 0 180 30][sppos :a* sin(:theta) :fi :theta pd]pu]
end

to sppos :r :fi :theta
;lib. proc. for sphirical co-ordinates
mysetxyz :r*(sin :theta)*cos :fi :r*cos :theta :r*(sin :theta)*sin :fi  
end
;---------------------------------------
---------------------------------------------------------------





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

 Relevant Pages 

1. LOGO-L> TYPE in MSWLogo vs UCBLogo

2. LOGO-L> Re: MSWLogo-UCBLogo

3. LOGO-L> torous in UCBLogo & MSWLogo

4. LOGO-L> hexagonal Sierpinski for MicroWorlds

5. LOGO-L> PC-LOGO syntax in MSWLogo

6. LOGO-L> GUI for UCBLogo

7. LOGO-L> spiral dome in UCBLogo &MSWLogo

8. LOGO-L> About UCBlogo

9. LOGO-L> conic shape in ucblogo & mswlogo

10. LOGO-L> pure glass shapes in UCBLogo

11. LOGO-L> Two eccentric spheres in UCBLogo & MSWLogo

12. LOGO-L> About UCBlogo

 

 
Powered by phpBB® Forum Software