home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma87a.dms / ma87a.adf / pov3c_1.lha / pov3demo / other / while1.pov < prev   
Encoding:
Text File  |  1996-11-08  |  890 b   |  45 lines
  1.  // Persistence Of Vision raytracer version 3.0 sample file.
  2.  
  3. #version 3.0
  4. global_settings { assumed_gamma 2.2 }
  5.  
  6.  camera {
  7.     location  <0, 0,-30>
  8.     direction <0, 0,  1>
  9.     up        <0,  1,  0>
  10.     right     <4/3, 0,  0>
  11.     look_at   <0, 0, 0>
  12.     }
  13.  
  14.  background { color rgb <0.5, 0.5, 0.5> }
  15.  
  16.  
  17.  light_source {<20, 30, -100> colour 1}
  18.  
  19.  #declare r1=12
  20.  #declare A=0.1
  21.  #declare B=0.25
  22.  
  23.  #declare Count=400
  24.  
  25. union{
  26.   #while (Count>=0)
  27.     #declare X=r1*sin(A*Count)*cos(B*Count)
  28.     #declare Y=r1*sin(A*Count)*sin(B*Count)
  29.     #declare Z=r1*cos(A*Count)
  30.     sphere { <X,Y,Z>, 1 
  31.       texture{
  32.         pigment { color rgb <abs(X/r1), abs(Y/r1), abs(Z/r1)> }
  33.         finish {
  34.          ambient 0.2
  35.          diffuse 0.6
  36.          phong 0.3
  37.          phong_size 100
  38.         }
  39.       }
  40.     }
  41.     #declare Count=Count-1
  42.   #end
  43.   rotate <-20,45,0>
  44. }
  45.