On Tue, 23 Jul 2002 13:28:35 +0200, Felix Wiemann <Fel### [at] gmxnet>
wrote:
> What about this (without name):
>
> #macro A(V,C,R)#while(C-8)#if(V-pow(2,7-C)>=0)sphere{<C-4R-1#
> local V=V-pow(2,7-C);9>.5pigment{rgb<1-C/8R/2C/8>}}#end#local
> C=C+1;#end#end A(234,0,2)A(85,0,1)A(81,0,0)light_source{-5 1}

Why without name ?

#macro A(C,R,V)#if(C-8)A(C+1R,#if(V<pow(2,7-C))V)#else V-pow(
2,7-C))sphere{<C-4R-1,9>.5pigment{rgb<1-C/8R/2C/8>}}#end#end#
end A(0,2,234)A(0on,85)A(0,0,81)light_source{-5on}//Tom Melly

> I doubt if the mathematics are necessary. There is probably a much simpler 
> and shorter way: Just define a macro(X,Y) that places a sphere and invoke 
> it several times.

or use method similiar I used in
http://news.povray.org/m2am9uo755ncf7d7j223jdsgnhlq9trggu%404ax.com

ABX
-- 
disc{z,-z#macro O()asc(substr("-+((1*(,1,/.-,*/(,&.323/'1"e 1))/10-4#declare
e=e-1;#end#local e=26;5pigment{#local g=function(_){ceil(_)-_}function#local
k=function{pattern{object{sphere_sweep{linear_spline 13#while(e)<O()O()>.01#
end}}}}{k(g(atan2(x,y)),g(ln(pow(x+y,2)+1e-5)),0)}}finish{ambient 1}}//ABX35

Post a reply to this message