summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/asymptote/examples/Sierpinski.asy
blob: d1664045d9fb41722a06a01b9f37b11825f680ee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
size(10cm);

// Draw Sierpinski triangle with top vertex A, side s, and depth q.
void Sierpinski(pair A, real s, int q, bool top=true)
{
  pair B=A-(1,sqrt(2))*s/2;
  pair C=B+s;
  if(top) draw(A--B--C--cycle);
  draw((A+B)/2--(B+C)/2--(A+C)/2--cycle);
  if(q > 0) {
    Sierpinski(A,s/2,q-1,false);
    Sierpinski((A+B)/2,s/2,q-1,false);
    Sierpinski((A+C)/2,s/2,q-1,false);
  }
}

Sierpinski((0,1),1,5);