// Floor:
#ifndef (FSRADIUS)
#declare FSRADIUS=10000;
#end

#ifndef (FSFLOORCUT)
#declare FSFLOORCUT=0.4;
#end

#ifndef (FSCOL)
#declare FSCOL=<1,1,1>;
#end

#ifndef (FSCOL2)
#declare FSCOL2=FSCOL;
#end

#ifndef (FSANGLE)
#declare FSANGLE=0;
#end

#ifndef (FSAMB)
#declare FSAMB=0.8;
#end

#ifndef (FSDIF)
#declare FSDIF=0.2;
#end


#declare FloorsphereL=object {
difference {
	sphere { <0,0,0>,FSRADIUS hollow }
	box { <-1,-1,-1>*FSRADIUS*1.2, <1,FSFLOORCUT/1.2,1>*FSRADIUS*1.2 } 
}
	texture {
                pigment {
                        gradient -y
                        color_map { [ 0 rgb FSCOL] [1 rgb FSCOL2] }
                        scale FSRADIUS
                }
		finish { ambient FSAMB diffuse FSDIF }
	}
}

#declare FloorsphereR=object {
difference {
	sphere { <0,0,0>,FSRADIUS hollow }
	box { <-1,-1,-1>*FSRADIUS*1.2, <1,-FSFLOORCUT/1.2,1>*FSRADIUS*1.2 } 
}
	texture {
		pigment { color rgb FSCOL }
		finish { ambient 1.0 diffuse 0.0 }
	}
   pigment {
   image_map {
      jpeg "c:/ldraw/pov/textures/piscine_bright.jpg"
      //png "./textures/SphereRoom.png"
      map_type 1
      interpolate 4
   }
    }
    rotate 180*x
    rotate 180*y 	
}

#declare Floorsphere=object {
union {
        object { FloorsphereL }
        object { FloorsphereR}
        hollow
}
    rotate FSANGLE*x
    translate -FSRADIUS*y
}