LOGO-L> the snail in UCBLogo 
Author Message
 LOGO-L> the snail in UCBLogo

;Hello Every Body
;Here is the code for the snail written to run under any 2-d logo
;the only needed procedure for UCBLogo is setxyz.
;Enjoy it with my Best regards.
;Mhelhefny
;------------------------------------
to c
ifelse :fi > 240 [setpc 6][setpc 4]
end

to go
cs ht
snail1  snail2
pu sety -190 pd rt 90 label (se "THE "SNAIL "By "MHELHEFNY)
end

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

to snail1
for [theta 0 180 10][for [fi 0 360 10][c sppos y/10 :fi :theta pd]pu]
end

to snail2
for [fi 0 360 10][for [theta 0 180 10][c sppos y/10 :fi :theta pd]pu]
end

to sppos :r :fi :theta
;library procedure for sphirical co-ordinates
setxyz :r*(sin :theta)*cos :fi :r*cos :theta :r*(sin :theta)*sin :fi  
end

to y
op (power :fi 1.3)* sin :theta
end
;---------------------------------------------------
---------------------------------------------------------------





Wed, 26 Apr 2000 03:00:00 GMT  
 LOGO-L> the snail in UCBLogo


I see your mails in Logo-l, but all my mails I send to you bounce back
at me with a "wrong address" error message.

Do you have any solution?

Regards...

[[Yehuda]]

---------------------------------------------------------------





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

 Relevant Pages 

1. LOGO-L> Snail in MswLogo

2. LOGO-L> GUI for UCBLogo

3. LOGO-L> About UCBlogo

4. LOGO-L> pure glass shapes in 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> Shuttle in UCBLogo

11. LOGO-L> 3 d extensions to UCBLogo

12. LOGO-L> TYPE in MSWLogo vs UCBLogo

 

 
Powered by phpBB® Forum Software