// CHAOS / Rug '00.04 // By Tsutomu HIGO E-mail: nj2t-hg@asahi-net.or.jp #version 3.1; #global_settings { assumed_gamma 2.2 } camera { location <-50, -2500, -1500> look_at <30, -1000, 0> angle 80 } #macro Chaos ( A, B, T, Nend ) #declare X = 0; #declare Y = 0; #declare N = 1; #while (N < Nend) #declare Tx = Y-(1+A*X+10*X*X/(0.5+0.2*X*X*X)); #declare Ty = B*X; #declare X = Tx; #declare Y = Ty; sphere { <1*X*T, 1*Y*T, T*0.05> 16 pigment { color rgb < 1-N/Nend, 1-sqrt(N/Nend), 1-sqrt(N/Nend) > } finish { reflection 0 ambient 0.5 phong 1 diffuse 1 } no_shadow rotate z*140 } #declare N = N+1; #end #end Chaos ( 0.2, -1, 5.0, 3000 ) light_source { <700, 1000, -3000> color rgb <1,1,1> }