♦ Floco de Neve - Código-fonte

aprenda koch :ordem :len  se :ordem < 1 | :len < 1 [parafrente :len pare] koch :ordem-1 :len/3 pe 60 koch :ordem-1 :len/3 pd 120 koch :ordem-1 :len/3 pe 60 koch :ordem-1 :len/3 fim aprenda flocokoch :ordem :len  repita 3 [pd 120 koch :ordem :len ] fim .................................................. obs: ordem=número de iterações len=tamanho de cada traço