aprenda ajuste
atribua "q mostrebarrarolagem "r1
atribua "n mostrebarrarolagem "r2
seno :q >6 [atribua "l 40] [ atribua "l 120]
seno mostrecaixamarcao "m1 [at][dt]
seno mostrecaixamarcao "m2 [ fractal1 :l :q :n] [fractal :l :q :n]
fim

aprenda frac :l :q :n
se :n=0[pf :l pare]
frac :l/3 :q :n-1
pe 180-(360/:q)
repita :q-1[frac :l/3 :q :n-1 pd (360/:q)]
pe 180
frac :l/3 :q :n-1 
fim

aprenda fractais
apaguejanela "fra1
criejanela "main "fra [FRACTALIZANDO POLGONOS] 0 0 160 80
crieesttico "fra "e1 [Modo de execuo] 5 5 80 10
criecaixagrupo "fra "g1 5 12 70 27
criecaixamarcao "fra "g1 "m1 [exibir tartaruga] 7 17 60 10
criecaixamarcao "fra "g1 "m2 [esconder janela] 7 27 65 10
crieesttico "fra "e2 [Nmero de lados] 85 5 80 10
criebarrarolagem "fra "r1 85 15 70 10 [lado]
mudebarrarolagem "r1 3 8 3 lado
crieesttico "fra "e3 [Nvel do fractal] 85 25 70 10 
criebarrarolagem "fra "r2 85 35 70 10 [nvel]
mudebarrarolagem "r2 0 3 0 nvel
crieboto "fra "b1 "DESENHA 5 50 40 10 [ajuste]
crieboto "fra "b2 "LIMPA 60 50 40 10 [tat]
crieboto "fra "b3 "SAI 115 50 40 10 [apaguejanela "fra]
fim

aprenda fractal :l :q :n
mudecl (lista sortnum 255 sortnum 255 sortnum 255)
repita :q[frac :l :q :n pd 360/:q]
fim

aprenda fractal1 :l :q :n
apaguejanela "fra 
fractal :l :q :n
fractais
fim

aprenda janela
criejanela "main "fra1 [FRACTALIZANDO POLGONOS] 20 10 280 200
crieesttico "fra1 "est1 [UNIVERSIDADE DO RIO GRANDE DO SUL] 55 15 190 10
crieesttico "fra1 "est2 [ INSTITUTO DE MATEMTICA] 75 25 100 20
crieesttico "fra1 "est3 [CARLOS ALEXANDRE SELBACH] 35 75 120 20
crieesttico "fra1 "est4 [KATILENE GRILO CONTE] 35 95 200 20
crieesttico "fra1 "est5 [ PROFESSORA :  MARIA ALICE GRAVINA] 35 115 200 20 
crieesttico "fra1 "est6 [ PORTO ALEGRE, DEZEMBRO DE 1997.] 35 130 200 20
crieboto "fra1 "b1 "CONTINUAR 65 145 60 10 [FRACTAIS]
crieboto "fra1 "b2 "SAIR 155 145 40 10 [apaguejanela "fra1]
fim

aprenda lado
mudeesttico "e2 sentena [Nmero de lados] mostrebarrarolagem "r1
fim

aprenda mudecl :cor
atr "valido 0
se lista pri :cor [mudecll (pri :cor) atr "valido 1 atr "cor 16]
se lista :cor [mudecll (:cor) atr "valido 1]
se ou :cor = 0  :cor = "preto          [ mudecll ( lista 0 0 0 ) atr "valido 1]
se ou :cor = 1  :cor = "azul           [ mudecll ( lista 0 0 128 ) atr "valido 1]
se ou :cor = 2  :cor = "verde          [ mudecll ( lista 0 128 0 ) atr "valido 1]
se ou :cor = 3  :cor = "ciano          [ mudecll ( lista 0 128 128 ) atr "valido 1]
se ou :cor = 4  :cor = "vermelho       [ mudecll ( lista 255 0 0 ) atr "valido 1]
se ou :cor = 5  :cor = "roxo           [ mudecll ( lista 128 0 128 ) atr "valido 1]
se ou :cor = 6  :cor = "marom         [ mudecll ( lista 128 64 0 ) atr "valido 1]
se ou :cor = 7  :cor = "cinzaclaro     [ mudecll ( lista 192 192 192 ) atr "valido 1]
se ou :cor = 8  :cor = "cinzaescuro    [ mudecll ( lista 128 128 128 ) atr "valido 1]
se ou :cor = 9  :cor = "verdegua      [ mudecll ( lista 128 255 255 ) atr "valido 1]
se ou :cor = 10 :cor = "verdeclaro     [ mudecll ( lista 0 255 0 ) atr "valido 1]
se ou :cor = 11 :cor = "cianoclaro     [ mudecll ( lista 0 255 255 ) atr "valido 1]
se ou :cor = 12 :cor = "vermelhoescuro [ mudecll ( lista 128 0 0  ) atr "valido 1]
se ou :cor = 13 :cor = "rosachoque     [ mudecll ( lista 255 0 255 ) atr "valido 1]
se ou :cor = 14 :cor = "amarelo        [ mudecll ( lista 255 255 0 ) atr "valido 1]
se ou :cor = 15 :cor = "branco         [ mudecll ( lista 255 255 255 ) atr "valido 1]
se :valido = 0 [esc [Est cor no  vlida!]]
fim

aprenda nvel 
mudeesttico "e3 sentena [Nvel do fractal] mostrebarrarolagem "r2
fim

Atribua "a 342.439024390244
Atribua "a1 96
Atribua "b 333.658536585366
Atribua "c 144
Atribua "g 90
Atribua "ig 5
Atribua "il 0
Atribua "k 2
Atribua "l 120
Atribua "m 4
Atribua "mximo 6
Atribua "n 1
Atribua "p 4
Atribua "poli [repita 5 [pf 50 pd 72]]
Atribua "q 3
Atribua "r 1
Atribua "valido 1
Atribua "x 13
Atribua "y 0
Atribua "z 0
