// POLYHEDRA / Hexahedra Family '00.12
// By Tsutomu HIGO  E-mail: nj2t-hg@asahi-net.or.jp

#version 3.1;
global_settings { assumed_gamma 2.2 }

camera {
  location <10,30,-35>
  angle 22
  look_at <1.4,6.7,0>
  }

light_source { <200,500,0> color rgb <1,1,1> }

#declare Texpla=
    texture {
      pigment { color rgbt <1,0.5,0.5,0> }
      finish { reflection 0  ambient 0.4 phong 1 brilliance 1 }
      }

#declare Texplb=
    texture {
      pigment { color rgbt <1,0.9,0.5,0> }
      finish { reflection 0  ambient 0.4 phong 1 brilliance 1 }
      }

#declare Texplc=
    texture {
      pigment { color rgbt <1,1,0.9,0> }
      finish { reflection 0  ambient 0.4 phong 1 brilliance 1 }
      }

#declare Yrot=50;

#macro Polyn (N)
  #declare A=asin((1-cos(pi/N))/sqrt(3)/sin(pi/N));
  #declare Ra=sqrt(3)/4*cos(A);
  #declare Rb=sqrt(1/4/sin(pi/N)/sin(pi/N)+3/16*cos(A)*cos(A)-1/3);

  #declare Unit=
  intersection {
    plane { y,Rb rotate z*180/pi*0.955316618 rotate y*45 texture {Texplb}} 
    plane { -y,Rb rotate z*180/pi*0.955316618 rotate y*45 texture {Texplb} } 
    }

  intersection {
    plane { y,Ra texture {Texpla} }
    plane { -y,Ra texture {Texpla} }
    #declare I=0 #while (I<N)
      object { Unit rotate y*pi/N*I }
    #declare I-I+1; #end
    bounded_by { sphere { <0,0,0> sqrt(1/4/sin(pi/N)/sin(pi/N)+3/16*cos(A)*cos(A) } }
    }

#end

//5
object { Polyn (5)
  rotate y*Yrot
  translate <0,0,0>
  no_shadow
  }