#include "textures.inc"

global_settings
{
  radiosity
  {
    recursion_limit 3
    brightness 1
  }
}

/* light_source
{
  <-500000, 1200000, -900000>
  color rgb 1
} */ 

camera
{
  location <0, 10, -10>
  look_at 0
  angle 40
}


sky_sphere
{
  pigment { color rgb 1 }
}

#declare cube1=
box
{
  <-1, -1, -1> <1, 1, 1>
}


#declare s1=seed(1747);
#declare s2=seed(1125);
#declare s3=seed(31);
#declare s4=seed(652000);
#declare s5=seed(25000000)
#declare fx=1;
#declare fy=1;
#declare fz=1;
#declare d=1;
#declare sf=0.35;
#declare rwx=90;
#declare rwy=90;
#declare rwz=90;


#declare cubes=
union
{
  object { cube1 }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cube1 scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}

#declare cubes=
union
{
  object { cube1 }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}

#declare cubes=
union
{
  object { cube1 }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}

#declare cubes=
union
{
  object { cube1 }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}

/*
#declare cubes=
union
{
  object { cube1 }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}

#declare cubes=
union
{
  object { cube1 }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, d>   }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, d, -d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <d, -d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, d>  }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, d, -d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, d> }
  object { cubes scale <sf*pow(fx, 1-rand(s1)*2), sf*pow(fy, 1-rand(s1)*2), sf*pow(fz, 1-rand(s1)*2)>  translate <-d, -d, -d>}
}
*/


object
{
  cubes
  texture { Rad_Blue }
  rotate <0, -45, rwz/2-rand(s4)*rwz>
}