POV-Ray : Newsgroups : povray.binaries.animations : Sierpinski Surprise (560 KB) : Re: Sierpinski Surprise (560 KB) Server Time
18 Jul 2024 18:21:10 EDT (-0400)
  Re: Sierpinski Surprise (560 KB)  
From: Timon Christl
Date: 24 Feb 2004 13:03:56
Message: <403b920c$1@news.povray.org>
Dennis Miller wrote:
> Hi. May I see the code for this effect? I suppose the process could be used
> with a variety of "target shapes..."

I just got myself the source of xscreensaver 
(http://www.jwz.org/xscreensaver/) and looked into 
xscreensaver-4.14/hacks/ifs.c. I don't claim I understand that code in 
its entirety after the few minutes I spent reading it, but it appears to 
me that this mess of a code does pretty much what I suspected: 
precalculate once, then just repeatedly transform and draw. But I could 
err, of course. Anyway, with this code being such a mess I doubt you 
could easily adapt it to other shapes. IMHO it would be better to write 
a new program from scratch...

-- 
(defun f(p x)(If(Eq x nil)nil(If(p(Car x))(Cons(Car x)(f p(Cdr x)))(f p
(Cdr x)))))(defun q(x)(Q nil x))(defun Q(a x)(If(Eq x nil)a(Q(Cons(Car
x)(Q a(f(Lt(Car x))(Cdr x))))(f(Gt(Car x))(Cdr x)))))


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.