#local k=<0,0,1>;#macro c(d,e,f,g)disc{d,e,f pigment{rgb<1,1,0>*g}}#end 
c(k*5,k,2,9)c(<.5,.5,3>,k,.2,1)c(<-.5,.5,3>,k,.2,1)c(<0,-1,5>,<0,-1,.1>,1,1)