home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / news / 2391 / form03 / shapes / webgood.frm < prev   
Text File  |  1993-11-23  |  974b  |  32 lines
  1. // a sort of flower on a stem (sort of)
  2.  
  3. // you can find this raytraced at the best quality at 640x480
  4. // on ftp.demon.co.uk /pub/ibmpc/graphics/form
  5. // don't bother trying it yourself, 
  6. // it took about 4 solid days on a 486DX33
  7. // --- that's the last time I'm using glass! 
  8. // signed Rummy
  9.  
  10. screen_scale=1.2;
  11.  
  12. // lbase is used twice!
  13. lbase = sphere stack 3 grow 0.1;
  14.  
  15. // define everything we need for the "flowerhead"
  16. lweb = sphere 0.75 stack 3 grow 0.1;
  17. webbing = sphere , [lbase] stack 20 in 50% bend -40 twist 70;
  18. spoke  = sphere 0.75, sphere 0.75 texture "Metal pigment{White}", [lweb] stack 6 in 75% 
  19.                 texture Rust;
  20.  
  21. // actually define the "head"
  22. head = spoke web 5 with webbing 5
  23.         texture Glass3;
  24.  
  25. // define the stem
  26. b1 = ellipse < 0.5 , 1 , 0.2> stack 2 in 75%;
  27. sbase = sphere , sphere  , [lbase] stack 6 in 75%;
  28. stem = b1 , [sbase] stack 80 in 12.5% twist 720 , 2 bend 45;
  29.  
  30. stem texture Brown_Agate, head;
  31. end;
  32.