Figure Asymptote fractales -- 007

Posted on 2011-01-01 Edited on 2025-06-30 In EN , Tech , Programming , Asymptote , Surveys , Fractals

An Asymptote code and the generated picture fractales--007.

🔗This picture comes from the Asymptote gallery of topic fractales

$Figure fractales 007 Generated with Asymptote$

Translate from http://zoonek.free.fr/LaTeX/Metapost/metapost.html

Show fractales/fig0070.asy on Github.
Generated with Asymptote 3.00-0.
Categories : Surveys | Fractals
Tags : #Fractals | #Recursion

size(8cm);
void koch(pair A, pair B, int n) {
  pair C;
  C =rotate(120, point(A--B,1/3))*A;
  if (n>0) {
    koch( A,        point(A--B,1/3), n-1);
    koch( point(A--B,1/3), C,        n-1);
    koch( C,        point(A--B,2/3), n-1);
    koch( point(A--B,2/3), B,        n-1);
  } else draw(A--point(A--B,1/3)--C--point(A--B,2/3)--B);
}

pair z0=(1,0);
pair z1=rotate(120)*z0;
pair z2=rotate(120)*z1;
koch( z0, z1, 3 );
koch( z1, z2, 3 );
koch( z2, z0, 3 );