Christoph Hormann wrote:
> 
> Tor Olav Kristensen wrote:
> >
> > It can be done with 2 characters less.
> > (The image below is done that way.)
> >
> > So Warp, can you spot how to shorten your code ?
> >
> 
> I could not find it until now, but i have a version that is 8 characters
> shorter than Warp's, although i'm not sure if you will accept it, because
> it's not made of spheres.

Well, here's my solution:

camera{location 2look_at 0}light_source{9,1}$R=1;#while
(R+2)$S=2;#while(S+2)sphere{<R,eval_pattern(mandel 9,
<R,S>),S>.01pigment{bozo}}$S=S-.02;#end$R=R-.02;#end


If you're not doing it with spheres, then what are you using ?
Code please !


> I also managed to eliminate one while loop from Warp's version, but that
> makes it slightly larger, maybe someone can also reduce this:
> 
> camera{location 2look_at 0}light_source{9,1}$R=0;#while
> (R<99)sphere{<int(R)/99,eval_pattern(mandel 9,
> <(R-int(R)-.5)*3,int(R)/40-1>),R-int(R)>.01pigment{bozo}}$R=R+.02;#end

Interesting solution !

This reminds me of something Dan Johnson did in
his Arrange_3d macro. See his "Polyhedra include file"
thread in povray.binaries.scene-files, 11. Jan -01:

news://news.povray.org/3A67EB4C.EFE1B3BD%40hotmail.com


-- 
Best regards,

Tor Olav

mailto:tor### [at] hotmailcom
http://www.crosswinds.net/~tok/tokrays.html

Post a reply to this message