// Last edited on 2003-04-12 09:24:16 by stolfi
// Supormercado
// 01/04/2003 Thiago Barroso Fonte Boa

#declare ctr = <  4, -0.5, 8 >;
#declare cam = <  9, 7.0, -1 >;

camera {
  location  ctr + 2.5*cam
  right 1.2*x up 0.4*y
  look_at   ctr
} 

light_source {
  ctr + 10*(vrotate(cam, 20*y) + 5*y) color rgb 1.2*<1,1,1>}

light_source {
  ctr + 10*(vrotate(cam, -70*y) + 5*y) color rgb <1,1,1>}

light_source {
  <5,-2,4> color rgb <1,1,1>}

light_source {
  <-2,0,-2> color rgb <1,1,1>}

light_source {
  <7,-1,10> color rgb <1,1,1>}

light_source {
  <5,-2.5,-1> color rgb <1,1,1>}

box{<-1,-0.2,-1>,<1,0,21> pigment {color rgb <0.5,0.3,0.1>}}
box{<-1,-3.2,-1>,<1,-3,21> pigment {color rgb <0.5,0.3,0.1>}}
difference{
  box{<3,-3.2,-1>,<8,-0.9,21>}
  box{<3.2,-3,-1.2>,<7.8,0.2,21.2>}
  pigment {color rgb <0.5,0.3,0.1>}
}

//plane{y,-3.5 pigment{color rgb <0.5,0.3,0.1>}}

#declare garrafa=
difference{
  union{
    difference{
      sphere{<0,0.5,0>,1}
      box{<-1,-1,-1>,<1,0,1>}
    }
    cylinder{<0,1.3,0>,<0,2.5,0>,0.4}
    torus{0.25,0.3 translate <0,2.5,0>}
  }
  cylinder{<0,0.5,0>,<0,3,0>,0.3}  
  pigment {color rgb <1,0,0>}
}

#declare copo=
union{
  cone{<0,-3,0>,0.2 <0,-2,0>,0.35 open}
  disc{<0,-3,0> y, 0.2,0}
  pigment {color rgb <0,1,0>}
}

#declare treco=
union{
  cylinder{<0,-3,4.5>,<0,-1.6,4.5>,0.15}
  torus{0.1,0.15 translate <0,-2.95,4.5>}
  pigment {color rgb <0,0.2,0.6>}
}

#declare i=0;
#while(i<10)
  object{garrafa translate <0,0,1.1*i>}
  #declare i=i+1;
#end

#declare i=0;
#while(i<5)
  object{copo translate <-0.5,0,0.8*i>}
  object{copo translate <0.5,0,0.8*i>}
  object{treco translate <-0.2,0,0.9*i>}
  object{treco translate <0.5,0,0.9*i>}
  #declare i=i+1;
#end

#declare gerador1=seed(123489);
#declare gerador2=seed(239876);
#declare gerador3=seed(345212);

#declare i=0;
#while(i<10)
  #if (mod(i,2)=1)  
    sphere{<4.2,-2.2,1.6*i>,0.8 pigment {color rgb <rand(gerador3),rand(gerador2),rand(gerador1)>}}
  #else
    sphere{<4.2,-2.4,1.6*i>,0.6 pigment {color rgb <rand(gerador3),rand(gerador1),rand(gerador2)>}}
  #end
  #declare i=i+1;
#end


#declare i=0;
#while(i<10)
  #if (mod(i,2)=0)  
    sphere{<6.2,-2.2,1.9*i>,0.8 pigment {color rgb <rand(gerador2),rand(gerador1),rand(gerador3)>}}
  #else
    sphere{<6.2,-2.4,1.9*i>,0.6 pigment {color rgb <rand(gerador1),rand(gerador2),rand(gerador3)>}}
  #end
  #declare i=i+1;
#end