// PLASMA / The Interference Field '99.07 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; global_settings { max_trace_level 40 assumed_gamma 2.2 } light_source {<-0.2, -150, -250> color <1,1,1>} camera { location <-0.2,-1.5,-2.5> angle 46 look_at <-0.32, 0.03, 0> } union { sphere { <0.4, 1.1, 0.3> 0.2 pigment { color rgb <0.8, 0.7, 0.6> } finish {ambient 1} } sphere { <0.4, 1.1, 0.3> 0.21 pigment { marble color_map { [0.2 color rgbt <1, 1, 1, 0.7>] [1 color rgbt <0, 0, 0, 0.96>] } turbulence 1.6 scale 0.1 rotate z*90 translate y*10 } finish {ambient 0.5 diffuse 0.8 reflection 0} } sphere { <0.4, -1.0, -0.2> 0.36 pigment { color rgb <0.7, 0.6, 0.8> } finish {ambient 1} } sphere { <0.4, -1.0, -0.2> 0.37 pigment { marble color_map { [0.2 color rgbt <1, 1, 1, 0.7>] [1 color rgbt <0, 0, 0, 0.96>] } turbulence 1.6 scale 0.1 rotate z*90 translate y*10 } finish {ambient 0.5 diffuse 0.8 reflection 0} } #declare Cn = 0; #while ( Cn < 6) #declare Se = 118+30*Cn; #declare R1 = seed(Se); #declare Sr = 0.15+0.05*pow(rand(R1),4); #declare Xs = 720*rand(R1); #declare Ys = 720*rand(R1); #declare Zs = 720*rand(R1); #declare Tbr = rand(R1); #declare A = 0.2; // pinching #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 B = 0; // fattening #declare Dx = 0.8; // x bending of x^2+z^2=r^2 #declare Cz = 0.3; // z leaning of x^2+z^2=r^2 #declare Cx = 0; // x leaning of x^2+z^2=r^2 #declare Dz = 0.2; // z bending of x^2+z^2=r^2 #declare E = 0; // x leaning of x^4+z^4=r^4 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 > bounded_by { box{<-2,-2,-2> <2,2,2>} } pigment { marble color_map { [0.8 color rgbt <0.3, 0, 1, 0.9>] [1 color rgbt <1.2, 1, 1.2, 0.4>] } turbulence 0.6 scale rand(R1)+0.5 rotate x*rand(R1) translate x*Xs*500 rotate y*rand(R1)*720 translate z*Zs*1000 translate y*+pow(-1,Cn)*0.3+800 } finish {ambient 0.7 diffuse 0.8 reflection 0} scale <1-0.1*Cn,1.5-0.1*Cn,1-0.1*Cn> translate y*pow(-1,Cn)*0.1*rand(R1) no_shadow } #declare Cn = Cn+1; #end rotate x*-120 rotate y*-120 } //Starly sky sphere { <0, 0, 0> 100 pigment { marble color_map { [0.98 color rgbt <5, 0, 5, 1>] [1 color rgb <1.5, 3, 7.5>] } turbulence 300 scale 12 translate y*50 } finish {ambient 1.0 diffuse 0.8 reflection 0} } sphere { <0, 0, 0> 99 pigment { marble color_map { [0.6 color rgbt <0, 0, 0, 1>] [1 color rgb <0, 0, 0>] } turbulence 2 scale 5 } finish {ambient 1.0 diffuse 0.8 reflection 0} }