Fractal Polygons

function fracPolygone(corner,len,shrink,recurs,start) { if (recurs>0) { if (start==1) { start = 0; t.rt(180); fracPolygone(corner,len*shrink,shrink,recurs-1,start); t.lt(180); } t.fd(len); t.rt(360/corner); for(var i=0;i<corner-1;i++) { t.rt(180); fracPolygone(corner,len*shrink,shrink,recurs-1,start); t.lt(180); t.fd(len); t.rt(360/corner); } }; } t.cs(); t.hideTurtle(); t.setPos(-100,0); t.setPenColor('blue'); fracPolygone(5,100,0.4,7,1);

References

• Peter Baptist, Wolfgang Neidhardt, Alfred Wassermann: Symmetry and Regular Polygons, Prispevki k poucevanju Matematike, The Improvement of Mathematics Education in Secondary Schools: A Tempus Project, Maribor 1996