....but it won't be today.

(but I can get rid of F if I find a different seed for the same sequence, but
whose next value is 2, not 1 - that'll have to wait for tonight)

Heh, spent awhile with #macro H()#local#end and couldn't figure out why it
didn't work - doh.

#macro H()#declare#end#macro A(B,C)cone{0,0y.1rotate z*C*-90pigment{rgb D/6}
translate B}#end H()D=<-2,1,6>;H()E=seed(20960);H()F=11;#while(F)H()G=int(3*
rand(E));A(D,G)H()D=D+<1-abs(G-1),1-G,0>;H()F=F-1;#end light_source{1,1}//TM


--
#macro A(V,B,C,R)#while(B-256)#if(V-128/B>=0)sphere{0,.5translate<C-4R-1,9>
pigment{rgb<1-C/8R/2C/8>}}#local V=V-128/B;#end#local B=B*2;#local C=C+1;#
end#end A(234,1,0,2)A(85,1,0,1)A(81,1,0,0)light_source{-5 1}//Tom Melly

Post a reply to this message

Tom Melly wrote:
> 
> ....but it won't be today.
> 
> [...]
> 
> #macro H()#declare#end#macro A(B,C)cone{0,0y.1rotate z*C*-90pigment{rgb D/6}
> translate B}#end H()D=<-2,1,6>;H()E=seed(20960);H()F=11;#while(F)H()G=int(3*
> rand(E));A(D,G)H()D=D+<1-abs(G-1),1-G,0>;H()F=F-1;#end light_source{1,1}//TM

You will have to find a new appropriate seed for this version but apart
from that...:

light_source{1,1}#macro R(D,F,G,E)cone{0,0y.1rotate-90*z*G 
pigment{rgb D/6}translate D}#if(F)R(D+<1-abs(G-1),1-G,0>,F-
1,int(3*rand(E)),E)#end#end R(<-2,1,6>,10,2,seed(20960))//TM

Christoph

-- 
POV-Ray tutorials, include files, Sim-POV,
HCR-Edit and more: http://www.tu-bs.de/~y0013390/
Last updated 31 Dec. 2002 _____./\/^>_*_<^\/\.______

Post a reply to this message

"Christoph Hormann" <chr### [at] gmxde> wrote in message
news:3E50E8E9.6AE0BAC6@gmx.de...
>
> You will have to find a new appropriate seed for this version but apart
> from that...:
>

Did you clean it in a hot wash? ;)

Post a reply to this message

On Mon, 17 Feb 2003 14:51:37 +0100, Christoph Hormann <chr### [at] gmxde>:

I thought I will not make it shorter just to make Tom Melly happy but I
couldn't resist ;-)

light_source{1on}#macro R(D,F,G,E)cone{D,0D+vrotate(y,-
90*z*G).1pigment{rgb D/6}}#if(F)R(D+<1-abs(G-1)1-G,0>F-
1int(3*rand(E))E)#end#end R(<-2,1,6>10,2seed(20960))//TM

ABX

Post a reply to this message

"ABX" <abx### [at] abxartpl> wrote in message
news:abs15vkksu43vvvm83vquigecjq5itnqq0@4ax.com...
>
> light_source{1on}#macro R(D,F,G,E)cone{D,0D+vrotate(y,-
> 90*z*G).1pigment{rgb D/6}}#if(F)R(D+<1-abs(G-1)1-G,0>F-
> 1int(3*rand(E))E)#end#end R(<-2,1,6>10,2seed(20960))//TM

Hmm, also seems to have lost something - however, gah!, I had it in my head that
vrotate required an include. Doh!

Post a reply to this message

> I thought I will not make it shorter just to make Tom Melly happy but I
> couldn't resist ;-)
> 
> light_source{1on}#macro R(D,F,G,E)cone{D,0D+vrotate(y,-
> 90*z*G).1pigment{rgb D/6}}#if(F)R(D+<1-abs(G-1)1-G,0>F-
> 1int(3*rand(E))E)#end#end R(<-2,1,6>10,2seed(20960))//TM

It is never short enough:

light_source{1on}#macro R(D,H,F,C)cone{D,0H.1pigment{rgb D/6}}#if(F)R(H
H+vrotate(y,-90*z*int(3*rand(C)))F-1C)#end#end R(<-2on,6><-2no
6>10seed(20960))//TM


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

"Mark Weyer" <wey### [at] informatikuni-freiburgde> wrote in message
news:3E5### [at] informatikuni-freiburgde...
>
> It is never short enough:
>
> light_source{1on}#macro R(D,H,F,C)cone{D,0H.1pigment{rgb D/6}}#if(F)R(H
> H+vrotate(y,-90*z*int(3*rand(C)))F-1C)#end#end R(<-2on,6><-2no
> 6>10seed(20960))//TM
>

... or correct enough? Everyone seems to be duplicating the same mistake - the

is going on, I'll find a new seed.

Post a reply to this message