On Fri, 14 Mar 2003 07:54:31 -0600, "Michael Goldshteyn"
<mgo### [at] n-o-s-p-a-m-earthlinknet> wrote:
> > #macro _(n)sphere{<n-15no 30>5-n/5pigment{rgb<n
> > n/2n/3>}scale y*n/4}#if(n)_(n-1)#end#end#_(30)
>
> Well, I ABX'd them (pun intended), and so far, you're king :)

Not yet. BTW try this modelling:

#macro _(n)sphere{<n-15no 30>5-n/5mod(n,5)*5pigment{rgb<n
n/2n/3>}scale y*n/4}#if(n)_(n-1)#end#end#blob{_(30)}

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