POV-Ray : Newsgroups : povray.binaries.images : ridiculous image : Re: ridiculous image Server Time
11 Aug 2024 07:19:03 EDT (-0400)
  Re: ridiculous image  
From: Ken
Date: 13 Apr 2004 22:20:35
Message: <407c9ff3@news.povray.org>
"Johan Feyaerts" <joh### [at] no_spamskynetbe> wrote in message
news:407c196a@news.povray.org...
> By the way, Anyone has a link to the right formulas to make 3d fractals? ;-)

2 3D Mandle fractal examples... ...if you can figure these out... ...well, good
luck...

  camera{location<1,2,2>look_at 0}light_source{z*9+y*9,1}#local Z=-1;#while(Z<1)
  #local X=-2;#while(X<1)#local r=X;#local i=Z;#local n=0;#while(n<1&r*r+i*i<4)
  #local a=2*r*i+Z;#local r=r*r-i*i+X;#local i=a;#local n=n+.05;#end sphere{
  <X,n/2,Z>.02 pigment{rgb<1,n,0>}}#local X=X+.02;#end#local Z=Z+.02;#end

  camera{location<yes,yes+on,yes+true> look_at -u }light_source{9-9*x
  yes}#declare Z=-true;#while(Z<on)#declare X=-2;#while(X<true)#declare
  r=X;#local i=Z;#version clock;#while((version<true)&(((r*r)+(i*i))<4))#local
  a=((2*r*i)+Z);#local r=((r*r)-(i*i)+X);#local i=a;#version (version+.05);#end
 sphere{<(X),(.5*version),(Z)>.02 pigment{ color((z*version)+v+(x*(1-version)))}}
 #declare X=(X+.02);#end#local Z=(Z+.02);#end


Post a reply to this message

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