LOGO-L> 3d-logo -cosinudid 
Author Message
 LOGO-L> 3d-logo -cosinudid

Quote:

> to draw.cos
> make "b 0 pu
> for[i 0 90][make "a 120*cos :i rt 90 fd 1 lt 90 fd :a- :b make "b :a pd]
> pu setxyz 0 0 0 pd
> end

> to go
> perspective cs ht
> setturtle -1 setxyz 600 250 300
> setturtle 0 ht
> longit 10 latit 10
> end

> to latit :step
> repeat 240/:step [make "g repcount* :step pu fd :g/2
> downpitch 90 pd circle arccos :g/240 uppitch 90 pu bk :g/2 pd]
> end

> to longit :step
> repeat 360/:step[draw.cos rr :step]
> end

Hello,

It would be extremely useful, if posters of graghics-code would attach a
.gif, so all of us can see what this code does.

Bye,

[[Yehuda]]

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





Tue, 29 Feb 2000 03:00:00 GMT  
 LOGO-L> 3d-logo -cosinudid

;hello 3D-logo fellows
;I have Down-loaded MSWLogo on september 11 th..Today I mailed you the
;code of the ellipsoid.
;here is another code for the cosinusoid whish is a dome some time
;was called in the Matlab Manual; the "sombrero".
;best regards
;Mhelhefni
;---------------------------------------------------------------------

to draw.cos
make "b 0 pu
for[i 0 90][make "a 120*cos :i rt 90 fd 1 lt 90 fd :a- :b make "b :a pd]
pu setxyz 0 0 0 pd
end

to go
perspective cs ht
setturtle -1 setxyz 600 250 300
setturtle 0 ht
longit 10 latit 10
end

to latit :step
repeat 240/:step [make "g repcount* :step pu fd :g/2
downpitch 90 pd circle arccos :g/240 uppitch 90 pu bk :g/2 pd]
end

to longit :step
repeat 360/:step[draw.cos rr :step]
end
---------------------------------------------------------------





Wed, 01 Mar 2000 03:00:00 GMT  
 
 [ 3 post ] 

 Relevant Pages 

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

2. LOGO-L> Apple logo/MSW Logo

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

4. LOGO-L> 3d extensions to UCBLogo

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

6. LOGO-L> MswLogo ver 6.3d

7. LOGO-L> spherical coordinates in 3d

8. LOGO-L> using cylindrical coordinates in 3d

9. LOGO-L> using sphirical coordinates in 3d

10. LOGO-L> Simple Surfaces in 3D

11. LOGO-L> hiddenlines in 3D-turtle-programs

12. LOGO-L> Multi-Turtle in 3D

 

 
Powered by phpBB® Forum Software