// Edge-tangent polytope and the sphere of edge tangencies
// David Eppstein, UC Irvine, 21 May 2001, modified 10 April 2011

global_settings {
   assumed_gamma 2.2
   ambient_light <3,3,3>
}

light_source { <-10, 35, -15> color <4,4,4> }

// light_source { <5, -10, -15> color <1.5,1.5,1.5> }

// perp: <5,1,-6> <1,1,1> <7,-11,4>
// perp: <5,2,-2> <0,1,1> <4,-5,5>

#declare p=<1,1,1>/sqrt(3);
#declare q=<7,-11,4>/sqrt(186);
camera {
   location  <5,1,-6>
   look_at   <0.5, 0, 0>
   up -q*0.65
   right p*0.65
   translate <-0.1,0,-0.5>
   rotate <0,-5,0>
}

sphere { <0.0, 0.0, 0.0>, 2
	texture {
		finish {
			specular 1
			roughness 0.002
			ambient 0.1
			diffuse 0.05
			reflection 1
			phong 0.3
			phong_size 60
		}
		pigment { color rgbf<0.2, 0.2, 1.5, 0.7> }
	}
}

#declare P_Surf =
texture {
    finish {
       ambient 0.2
       diffuse 0.2
    }
    pigment { color red 1 green 1 blue 1 }
}

polygon {
    4,
    <0,2,-2>,<0,2,2>,<2,0,1>,<2,0,-1>
    texture { P_Surf }
}

polygon {
    4,
    <0,2,-2>,<0,2,2>,<-2,0,1>,<-2,0,-1>
    texture { P_Surf }
}

polygon {
    4,
    <0,-2,-2>,<0,-2,2>,<2,0,1>,<2,0,-1>
    texture { P_Surf }
}

polygon {
    4,
    <0,-2,-2>,<0,-2,2>,<-2,0,1>,<-2,0,-1>
    texture { P_Surf }
}

polygon {
	3,
	<0,2,2>,<2,0,1>,<0,-2,2>
	texture { P_Surf }
}

polygon {
	3,
	<0,2,-2>,<2,0,-1>,<0,-2,-2>
	texture { P_Surf }
}

polygon {
	3,
	<0,2,2>,<-2,0,1>,<0,-2,2>
	texture { P_Surf }
}

polygon {
	3,
	<0,2,-2>,<-2,0,-1>,<0,-2,-2>
	texture { P_Surf }
}

#declare P_Ring =
texture {
    finish {
       ambient 0.3
       diffuse 0.3
    }
    pigment { color red 1 green 0 blue 0 }
}

torus {
	2/sqrt(2), 0.013
	texture { P_Ring }
	rotate <-45,0,0>
	translate <0,1,-1>
}

torus {
	2/sqrt(2), 0.013
	texture { P_Ring }
	rotate <45,0,0>
	translate <0,1,1>
}

torus {
	2/sqrt(2), 0.013
	texture { P_Ring }
	rotate <-45,0,0>
	translate <0,1,-1>
	rotate <180,0,0>
}

torus {
	2/sqrt(2), 0.013
	texture { P_Ring }
	rotate <45,0,0>
	translate <0,1,1>
	rotate <180,0,0>
}

torus {
	2*sqrt(1/5), 0.013
	texture { P_Ring }
	rotate <90,-asin(2/sqrt(5))*180/pi,0>
	translate <8/5,0,-4/5>
}

torus {
	2*sqrt(1/5), 0.013
	texture { P_Ring }
	rotate <90,asin(2/sqrt(5))*180/pi,0>
	translate <8/5,0,4/5>
}

torus {
	2*sqrt(1/5), 0.013
	texture { P_Ring }
	rotate <90,-asin(2/sqrt(5))*180/pi,0>
	translate <8/5,0,-4/5>
	rotate <180,0,0>
}

torus {
	2*sqrt(1/5), 0.013
	texture { P_Ring }
	rotate <90,asin(2/sqrt(5))*180/pi,0>
	translate <8/5,0,4/5>
	rotate <180,0,0>
}