// CHAOS / Variety '00.04 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; #global_settings { assumed_gamma 2.2 } camera { location <-24000, -20000, -10000> look_at <950, 800, 0> angle 1.38 } #macro Chaos ( A, B, T ) #declare Nend = 200; #declare X = 0; #declare Y = 0; #declare I = 1; #while (I < 10) #declare N = 1; #while (N < Nend) #declare Tx = Y-(1+A*X+4*X*X/(1+X*X)); #declare Ty = B*X+1; #declare X = Tx; #declare Y = Ty; sphere { <1*X*T, 1*Y*T, -4*mod(C,20)*T*2> 1 pigment { color rgb < N/Nend*(1-0.6*mod(C,2)),0.6*mod(C,2), (1-N/Nend)*(1-0.3*mod(C,2))> } finish { ambient 0.8 diffuse 0.5 } no_shadow } #declare N = N+1; #end #declare I = I+1; #end #end union { #declare C = 1; #while (C < 20) Chaos ( 0.6*C/20, -1, 5.0 ) #declare C= C+1; #end translate y*200 } union { #declare C = 20; #while (C < 40) Chaos ( 0.6*C/20, -1, 5.0 ) #declare C= C+1; #end translate y*0 } union { #declare C = 40; #while (C < 60) Chaos ( 0.6*C/20, -1, 5.0 ) #declare C= C+1; #end translate y*-200 } light_source { <500, 600, -2000> color rgb <1,1,1> }