// Qualtic1 / Twin Sphere // Please use freely for non comercial purpose. // All rights reserved by Tsutomu HIGO, Oct. 19, 1998 #version 3.0 global_settings { assumed_gamma 2.2 } #declare Ca = 0 #while (Ca<4) #declare Cb = 0 #while (Cb<3) #declare A = 0.1 + Ca/4 #declare B = Cb/3 quartic { < 8, 0, 0, 0, 4, 0, 0, 16, 0, -16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 4, 0, -4+4*A*A, 0, 0, 0, 0, 8, 0, -16+16*A*A, 0, 8-16*A*A+8*pow(A,4) > bounded_by { box { <-2,-2,-2> <2,2,2> } } texture { pigment{ color rgb <0.2, 0.7, 0> } finish { reflection 0.4 specular 0.5 ambient 0.1 phong 0.5 diffuse 0.5 } } no_shadow scale <2.5, 2.5*(1-B), 2.5> rotate <-50, 40, 0> translate } #declare Cb = Cb+1 #end #declare Ca = Ca+1 #end sky_sphere { pigment { gradient y color_map { [ 0.2 color rgb <1,1,1> ] [ 1.00 color rgb <0.3,0.3,1> ] } scale 1 rotate y*0 translate 0 } } light_source { <500, 500, -1000> color rgb <1,1,1> } camera { location <0,0,-800> angle 2.3 look_at <0, 0, 0> }