home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / scripts / pov / station3 / stat.inc < prev    next >
Encoding:
Text File  |  1992-01-19  |  3.7 KB  |  123 lines
  1.  
  2.  
  3.  
  4.  
  5. {------------ SHAPES DATA ---------------------------------}
  6.  
  7. #declare Cylinder_X = quadric
  8. <0.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 end_quadric
  9.  
  10. #declare Cylinder_Y = quadric
  11. <1.0 0.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 end_quadric
  12.  
  13. #declare Cylinder_Z = quadric
  14. <1.0 1.0 0.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 end_quadric
  15.  
  16. #declare Cone_X = quadric 
  17. <-1.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 end_quadric
  18.  
  19. #declare Cone_Y = quadric
  20. <1.0 -1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 end_quadric
  21.  
  22. #declare Cone_Z = quadric
  23. <1.0 1.0 -1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> 0.0 end_quadric
  24.  
  25. #declare DCone = {---------CONE POINT DOWN /POINT at 000--------}
  26. INTERSECTION
  27. QUADRIC Cone_Y SCALE <1 1 1> END_QUADRIC PLANE <0 -1 0> 0 END_PLANE
  28. PLANE <0 1 0> 1  END_PLANE END_INTERSECTION
  29.  
  30. #declare UCone = {---------CONE POINT UP /POINT at 000--------}
  31. INTERSECTION
  32. QUADRIC Cone_Y SCALE <1 1 1> END_QUADRIC PLANE <0 1 0> 0   END_PLANE
  33. PLANE <0 1 0> -1 INVERSE END_PLANE END_INTERSECTION
  34.  
  35.  
  36. #declare Cube = intersection
  37.     plane <0.0 0.0 1.0> 1.0 end_plane
  38.     plane <0.0 0.0 -1.0> 1.0 end_plane
  39.     plane <0.0 1.0 0.0> 1.0 end_plane
  40.     plane <0.0 -1.0 0.0> 1.0 end_plane
  41.     plane <1.0 0.0 0.0> 1.0 end_plane
  42.     plane <-1.0 0.0 0.0> 1.0 end_plane
  43. end_intersection
  44.  
  45.  
  46. #declare X_Disk = intersection       { Capped cylinder, Length in x axis }
  47.   quadric Cylinder_X end_quadric
  48.   plane <1.0 0.0 0.0> 0.0 inverse end_plane
  49.   plane <1.0 0.0 0.0> 1.0 end_plane
  50. end_intersection
  51.  
  52.  
  53. #declare Y_Disk = intersection       { Capped cylinder, Length in y axis }
  54.   quadric Cylinder_Y end_quadric
  55.   plane <0.0 1.0 0.0> 0.0 inverse end_plane
  56.   plane <0.0 1.0 0.0> 1.0 end_plane
  57. end_intersection
  58.  
  59.  
  60. #declare Z_Disk = intersection       { Capped cylinder, Length in z axis }
  61.   quadric Cylinder_Z end_quadric
  62.   plane <0.0 0.0 1.0> 0.0 inverse end_plane
  63.   plane <0.0 0.0 1.0> 1.0 end_plane
  64. end_intersection
  65.  
  66. #declare QSphere = quadric
  67. <1.0 1.0 1.0> <0.0 0.0 0.0> <0.0 0.0 0.0> -1.0 end_quadric
  68.  
  69.  
  70.  
  71.  
  72. {----------- DIRECT FROM COLORS.DAT ----------------------------------}
  73. #declare White = colour red 1.0 green 1.0 blue 1.0
  74. #declare Black = colour red 0.0 green 0.0 blue 0.0
  75. #declare BlueViolet = colour red 0.62352 green 0.372549 blue 0.623529
  76. #declare CadetBlue = colour red 0.372549 green 0.623529 blue 0.623529
  77. #declare DimGray = colour red 0.329412 green 0.329412 blue 0.329412
  78. #declare ForestGreen = colour red 0.137255 green 0.556863 blue 0.137255
  79. #declare Gold = colour red 0.8 green 0.498039 blue 0.196078
  80. #declare Salmon = colour red 0.435294 green 0.258824 blue 0.258824
  81. #declare SeaGreen = colour red 0.137255 green 0.556863 blue 0.419608
  82. #declare Feldspar = colour red 0.82 green 0.57 blue 0.46
  83. #declare DarkGreen = colour red 0.184314 green 0.309804 blue 0.184314
  84. #declare Scarlet = color RED 0.55 GREEN 0.09 BLUE 0.09
  85. #declare Yellow = colour red 1.0 green 1.0
  86.  
  87.  
  88.  
  89.  
  90. {-------------- TEXTURES ---------------------------------}
  91.  
  92. #declare STONE1 = TEXTURE COLOR DimGray Diffuse 1.0 AMBIENT 0.4 PHONG 1.0 END_TEXTURE
  93. #declare STONE2 = TEXTURE COLOR Salmon PHONG 1.0 END_TEXTURE
  94. #declare STONE3 = TEXTURE COLOR DimGray PHONG 1.0 END_TEXTURE
  95. #declare STONE4 = TEXTURE COLOR Feldspar AMBIENT 0.2 DIFFUSE 0.8 PHONG 1.0 END_TEXTURE
  96. #declare BRASS = TEXTURE METALLIC COLOR RED 0.80 GREEN 0.58 BLUE 0.0
  97. AMBIENT 0.4 DIFFUSE 0.3 REFLECTION 0.5 BRILLIANCE 6 PHONG 1.0 END_TEXTURE
  98.  
  99.  
  100.  
  101.  
  102. #declare SILVER = texture {---------Bright REFLECTIVE SILVER-----------}
  103.         0.02 ambient 0.4 diffuse 0.7
  104.         colour red 0.7 green 0.7 blue 0.7 reflection 0.9 brilliance 7.0
  105.         specular 0.5
  106.     end_texture
  107.  
  108. #declare LIGHT = 
  109. OBJECT SPHERE <0 0 0> 1 END_SPHERE
  110. TEXTURE COLOR White END_TEXTURE
  111. LIGHT_SOURCE COLOR White END_OBJECT
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.