On Tue, 3 Jul 2001 03:27:46 +0100, Tek wrote:
>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

I can't render it.  It seems to have an unsupported keyword in it. :)

Nonetheless, you can save some characters by just removing unnecessary spaces
after numbers and before keywords and/or symbols.  So, for example,
"scale.15 rotate" becomes "scale.15rotate".  That doesn't come anywhere near
making it small enough, of course.

-- 
#macro R(L P)sphere{L F}cylinder{L P F}#end#macro P(V)merge{R(z+a z)R(-z a-z)R(a
-z-z-z a+z)torus{1F clipped_by{plane{a 0}}}translate V}#end#macro Z(a F T)merge{
P(z+a)P(z-a)R(-z-z-x a)pigment{rgbf 1}hollow interior{media{emission 3-T}}}#end 
Z(-x-x.2x)camera{location z*-10rotate x*90normal{bumps.02scale.05}}

Post a reply to this message