Tor Olav Kristensen wrote:
> 

> >
> > 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

I just RTFM and found that it could have 3 characters less:

      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"stdinc.inc"20*
      z#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