home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 April / macformat-023.iso / Demos / 3D / POV Ray / POVRAY II (FPU) / DEMO / SHAPES2.POV < prev    next >
Encoding:
Text File  |  1993-10-01  |  1.7 KB  |  97 lines  |  [TEXT/PvRy]
  1. // Persistence Of Vision raytracer version 2.0 sample file.
  2. // By Chris Young
  3. // This image contains an example of every shape from SHAPES2.INC
  4.  
  5. #include "colors.inc"
  6. #include "shapes.inc"
  7. #include "shapes2.inc"
  8.  
  9. camera {
  10.    location <10, 10, -20>
  11.    direction <0, 0, 1.5>
  12.    up  <0, 1, 0>
  13.    right <4/3, 0, 0>
  14.    look_at <2, 0, 0>
  15. }
  16.  
  17. light_source {<0, 1000, -1000> color LightGray}
  18.  
  19. light_source {<150, 100, -100> color LightGray}
  20.  
  21. #declare Col1 =-9
  22. #declare Col2 =-3
  23. #declare Col3 =3
  24. #declare Col4 =8
  25.  
  26. #declare Row1 =6
  27. #declare Row2 =0
  28. #declare Row3 =-6
  29.  
  30. object { Tetrahedron
  31.    pigment {Red}
  32.    bounded_by {sphere{<0, 0, 0>, 3}}
  33.    translate <Col1, 2, Row1>
  34. }
  35.  
  36. object { Octahedron
  37.    pigment {Green}
  38.    bounded_by {sphere{<0, 0, 0>, 1.8}}
  39.    translate <Col2, 1.8, Row1>
  40. }
  41.  
  42. object { Dodecahedron
  43.    pigment {Blue}
  44.    bounded_by {sphere{<0, 0, 0>, 1.3}}
  45.    translate <Col3, 1.3, Row1>
  46. }
  47.  
  48. object { Icosahedron
  49.    pigment {Magenta}
  50.    bounded_by {sphere{<0, 0, 0>, 1.3}}
  51.    translate <Col4, 1.3, Row1>
  52. }
  53.  
  54. object { HalfCone_Y
  55.    pigment {Yellow}
  56.    bounded_by {sphere{<0, 0, 0>, 1.5}}
  57.    translate <Col1, 1.5, Row2>
  58. }
  59.  
  60. object { Hexagon
  61.    pigment {Cyan}
  62.    bounded_by {sphere{<0, 0, 0>, 1.5}}
  63.    translate <Col2, 1.5, Row2>
  64. }
  65.  
  66. object { Rhomboid
  67.    pigment {Tan}
  68.    bounded_by {sphere{<0, 0, 0>, 2.3}}
  69.    translate <Col3, 1.5, Row2>
  70. }
  71.  
  72. object { Pyramid
  73.    pigment {Orange}
  74.    bounded_by {sphere{<0, 0, 0>, 5}}
  75.    translate <Col4, 1.5, Row2>
  76. }
  77.  
  78. object { Square_X
  79.    pigment {NeonPink}
  80.    translate <Col2, 1, Row3>
  81. }
  82.  
  83. object { Square_Y
  84.    pigment {Scarlet}
  85.    translate <Col3, 1, Row3>
  86. }
  87.  
  88. object { Square_Z
  89.    pigment {NeonBlue}
  90.    translate <Col4, 1, Row3>
  91. }
  92.  
  93. object {
  94.    plane {y, 0}
  95.    pigment {White}
  96. }
  97.