LOGO-L> spiral dome in UCBLogo &MSWLogo 
Author Message
 LOGO-L> spiral dome in UCBLogo &MSWLogo

;Hello Every Body
;Here is the isometric view code to draw a spiral dome,written to run
;unchaged under both UCBLogo and MSWLogo and perhaps; under any other
;Best Regards

to c
setpc ifelse xcor >0 [7][6]

to cylpos :r :fi :y
;cylinderical co-ordinates
mysetxyz :r*cos :fi :y :r*sin :fi

to go;
pu ht cs setpensize [1 1] grid1 1120 grid2 1120

to grid1 :a
for [r 0 :a 20][for[fi 0 650 20][c
cylpos (:r*cos :fi/7)/5 :r (:r*sin :fi/7)/5 pd]pu]

to grid2 :a
for [fi 0 650 20][for[r 0 :a 20][c p
cylpos (:r*cos :fi/7)/5 :r (:r*sin :fi/7)/5 pd]pu]

to mysetxyz :a :b :c
setxy (:a- :c)*cos 30 :b- (:a+ :c)*sin 30

to p
setpensize ifelse :fi < 20 [[4 4]][[1 1]]


Sat, 20 May 2000 03:00:00 GMT  
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> TYPE in MSWLogo vs UCBLogo

2. LOGO-L> Re: MSWLogo-UCBLogo

3. LOGO-L> Do Spiral

4. LOGO-L> Spirals

5. LOGO-L> circular spiral

6. LOGO-L> circular spiral

7. LOGO-L> PC-LOGO syntax in MSWLogo

8. LOGO-L> GUI for UCBLogo

9. LOGO-L> About UCBlogo

10. LOGO-L> conic shape in ucblogo & mswlogo

11. LOGO-L> pure glass shapes in UCBLogo

12. LOGO-L> Two eccentric spheres in UCBLogo & MSWLogo


Powered by phpBB® Forum Software