> 
> I couldn't resist :-)
> One space saved and more obfuscated coding :-)
> 
> #macro i()function{internal(#end#macro _(Y,Z,k,c)isosurface{function{-Y(
> Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient k rotate<k,40>pigment{slope
> x color_map{[0c*x][1c*z]}}translate#end _(i()35)}i()36)}99rgb 9)3*z}//CH

Nice, but you have to admit that 1 space is really not much.  And it's
only achieved by placing a necessary whitespace at the line break.

The same macro modification shortens my version too:

isosurface{#macro X()function{internal(#end#local Y=X()35)}#local Z=X()
36)}function{-Y(Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}max_gradient 99 rotate<99
,40>pigment{slope x color_map{[0rgb 9*x][1rgb 9*z]}}translate 3*z}//C.H.

NTL yours is really more obfuscated.

I somehow liked the

isosurface{X()-Y(Z(y,2*z,x,1),Z(y,x,z,.3),z,.8)}

in my first version though (it's not only obfuscated but also misleading).

> btw: I think it could be enough space to not use internal token and build in
> real equation :-)

I doubt this would fit in 4 lines, but it would definitely look
interesting...

Christoph

-- 
POV-Ray tutorials, IsoWood include,                 
TransSkin and more: http://www.tu-bs.de/~y0013390/  
Last updated 18 Mar. 2002 _____./\/^>_*_<^\/\.______

Post a reply to this message