home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / form / shapes / webgood.frm < prev   
Text File  |  1993-11-10  |  715b  |  25 lines
  1. // a sort of flower on a stem (sort of)
  2.  
  3. screen_scale=1.2;
  4.  
  5. // lbase is used twice!
  6. lbase = sphere stack 3 grow 0.1;
  7.  
  8. // define everything we need for the "flowerhead"
  9. lweb = sphere 0.75 stack 3 grow 0.1;
  10. webbing = sphere , [lbase] stack 20 in 50% bend -40 twist 70;
  11. spoke  = sphere 0.75, sphere 0.75 texture "Metal pigment{White}", [lweb] stack 6 in 75% 
  12.                 texture Rust;
  13.  
  14. // actually define the "head"
  15. head = spoke web 5 with webbing 5
  16.         texture Glass3;
  17.  
  18. // define the stem
  19. b1 = ellipse < 0.5 , 1 , 0.2> stack 2 in 75%;
  20. sbase = sphere , sphere  , [lbase] stack 6 in 75%;
  21. stem = b1 , [sbase] stack 80 in 12.5% twist 720 , 2 bend 45;
  22.  
  23. stem texture Brown_Agate, head;
  24. end;
  25.