// Qualtic1 / Cyberbust // Please use freely for non comercial purpose. // All rights reserved by Tsutomu HIGO, Oct. 11, 1998 #version 3.0 global_settings { assumed_gamma 2.2 } // Swx*(x-E*y)^4 +Swz*z^4 +(1-Swx)*(x-Cx*y-Dx*y^2)^2 // +(1-Swz)*(z-Cz*y-Dz*y^2)^2= B -(y - 1)*(y + 1)*(y - A)^2 #declare Swx = 0 // x ratio of x^4+z^4=r^4 #declare Swz = 0 // z ratio of x^4+z^4=r^4 #declare A = 0.8 // pinching #declare B = 0.03 // fattening #declare Cx = -0.3 // x leaning of x^2+z^2=r^2 #declare Cz = 0 // z leaning of x^2+z^2=r^2 #declare Dx = 0.3 // x bending of x^2+z^2=r^2 #declare Dz = 0 // z bending of x^2+z^2=r^2 #declare E = 0 // x leaning of x^4+z^4=r^4 #declare Bust = quartic { < Swx, -4*Swx*E, 0, 0, 6*Swx*E*E, 0, 0, 0, 0, 1-Swx, -4*Swx*pow(E,3), 0, -2*(1-Swx)*Dx, 0, 0, -2*(1-Swx)*Cx, 0, 0, 0, 0, 1+(1-Swx)*Dx*Dx+(1-Swz)*Dz*Dz+Swx*pow(E,4), 0, -2*A+2*(1-Swx)*Cx*Dx+2*(1-Swz)*Cz*Dz, 0, -2*(1-Swz)*Dz, A*A-1+(1-Swx)*Cx*Cx+(1-Swz)*Cz*Cz, 0, 0, -2*(1-Swz)*Cz, 2*A, Swz, 0, 1-Swz, 0, -A*A-B > texture { pigment { gradient y color_map { [ 0.01 color rgb <1,0.7,0.6> ] [ 1.0 color rgb <1,1,0.85> ] } turbulence 0.2 scale 3 translate y*1.6 } finish { ambient 0.6 specular 0 crand 0.001 phong 0 reflection 0 brilliance 0 } } } #declare Busts = union { object { Bust rotate z*90 rotate y*75 translate x*-1.2 } object { Bust rotate z*90 rotate y*105 translate x*1.2 } } union { Busts rotate y*30 translate <3,-2.6,-20> } union { Busts rotate y*-30 translate <-3,2.2,-20> } union { Busts translate <0,-0.2,-20> } light_source { <-1000, 500, 1000> color rgb <0.2,0.2,0.29> } light_source { <600, 500, 300> color rgb <0.3,0.3,0.28> } camera { location <0, 0, 20> look_at <0, 0, 0> angle 15 }