Courbe fractale avec Minilogo

Vous pouvez modifier la valeur de niv dans première ligne.

dans niv 4 dans cot 60 dans nb 5^niv dans pas cot/(3^niv) dans num 0 lc re cot/2 bc pour motif [ av pas dans num num+1 dans r num-5*ent(num/5) si r=1 (tg 90) si r=2 (td 90) si r=3 (td 90) si r=4 (tg 90) si r=0 [ dans q num tantque q/5=ent(q/5) (dans q q/5) dans r q-5*ent(q/5) si r=1 (tg 90) si r=2 (td 90) si r=3 (td 90) si r=4 (tg 90)] ] faire nb [motif]