LOGO-L> orbitting sphere in 3-d space 
Author Message
 LOGO-L> orbitting sphere in 3-d space

;Hello Olga Tuzova
;Here is a very simple code based on the solar example of MSWLogo
;with some variation; this orbitting sphhere gives some nice 3-D
;feeling. I should like that you try it;I appreciate your comments.
;Best Regards
;Mhelhefni
;---------------------------------------------------------------
to go
perspective cs ht
setturtle -1 setxyz 120 110 90
setturtle 0  
repeat 120[clean pu fd 15 pd rt 25 sphere 8 20]
end

to sphere :rad :step
repeat 180/:step [circle :rad rr :step] rr 180
repeat 180/:step[make "q repcount*:step-90 fd :rad*sin :q
downpitch 90 circle :rad*cos :q uppitch 90 bk :rad*sin :q]
end
;--------------------------------------------------------------
---------------------------------------------------------------





Mon, 06 Mar 2000 03:00:00 GMT  
 LOGO-L> orbitting sphere in 3-d space

Quote:

> Date:          Thu, 18 Sep 1997 23:39:41 +0000 (O)
> Subject:       orbitting sphere in 3-d space

> ;Hello Olga Tuzova
> ;Here is a very simple code based on the solar example of MSWLogo
> ;with some variation; this orbitting sphhere gives some nice 3-D
> ;feeling. I should like that you try it;I appreciate your comments.
> ;Best Regards
> ;Mhelhefni
> ;---------------------------------------------------------------
> to go
> perspective cs ht
> setturtle -1 setxyz 120 110 90
> setturtle 0  
> repeat 120[clean pu fd 15 pd rt 25 sphere 8 20]
> end

> to sphere :rad :step
> repeat 180/:step [circle :rad rr :step] rr 180
> repeat 180/:step[make "q repcount*:step-90 fd :rad*sin :q
> downpitch 90 circle :rad*cos :q uppitch 90 bk :rad*sin :q]
> end
> ;--------------------------------------------------------------

Dear Mhelhefni,

Instead of unprofessional comments, I'm sending you some results of
my enjoyable play with your code.
I've replaced FD RT with ARC2 as George Mills proposed and then the
idea to "rope" the globe appeared by herself.
Thank you.

Olga.
-------------------------------
to planets_go
perspective cs ht
setsc [0 0 0]
setturtle -1 setxyz 200 200 500
setturtle 0 setxyz -200 0 0 setpitch 90
repeat 100 [clean pu arc2 20 200
          localmake "look orientation
          setorientation towardsxyz [0 100 0]
          localmake "place posxyz
          setpc [255 255 0]
          pd setxyz 0 100 0 circle 10  
          setposxyz :place
          planets_sphere 20 20
          setorientation :look]
end

to planets_sphere :rad :step
setpc [0 255 255]
repeat 180/:step [circle :rad rr :step] rr 180
repeat 180/:step[make "q repcount*:step-90 fd :rad*sin :q
downpitch 90 circle :rad*cos :q uppitch 90 bk :rad*sin :q]
end

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





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

 Relevant Pages 

1. LOGO-L> orbitting 3-d sphere in space

2. LOGO-L> orbitting sphere in 3-D space

3. LOGO-L> 4methods to draw a Sphere

4. LOGO-L> sphere or Christmas bulb

5. LOGO-L> Sphere or bulb

6. LOGO-L> orbitting sphhere in 3-D space

7. LOGO-L> space fractals

8. LOGO-L> out of list space error

9. LOGO-L> Re: Problems in 3D Space

10. LOGO-L> out of space continued

11. LOGO-L> re:out of space

12. LOGO-L> out of space

 

 
Powered by phpBB® Forum Software