#include "p.pov"
camera{panoramic up y right x location A look_at A-<0,0,2>}

#include "p.pov"
camera{panoramic up y right x location A look_at A+<0,0,2>}

#!/bin/sh
pnmcat -leftright p_l.ppm p_r.ppm > p.ppm; rm p_?.ppm

background { rgb <1,1,1> }
#declare A=<-80,180,-100>+<500*clock,0,100*sin(pi*clock)>;

camera  { location <40,600,-600> up y right x look_at <0,10,00> }
light_source { <-40,800, 600> color rgb <1,1,1>}
light_source { < 40,800,-600> color rgb <1,1,1>}
light_source { <-80,480,-100> color rgb <1,1,1>}
light_source { <420,480,   0> color rgb <1,1,1>}

#macro p(c)
  texture { pigment { rgb c } 
            finish { metallic phong 1.0 
            phong_size 10 ambient 0.5 diffuse 0.8 }}
#end

#macro texturewall(c1,c2)
polygon {
   5,<0,0>,<1,0>,<1,1>,<0,1>,<0,0>
   pigment{checker colour c1 color c2 translate <0.2,0,0.3> rotate <0,0,0> scale 1/4}
}
#end

#declare mybox = union {
   #object{ texturewall(<1,0,0>,<0,1,1>) rotate y*0 }
   #object{ texturewall(<0,1,0>,<1,0,1>) rotate y*90  translate <1,0,0>}
   #object{ texturewall(<0,0,1>,<1,1,0>) rotate -y*90 translate <0,0,-1>}
   #object{ texturewall(<1,1,0>,<0,0,1>) rotate y*180 translate <1,0,-1>}
   #object{ texturewall(<1,1,0>,<1,1,0>) rotate x*90  translate <0,1,-1>}
   translate <-0.5,0,0.5> scale 100
}

#declare rs1=seed(12123); #declare rs2=seed(132413); #declare rs3=seed(13234);

union {
  #declare i=0;
  #while (i<10)
    #object{ mybox scale <1+(0.5-rand(rs1)),1+2*rand(rs1),1+(0.5-rand(rs1))> 
                   rotate y*360*rand(rs3) 
                   translate 1000* }
    #declare i=i+1;
  #end
}

Width =800
Height=800
Quality=10
Antialias_Depth=4
Antialias=On
Antialias_Threshold=0.1
Output_File_Type=P
Jitter_Amount=0.5
Jitter=On 

Width=600
Height=600
Quality=10
Antialias_Depth=4
Antialias=On
Antialias_Threshold=0.1
Jitter_Amount=0.5
Cyclic_Animation=on
Jitter=On 
Initial_Frame = 1
Final_Frame   = 100
Initial_Clock = 0.0
Final_Clock   = 1.0