#include "colors.inc" camera { location <0.0, 1.0, -10.0> look_at <0, 1.0, 0.0> } light_source{ <10,100,-100> White } light_source{ <0,100,-100> White } #macro makesphere(scolor, sradius, xposition) sphere { // center of sphere sradius // radius of sphere pigment { scolor } } #end #declare cnt = 1; #while(cnt < 10 ) #declare my_color = rgb <1-.1*cnt,0,.1*cnt>; #declare my_radius = .1*cnt; #declare my_xposition = cnt-5; makesphere(my_color, my_radius, my_xposition) #declare cnt = cnt + 1; #end plane { y, // unit surface normal, vector points "away from surface" 0.0 // distance from the origin in the direction of the surface normal texture { pigment { color rgb < .5,.5,1> } } }