LOGO-L> pure glass shapes in UCBLogo 
Author Message
 LOGO-L> pure glass shapes in UCBLogo

;Hello KW Melvin
;here is the code for a pure glass shape. It will run under UCBLogo.
;Also with the addition of a simple colour procedure it will run
;under MSWLogo
;Best Regards
;Mhelhefny
;-----------------------
to col
ifelse xcor>0 [setpc 3][setpc 5]
end

to go
cs ht pu
grid1 150 grid2 150
pu setxy -90 -180 pd label (se "PURE "GLASS "to "KW "MELVIN)
end

to grid1 :a
for [theta 0 180 15][for [fi 0 180 5][col sppos :a* sin(:theta*4) :fi :theta
pd]pu]
end

to grid2 :a
for [fi 0 180 5][for [theta 0 180 15][col sppos :a* sin(:theta*4) :fi :theta
pd]pu]
end

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

to sppos :r :fi :theta
;spherical co-ordinates
mysetxyz :r*(sin :theta)*cos :fi :r*cos :theta :r*(sin :theta)*sin :fi  
end
;--------------------------
---------------------------------------------------------------





Thu, 11 May 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> Logo - drawing some selected shapes

2. LOGO-L> Logo: Drawing some selected shapes

3. LOGO-L> GUI for UCBLogo

4. LOGO-L> About UCBlogo

5. LOGO-L> About UCBlogo

6. LOGO-L> 3d extensions to UCBLogo

7. LOGO-L> setxyz and screw in UCBLogo

8. LOGO-L> ellipsoid and paraboloid in UCBLogo

9. LOGO-L> 3d isometric code in UCBLogo

10. LOGO-L> the snail in UCBLogo

11. LOGO-L> Shuttle in UCBLogo

12. LOGO-L> 3 d extensions to UCBLogo

 

 
Powered by phpBB® Forum Software