>>>camera{}#macro G(E)sphere{0,.04translate z+E*y*.0015rotate E*z*-1.8pigment{
>>>#end light_source{20*y-10,1}#local n=0;#while(n<536)G(n)red 1}}#local n=n+1
>>>;#end#local n=0;#while (n<536)G(-n)rgbt.7}}#local n=n+1;#end // Greg E
>>
>>light_source{20*y-10,1#macro G(E)union{#local n=0;#while(E*n<536
>>)sphere{z+n*y*15e-4.04rotate n*z*-1.8}#local n=n+E;#end pigment{
>>#end}G(1)red 1}}G(-1)rgbt.7}} // Greg E
> 
> light_source{20*y-10#macro S(d)sphere{z+d*y*15e-4.04rotate-z*d*1.8pigment
> {rgbt#end#local n=576;1}#while(n)S(n)x}}S(-n).7}}#local n=n-1;#end//GregE

Did you notice that it is not lossless? Then even shorter:

light_source#macro G(E)sphere{z+E*y*5e-3.04rotate-z*E*6pigment{rgbt#end{
20*y-10#local n=162;1}#while(n)#local n=n-.3;G(n)x}}G(-n).7}}#end//GregE


-- 
merge{#local i=-11;#while(i<11)#local
i=i+.1;sphere{<i*(i*i*(.05-i*i*(4e-7*i*i+3e-4))-3)10*sin(i)30>.5}#end
pigment{rgbt 1}interior{media{emission x}}hollow}//  Mark Weyer

Post a reply to this message