Welcome to Fractal Forums

Fractal Art => Images Showcase (Rate My Fractal) => Topic started by: knighty on December 02, 2012, 08:52:05 PM




Title: pentagonal caleidoscope
Post by: knighty on December 02, 2012, 08:52:05 PM
pentagonal caleidoscope

(http://nocache-nocookies.digitalgott.com/gallery/12/932_02_12_12_8_52_05.jpeg)

http://www.fractalforums.com/index.php?action=gallery;sa=view;id=12894

The product of my attempt to KIFS-ify ( :D) Penrose tiling. It's aperiodic but not a Penrose tiling.
The evaldraw script:
Code:
//Ctrl-p to load a picture
static a=-sin(4*pi/5),b=cos(4*pi/5),c=sin(4*pi/5);
static phi=0.5*(1+sqrt(5));
(x,y,&r,&g,&b){
   n=10;k=1/phi^n;
   x*=k;y*=k;
   x+=0.5;
   for(i=0;i<n;i++) iter(x,y);
   
   pic(x*256+mousx,mousy-y*256,r,g,b)
}
iter(&x,&y){
   
   t=2*min(0,a*x+b*y+c);
   x-=t*a; y-=t*b;
   y=abs(y);
   x*=phi;y*=phi;
   x=phi-x;
   t=2*min(0,a*x+b*y+c);
   x-=t*a; y-=t*b;
   y=abs(y);
}
enjoy