Sierpinski curve

function halfSierpinski(s,l) { if (l==0) { t.fd(s); } else { halfSierpinski(s,l-1); t.lt(45); t.fd(s*Math.sqrt(2)); t.lt(45); halfSierpinski(s,l-1); t.rt(90); t.fd(s); t.rt(90); halfSierpinski(s,l-1); t.lt(45); t.fd(s*Math.sqrt(2)); t.lt(45); halfSierpinski(s,l-1); } } function sierpinski(s,l) { halfSierpinski(s,l); t.rt(90); t.fd(s); t.rt(90); halfSierpinski(s,l); t.rt(90); t.fd(s); t.rt(90); } t.cs(); t.ht(); level = 3; t.setPos(0,-300); sierpinski(150/Math.pow(2,level),level);

References

• http://en.wikipedia.org/wiki/Sierpi%C5%84ski_curve

The source code

function halfSierpinski(s,l) {
    if (l==0) {
       t.fd(s);
    } else {
        halfSierpinski(s,l-1);
        t.lt(45);
        t.fd(s*Math.sqrt(2));
        t.lt(45);
        halfSierpinski(s,l-1);
        t.rt(90);
        t.fd(s);
        t.rt(90);
        halfSierpinski(s,l-1);
        t.lt(45);
        t.fd(s*Math.sqrt(2));
        t.lt(45);
        halfSierpinski(s,l-1);
    }
}

function sierpinski(s,l) {
    halfSierpinski(s,l);
    t.rt(90);
    t.fd(s);
    t.rt(90);
    halfSierpinski(s,l);
    t.rt(90);
    t.fd(s);
    t.rt(90);
}
t.cs();
t.ht();
r = 4;
t.setPos(0,-300);
sierpinski(150/Math.pow(2,r),r);