home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma87a.dms / ma87a.adf / pov3c_1.lha / pov3demo / objects / superel1.pov < prev    next >
Encoding:
Text File  |  1996-11-08  |  1.9 KB  |  56 lines
  1. // Persistence Of Vision raytracer version 3.0 sample file.
  2. // POV-Ray 3.0 sample data file by Dieter Bayer, Nov. 1994
  3. //
  4. // This scene shows a number of cubic superellipsoids.
  5.  
  6. #version 3.0
  7. global_settings { assumed_gamma 2.2 }
  8.  
  9. camera {
  10.   orthographic
  11.   location <0, 0, -10>
  12.   right 15 * 4/3 * x
  13.   up 15 * y
  14.   look_at <0, 0, 0>
  15. }
  16.  
  17. light_source { <50, 50, -100> color red 0.7 green 0.7 blue 0.7 }
  18. light_source { <0, 0, -10000> color red 0.7 green 0.7 blue 0.7 }
  19.  
  20. plane { <0, 0, 1>, 3
  21.   pigment { checker color red 0 green 1 blue 0 color red 0 green 0 blue 1 }
  22.   finish { ambient 0.1 diffuse 0.4 }
  23. }
  24.  
  25. #declare Row1 = +5
  26. #declare Row2 =  0
  27. #declare Row3 = -5
  28. #declare Col1 = -5
  29. #declare Col2 =  0
  30. #declare Col3 = +5
  31.  
  32. #declare Tex = 
  33. texture {
  34.   pigment { color red 1 green 0 blue 0 } 
  35.   finish { ambient 0.2 diffuse 0.4 phong 0.5 phong_size 5 }
  36. }
  37.  
  38. superellipsoid { <0.9, 0.9> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col1, Row1, 0> texture { Tex } }
  39.  
  40. superellipsoid { <0.8, 0.8> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col2, Row1, 0> texture { Tex } }
  41.  
  42. superellipsoid { <0.7, 0.7> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col3, Row1, 0> texture { Tex } }
  43.  
  44. superellipsoid { <0.6, 0.6> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col1, Row2, 0> texture { Tex } }
  45.  
  46. superellipsoid { <0.5, 0.5> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col2, Row2, 0> texture { Tex } }
  47.  
  48. superellipsoid { <0.4, 0.4> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col3, Row2, 0> texture { Tex } }
  49.  
  50. superellipsoid { <0.3, 0.3> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col1, Row3, 0> texture { Tex } }
  51.  
  52. superellipsoid { <0.2, 0.2> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col2, Row3, 0> texture { Tex } }
  53.  
  54. superellipsoid { <0.1, 0.1> scale <1.5, 1, 1> rotate <-15, 30, 0> translate <Col3, Row3, 0> texture { Tex } }
  55.  
  56.