floco(n) traça o floco de Koch para n etapas [n inteiro positivo] na cor definida em seg(). seg(xa, ya, xb, yb, r, v, b) desenha um segmento final A(xa, ya) e B(xb, yb) na cor (r, v, b). Podemos apenas pedir seg(xa, ya, xb, yb): a cor será então magenta por defeito.
Este script foi traduzido do script criado original pelo utilizador telpe51.