Ron Parker <ron### [at] povrayorg> wrote in message
news:slr### [at] fwicom...
> #macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)union{R(z+a z)R(-z
a-z)R(a
> -z*3a+z)torus{1F clipped_by{plane{a 0}}}translate z+V}#end#macro
S(g)9-(D-g)*(D-
> g)#end#macro Z(D a T
F)union{P(a)P(-a)R(y-z-1a)translate.1*D-y*8pigment{rgb<S(7)
> S(5)S(3)>}}#if(D)Z(D-.2a,T F)#end#end Z(10x*-2x.2)camera{rotate x*90}

Nice :)

Inspired, I've come up with this one:

media{emission rgb<2,3,4>absorption rgb<2,3,4>density{function{.1/(y+1)}}}#macro
P(d)pigment{checker rgb 6 translate d scale.15 rotate 45*y}#end#macro F(S,T,E,G)
box{<S,T,-.01>,<E,G,1>}#end camera{location<1,2,-3>look_at 0}sphere{y-x,1 finish
{reflection 1}}union{F(0,4,3,5)F(1,0,2,5)F(4,0,5,5)F(4,4,7,5)F(4,2,6,3)scale.35
rotate 90*x P(1)}plane{y,0 P(0)} // Tekno Frannansa. evilsuperbrain.com

It's kind of the reflective ball on checkered floor, but showing off more ;).
Obviously it's a bit long at the moment, so I was kind of hoping someone might
have some suggestions for shortening it, because I've run out of ideas (well,
it's 3 in the morning, I think my brain's given up!).

Cheers.

--
Tek
http://www.evilsuperbrain.com

Post a reply to this message