home *** CD-ROM | disk | FTP | other *** search
/ ANews 3 / AnewsCD3.iso / atari / GRAPHX / POV / 68030.060 / POV31G30 / POVRAY_3.1G / SCENES / INCDEMO / SHOTXTR.INC < prev    next >
Text File  |  1999-10-30  |  942b  |  46 lines
  1. // Persistence Of Vision Raytracer version 3.1 sample file.
  2. // The TEXTUREn.POV files demonstrate all textures in TEXTURES.INC
  3.  
  4. camera {
  5.    location <0, 5, -30>
  6.    direction <0, 0,  1.35>
  7.    look_at 5*y
  8. }
  9.  
  10. light_source {<0, 0, -1000> rgb 0.66}
  11.  
  12. light_source {<150, 50, -200> rgb 0.66}
  13.  
  14. #local Stack =
  15. union {
  16.    box{-1,1}
  17.    cylinder {y,-y,1 translate 2*y}
  18.    sphere{<0, 4, 0>, 1}
  19. }
  20.  
  21. #local Dist     =  0;
  22. #local Top      = 10.5;
  23. #local Left     =-12;
  24. #local RowDelta = -7;
  25. #local ColDelta =  3;
  26.  
  27. #local Row    = 0;
  28. #local RowPos = Top;
  29. #while (Row < 3)
  30.   #local Col    = 0;
  31.   #local ColPos = Left;
  32.   #while (Col<9)
  33.     object {
  34.       Stack
  35.       texture{Textures[Row][Col]}
  36.       translate <ColPos, RowPos, Dist>
  37.     }
  38.     #local Col    = Col+1;
  39.     #local ColPos = ColPos+ColDelta;
  40.   #end
  41.   #local Row      = Row+1;
  42.   #local RowPos   = RowPos+RowDelta;
  43. #end
  44.  
  45. plane { -z, -1.1 pigment {rgb 1 } }
  46.