home *** CD-ROM | disk | FTP | other *** search
/ Ray Tracing Box / RAY_CD.mdf / raytrace / form / shapes / flagpole.frm < prev    next >
Text File  |  1993-11-04  |  636b  |  16 lines
  1. // another form
  2. // something like a flagpole (well that's what it makes me think of)
  3. // segment = sphere 0.1 , sphere 0.5 , sphere 0.1;
  4. s = sphere 0.2 , sphere 0.1 ;
  5. bit = [s] fan 3 , 0;
  6. spacer = sphere 0.2 delete 1;
  7. brseg = spacer , bit stack 30 in 10 twist 270 grow 0.1 bend 5;
  8. base = ellipse <0.1 , 0.3 , 0.3>  fan 60 , 90 , 0.1;
  9. twisty = sphere 0.1 stack 90 in 10 twist 1100 , 0.5 grow 0.001;
  10. twisty_scaled = twisty scale 10;    /* we have to scale this because the */
  11.                                     /* grow 0.1 on the brseg will shrink it */
  12. base texture Brass_Texture , 
  13. brseg texture TEXTURE_1 ,
  14. [ twisty_scaled ]  texture White_Wood;
  15. end
  16.