> 
> On 20 Jul 2002 13:54:04 -0400, "Rafal 'Raf256' Maj" <raf### [at] raf256com> wrote:
> > #macro g(U,V)(.4*abs(sin(9*sqrt(pow(x-U,2)+pow(y-V,2))))*pow(1-min(1,(sqrt(
> > pow(x-U,2)+pow(y-V,2))*.3)),2)+.9)#end#macro p(c)#if(c>1)#local l=mod(c,100
> > );g(2*div(l,10)-8,2*mod(l,10)-8)*p(div(c,100))#else 1#end#end light_source{
> > y 2}sphere{z*20 9pigment{function{p(26252423)*p(36455644)*p(66656463)}}}//M
> 
> what about:
> 
  > light_source{y#macro p(c)#if(c>1)#local l=mod(c,100);g(x-2*div(l,10)+8,y-2*
  > mod(l,10)+8,0)*p(div(c,100))#end#end#local s=function{z*sqrt(pow(x,2)+pow(y
  > ,2))}2}sphere{z*20#local g=function{.4*abs(sin(s(x,y,9)))*pow(1-min(1,s(x,y
  > ,.3)),2)+.9}9pigment{function{p(26252423)p(36455644)p(66656463)1}}}//M

or:

    light_source{y#macro p(c)#if(c>1)#local l=mod(c,1E2);g(x-2*div(l,10)+8,y
    -2*mod(l,10)+8,0)*p(div(c,1E2))#end#end 2}sphere{#include"functions.inc"
    z*20#local g=function{.4*abs(sin(9*f_r(x,y,0)))*pow(1-min(1,.3*f_r(x,y,0
    )),2)+.9}9pigment{function{p(26252423)p(36455644)p(66656463)1}}}//M


Tor Olav

Post a reply to this message