home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / st3 / stat.inc < prev    next >
Encoding:
Text File  |  1993-04-14  |  1.9 KB  |  88 lines
  1. /*------------ SHAPES DATA ---------------------------------*/
  2.  
  3. #declare Cylinder_X = quadric {
  4. <0.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 }
  5.  
  6. #declare Cylinder_Y = quadric {
  7. <1.0 0.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 }
  8.  
  9. #declare Cylinder_Z = quadric {
  10. <1.0 1.0 0.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 }
  11.  
  12. #declare Cone_X = quadric { 
  13. <-1.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 }
  14.  
  15. #declare Cone_Y = quadric {
  16. <1.0 -1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 }
  17.  
  18. #declare Cone_Z = quadric {
  19. <1.0 1.0 -1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 }
  20.  
  21. #declare DCone = /*---------CONE POINT DOWN /POINT at 000--------*/
  22. intersection {
  23. quadric { Cone_Y scale <1 1 1> } plane { <0 -1 0> 0 }
  24. plane { <0 1 0> 1  } }
  25.  
  26. #declare UCone = /*---------CONE POINT UP /POINT at 000--------*/
  27. intersection {
  28. quadric { Cone_Y scale <1 1 1> } plane { <0 1 0> 0   }
  29. plane { <0 1 0> -1 inverse } }
  30.  
  31.  
  32. /*
  33. #declare Cube = intersection {
  34.     plane { <0.0 0.0 1.0> 1.0 }
  35.     plane { <0.0 0.0 -1.0> 1.0 }
  36.     plane { <0.0 1.0 0.0> 1.0 }
  37.     plane { <0.0 -1.0 0.0> 1.0 }
  38.     plane { <1.0 0.0 0.0> 1.0 }
  39.     plane { <-1.0 0.0 0.0> 1.0 }
  40. }
  41. */
  42.  
  43.  
  44.  
  45.  
  46. #declare X_Disk = intersection {       /* Capped cylinder, Length in x axis */
  47.   quadric { Cylinder_X }
  48.   plane { <1.0 0.0 0.0> 0.0 inverse }
  49.   plane { <1.0 0.0 0.0> 1.0 }
  50. }
  51.  
  52.  
  53. #declare Y_Disk = intersection {       /* Capped cylinder, Length in y axis */
  54.   quadric { Cylinder_Y }
  55.   plane { <0.0 1.0 0.0> 0.0 inverse }
  56.   plane { <0.0 1.0 0.0> 1.0 }
  57. }
  58.  
  59.  
  60. #declare Z_Disk = intersection {       /* Capped cylinder, Length in z axis */
  61.   quadric { Cylinder_Z }
  62.   plane { <0.0 0.0 1.0> 0.0 inverse }
  63.   plane { <0.0 0.0 1.0> 1.0 }
  64. }
  65.  
  66. #declare Sphere = quadric {
  67. <1.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 }
  68.  
  69.  
  70. #declare UnitBox = box { <-1.0 -1.0 -1.0> <1.0 1.0 1.0> }
  71.  
  72. #declare Cube = intersection {
  73.     box { UnitBox }
  74. }
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.