LOGO-L> Horsing around in 3D 
Author Message
 LOGO-L> Horsing around in 3D

This is a multi-part message in MIME format.
--------------84C06217917D930BEE013075
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

I think this chandelier would look nice in a room with Yehuda's Lattice
Rug

to bulb
setpc [255 0 0]
; Get to Center of Bulb
pu bk 20 pd
repeat 6 [ellipse 10 20 rr 60]
; Get Back
pu fd 20 pd
end

to chain
setpc [0 0 255]
; Overlap 10 ellipses 180 twist for each link
repeat 10 ~
   [
   ellipse 5 10
   pu fd 17 pd
   rr 180
   ]
end

to light
; Setup 3D
perspective
setsc [0 0 0]
cs
setturtle -1
setxyz 500 500 1000
setturtle 0
; Do Arms with Bulbs at the end of each Arm
repeat 36 ~
  [
  rr 10
  repeat 180 ~
     [
     ; change the color as we move along the arm
     setpc (list 0 round 1.4*repcount 0)
     arc2 -1 100
     ]
  ; Pop a bulb on
  bulb
  ; Get Back
  pu
  arc2 180 100
  pd
  ]
chain
end

--
===============================================================

http://www.*-*-*.com/
The www page contains some very powerful educational software.
Our single most important investment is our kids.
--------------84C06217917D930BEE013075
Content-Type: image/gif; name="LIGHT.gif"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="LIGHT.gif"

<encoded_portion_removed>
iIoF3yW9YBEeYeF7z+JRXhJOYRVeYRbeuYAAADs=
--------------84C06217917D930BEE013075--

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





Sat, 04 Mar 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. LOGO-L> horse race

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

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

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