LOGO-L> 3d isometric code in UCBLogo 
Author Message
 LOGO-L> 3d isometric code in UCBLogo

;Hello Every Body
;To show how effective is the isometric procedure setxyz. Here is the
;code to draw two {*filter*} tyres in UCBLogo.
;Enjoy it with my Best Regards
;Mhelhefny
;-------------------------------  
to c
ifelse xcor>20 [setpc 4][setpc 6]
end

to cylpos :r :fi :y
;library procedure for cylinderical co-ordinates
setxyz :r*cos :fi :y :r*sin :fi
end

to go
cs ht pu
v1 v2 pu setx -300 pd label (se "DEFORMED "TYRE) pu
v3 v4 pu setx -300 pd label (se "NORMAL "TYRE)
end

to r
op 40*(2.7+sin :t)
end

to r1
op 40*(1.5+ (1+sin :t)*(1+cos :fi))
end

to setxyz :a :b :c
;library procedure for isometric view
setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30
end

to v1
for [t 0 180 10][for [fi 0 360 10][c cylpos r1 :fi (:t/3)- 70 pd]pu]
end

to v2
for [fi 0 360 10][for [t 0 180 10][c cylpos r1 :fi (:t/3)- 70 pd]pu]
end

to v3
for [t 0 180 10][for [fi 0 360 5][c cylpos r :fi (:t/3)+ 130 pd]pu]
end

to v4
for [fi 0 360 5][for [t 0 180 10][c cylpos r :fi (:t/ 3)+ 130 pd]pu]
end
;-------------------------------------------------
---------------------------------------------------------------





Wed, 26 Apr 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> 3d extensions to UCBLogo

2. LOGO-L> 3D - Logo For Beginners

3. LOGO-L> 3d-logo -cosinudid

4. LOGO-L> GUI for UCBLogo

5. LOGO-L> About UCBlogo

6. LOGO-L> pure glass shapes in UCBLogo

7. LOGO-L> About UCBlogo

8. LOGO-L> setxyz and screw in UCBLogo

9. LOGO-L> ellipsoid and paraboloid 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