aprenda ajuste
atribua "l mostrebarrarolagem "rol1
atribua "n 120
se mostrebotordio "br1[geo :l]
se mostrebotordio "br2[ngeo :l]
fim

aprenda aparalel :l
un mudecl [255 255 255] ul
pf :l/2 pd 45
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b 
pf :c pd 135
pf :l/2 pd 45
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda apresent
dt un mudepos [-200 130] rotule [UNIVERSIDADE FEDERAL DO RIO GRANDE DO SUL]
un mudepos [-50 -100] rotule [TANGRAM] UL
un mudepos [-150 100] rotule [JOREL FERREIRA DOS SANTOS]
un mudepos [-150 70] rotule [mat. 1544 /96-0] ul
un mudepos [-150 40] rotule [MAT.01343] ul 
fim

aprenda aquadr :l
un mudecl [255 255 255] ul
repita 4[pf :l/2 pd 90]
un pd 45 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 45
un mudecl [0 0 0] ul
fim

aprenda atrian1g :l
un mudecl [255 255 255] ul
pf :l pd 90 pf :l pd 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian1m :l
un mudecl [255 255 255] ul
pf :l pd 135
atr "a :l/2
atr "b :a*:a
atr "c :b+:b
atr "d raizq :c
pf :d pd 90 pf :d pd 135
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian1p :l
un mudecl [255 255 255] ul
pf :l/2 pd 90 pf :l/2 pd 135
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
atr "d :l/2
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian2g :l
un mudecl [255 255 255] ul
pf :l pd 90 pf :l pd 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian2p :l
un mudecl [255 255 255] ul
pf :l/2 pd 90 pf :l/2 pd 135
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
atr "d :l/2
un pd 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pe 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian3m :l
un pf :l pd 180 ul
un mudecl [255 255 255] ul
atr "a :l/2
atr "b :a*:a
atr "c :b+:b
atr "d raizq :c
pf :l pe 135 pf :d pe 90 pf :d pe 135
un pe 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pd 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian5g :l
un pf :l pd 90 pf :l pd 180 ul
un mudecl [255 255 255] ul
pf :l pe 90 pf :l pe 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b 
pf :c pe 135
un pe 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pd 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian5p :l
un pf :l/2 pd 90 pf :l/2 pd 180 ul
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
atr "d :l/2
pf :d pe 90 pf :d pe 135 pf :c pe 135
un pe 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pd 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian6g :l
un pf :l pd 90 pf :l pd 180 ul
un mudecl [255 255 255] ul
pf :l pe 90 pf :l pe 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b
pf :c pe 135
un pe 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pd 22.5
un mudecl [0 0 0] ul
fim

aprenda atrian6p :l
un pf :l/2 pd 90 pf :l/2  pd 180 ul
un mudecl [255 255 255] ul
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
atr "d :l/2
pf :d pe 90 pf :d pe 135 pf :c pe 135
un pe 22.5 pf :l/3 mudecp [255 255 255] pinte pt :l/3 ul pd 22.5
un mudecl [0 0 0] ul
fim

aprenda geo :l
trab2 :l 
trab5 :l mov5 :l
trab7 :l mov7 :l
trab3 :l mov3 :l
trab4 :l mov4 :l
trab6 :l mov6 :l
trab12 :l
fim

aprenda lado
mudeesttico "est2 sentena [tamanho do lado] mostrebarrarolagem "rol1
fim

aprenda mov3 :l
dt un pf :l pd 90 ul
repita 8[atrian1g :l un pt :l/8 ul triang1g :l]
repita 9[atrian1g :l pd 10 triang1g :l]
repita 8[atrian1g :l un pt :l/8 ul triang1g :l]
repita 9[atrian1g :l pe 10 triang1g :l]
repita 16[atrian1g :l un pf :l/8 ul triang1g :l]
repita 27[atrian1g :l pe 10 triang1g :l]
repita 8[atrian1g :l un pf :l/8 ul triang1g :l]
un pf :l pd 90 pf :l pd 90 ul
fim

aprenda mov4 :l
repita 16[atrian2g :l un pf :l/8 ul triang2g :l]
repita 18[atrian2g :l pe 10 triang2g :l]
un pf :l pf :l pd 90 pf :l pf :l pd 90 ul
fim

aprenda mov5 :l
repita 18[atrian1m :l pd 10 triang1m :l] un pt :l pd 90 pf :l/2 pe 90 pf :l/2 pd 90 pf :l pd 180 ul
repita 27[atrian2g :l pd 10 triang2g :l] un pd 90 pf :l pd 90 pf :l/2 pe 90 pf :l/2 pd 90 ul
repita 2[atrian1m :l un pf :l/4 ul triang1m :l] 
repita 9[atrian1m :l pe 10 triang1m :l]
repita 3[atrian1m :l un pt :l/2 ul triang1m :l]
repita 9[atrian1m :l pd 10 triang1m :l]
repita 4[atrian1m :l un pt :l/4 ul triang1m :l]
repita 9[atrian1m :l pe 10 triang1m :l] un pf :l pd 90 pf :l pd 180 ul
repita 2[aparalel :l un pt :l/4 ul paralelo :l]
repita 9[aparalel :l pd 10 paralelo :l]
repita 2[aparalel :l un pt :l/4 ul paralelo :l]
repita 9[aparalel :l pe 10 paralelo :l]
repita 2[aparalel :l un pf :l/4 ul paralelo :l] un pf :l/2 pd 90 pf :l/2 pe 90 ul
repita 4[atrian1p :l un pt :l/4 ul triang1p :l] 
repita 9[atrian1p :l pe 10 triang1p :l]
repita 2[atrian1p :l un pf :l/4 ul triang1p :l]
repita 9[atrian1p :l pe 10 triang1p :l]
repita 4[atrian1p :l un pt :l/4 ul triang1p :l]
repita 9[atrian1p :l pd 10 triang1p :l] un pt :l/2 pe 90 pt :l/2 pd 180  pf :l/2 pd 90 pf :l/2 pd 180 ul
repita 9[atrian2p :l pd 10 triang2p :l]
repita 6[atrian2p :l un pt :l/4 ul triang2p :l]
repita 9[atrian2p :l pd 10 triang2p :l]
repita 4[atrian2p :l un pt :l/8 ul triang2p :l]
repita 9[atrian2p :l pd 10 triang2p :l]
repita 4[atrian2p :l un pt :l/8 ul triang2p :l] un pt :l pe 90 ul
repita 9[aquadr :l pe 10 quadr :l] 
repita 6[aquadr :l un pt :l/4 ul quadr :l]
repita 9[aquadr :l pd 10 quadr :l]
repita 4[aquadr :l un pt :l/8 ul quadr :l]
repita 9[aquadr :l pd 10 quadr :l]
repita 4[aquadr :l un pt :l/8 ul quadr :l] un pf :l/2 pd 90 pf :l/2 pd 90 pf :l/2 pf :l/2 pf :l pd 90 ul
fim

aprenda mov6 :l
un pd 90 pf :l pf :l pe 90 pf :l pe 90 pf :l/2 pd 180 ul
repita 4[atrian2p :l un pf :l/8 ul triang2p :l]
repita 9[atrian2p :l pe 10 triang2p :l]
un pt :l pe 90 ul
repita 4[aquadr :l un pt :l/8 ul quadr :l]
repita 9[aquadr :l pd 10 quadr :l]
repita 6[aquadr :l un pf :l/4 ul quadr :l]
repita 9[aquadr :l pe 10 quadr :l]
un pe 90 pf :l pd 90 pf :l/2 ul
repita 8[aparalel :l un pt :l/8 ul paralelo :l]
repita 27[aparalel :l pe 10 paralelo :l]
repita 4[aparalel :l un pt :l/8 ul paralelo :l]
repita 9[aparalel :l pd 10 paralelo :l]
repita 12[aparalel :l un pt :l/4 ul paralelo :l]
repita 27[aparalel :l pd 10 paralelo :l]
un pd 90 pf :l pf :l/2 pe 90 pf :l/2 pd 180 ul
repita 4[atrian1p :l un pf :l/8 ul triang1p :l]
repita 9[atrian1p :l pe 10 triang1p :l]
repita 6[atrian1p :l un pt :l/4 ul triang1p :l]
repita 9[atrian1p :l pd 10 triang1p :l]
repita 8[atrian1p :l un pt :l/8 ul triang1p :l]
repita 9[atrian1p :l pd 10 triang1p :l]
repita 4[atrian1p :l un pt :l/8 ul triang1p :l]
repita 9[atrian1p :l pd 10 triang1p :l]
repita 4[atrian1p :l un pt :l/8 ul triang1p :l]
un pf :l/2 pd 90 pf :l/2 pd 90 pf :l pd 180 ul
repita 9[atrian1m :l pd 10 triang1m :l]
repita 8[atrian1m :l un pt :l/8 ul triang1m :l]
repita 9[atrian1m :l pd 10 triang1m :l]
repita 8[atrian1m :l un pt :l/8 ul triang1m :l]
repita 9[atrian1m :l pd 10 triang1m :l]
repita 8[atrian1m  :l un pt :l/8 ul triang1m :l]
un pt :l pe 90 pt :l ul
repita 16[atrian2g :l un pf :l/8 ul triang2g :l]
repita 9[atrian2g :l pe 10 triang2g :l]
repita 8[atrian2g :l un pt :l/8 ul triang2g :l]
repita 9[atrian2g :l pe 10 triang2g :l]
un pf :l pe 90 ul
repita 4[atrian1m :l un pt :l/8 ul triang1m :l]
un pt :l/2 pd 90 ul
repita 9[atrian2p :l pd 10 triang2p :l]
repita 4[atrian2p :l un pf :l/8 ul triang2p :l]
repita 9[atrian2p :l pe 10 triang2p :l]
un pf :l/2 pe 90 ul
repita 8[aquadr :l un pt :l/8 ul quadr :l]
un pf :l pe 90 pf :l/2 pd 180 ul
repita 4[atrian2p :l un pf :l/8 ul triang2p :l]
repita 9[atrian2p :l pe 10 triang2p :l]
repita 6[atrian2p :l un pf :l/4 ul triang2p :l]
repita 18[atrian2p :l pd 10 triang2p :l]
un pf :l pf :l pf :l/2 pd 180 ul
repita 8[aquadr :l un pf :l/4 ul quadr :l]
repita 9[aquadr :l pd 10 quadr :l]
repita 4[aquadr :l un pt :l/8 ul quadr :l]
un pe 90 pf :l/2 pe 90 pf :l pd 90 pf :l pd 90 ul 
fim

aprenda mov7 :l
dt un pe 90 pt :l ul
repita 18[atrian2g :l pe 10 triang2g :l]
repita 8[atrian2g :l un pf :l/8 ul triang2g :l]
repita 9[atrian2g :l pe 10 triang2g :l] un pe 90 pf :l pf :l pd 90 ul
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 = "marrom         [ 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 ngeo :l
trab8 :l 
trab9 :l 
trab10 :l
fim

aprenda paralel1 :l
un pd 90 pf :l/2 pe 90 pf :l/2 ul
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :l/2 pe 135 pf :c pe 45 pf :l/2 pe 135 pf :c pe 45
un pe 22.5 pf :l/3 mudecp [0 255 0] pinte pt :l/3 ul pd 22.5 
fim

aprenda paralelo :l
pf :l/2 pd 45
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pd 135 pf :l/2 pd 45 pf :c pd 135
un pd 22.5 pf :l/3 mudecp [0 255 0] pinte pt :l/3 ul pe 22.5
fim

aprenda quadr :l
repita 4[pf :l/2 pd 90]
un pd 45 pf :l/3 mudecp [0 255 255] pinte pt :l/3 ul pe 45
fim

aprenda quadr1 :l
un pf :l/2 pd 180 ul
repita 4[pf :l/2 pe 90]
un pe 45 pf :l/3 mudecp [0 255 255] pinte pt :l/3 ul pd 45
fim

aprenda TANGRAM
tat apresent espere 400 tat
criejanela "main "tan [FIGURAS DO TANGRAM] 0 0 160 80
crieesttico "tan "est1 [figuras] 5 5 80 10
criecaixagrupo "tan "grp1 5 12 70 27
criebotordio "tan "grp1 "br1 [geomtricas] 7 17 60 10
criebotordio "tan "grp1 "br2 [no geomtricas] 7 27 60 10
crieesttico "tan "est2 [tamanho do lado] 85 5 80 10
criebarrarolagem "tan "rol1 85 15 70 10 [lado]
mudebarrarolagem "rol1 10 90 10 lado
crieboto "tan "bo1 "desenha 5 50 40 10 [ajuste]
crieboto "tan "bo2 "limpa 60 50 40 10 [tat]
crieboto "tan "bo3 "sai 115 50 40 10 [apaguejanela "tan]
fim

aprenda trab10 :l
trab10.1 :l espere 200
trab10.2 :l espere 200
trab10.3 :l espere 200
trab10.4 :l espere 200
trab10.5 :l espere 200
trab10.6 :l espere 200
trab10.7 :l espere 200
trab10.8 :l espere 200
fim

aprenda trab10.1 :l
tat dt un pt 100 pd 90 pf 230 pe 180 pf 100 pd 135 pf :l/2 pd 180 ul
triang1p :l espere 100 un pe 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
paralelo :l espere 100 un pd 45 pf :l/2 pd 90 ul
triang2p :l espere 100 pe 90 
quadr :l espere 100 un pd 90 pf :l/2 pd 90 pf :l/2 pd 180 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 45
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pd 135 ul
triang1m :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 90 pf :l/3 ul
triang2g :l
fim

aprenda trab10.2 :l
tat dt un pt 100 pd 90 pf 230 pe 180 pf 50 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 90 ul
triang1m :l espere 100 un pf :l/3 pe 10 pe 45 ul
triang1g :l espere 100 un pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l pd 180 pd 45 pd 10 pt :l/3 pd 180 pd 10 ul
quadr :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pe 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang2p :l
fim

aprenda trab10.3 :l
tat dt un pt 100 pd 90 pf 100 pe 90 pf 50 pd 45 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pe 135 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
paralelo :l espere 100 un pf :l/2 ul
triang1m :l espere 100 un pd 180 ul
triang2p :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 45 pt :l/4 ul
quadr :l
fim

aprenda trab10.4 :l
tat dt un pt 100 pd 90 pf 200 pe 180 pf 100 pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pf :l/2 ul
quadr :l espere 100 un pf :l/2 ul
paralelo :l espere 100 un pf :l/2 ul
triang1m :l espere 100 un pt :l/2 pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pt :l/2 pd 90 pf :l/2 pe 10 pd 90 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pe 80 pf :l/2 pd 90 pf :l/2 pf :l/2 pf :l/2 pd 90 pf :l/2 pe 10 pd 90 pf :l pd 180 ul
triang2g :l
fim

aprenda trab10.5 :l
tat dt un pt 100 pd 90 pf 180 pe 180 pf 100 pd 90 ul
quadr :l espere 100 un pf :l/2 pd 45 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 180 pe 45  pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 90 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pd 90 pf :l/2 pd 90 pt :l/2 ul
paralelo :l espere 100 un pf :l/2 ul
triang1m :l espere 100 un pf :l pd 90 ul
triang2p :l
fim

aprenda trab10.6 :l
tat dt un pt 100 pd 90 pf 200 pe 180 pf 100 pd 135 ul
triang1g :l espere 100 un pf :l pd 180 ul
triang1m :l espere 100 un pe 90 pf :l pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pd 45 pt :l/4 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 90 pf :l/2 pd 90 ul
quadr :l espere 100 un pd 90 pf :l/2 pd 90 pf :l/2 pd 135 pf :l pe 90 pf :l pd 180 ul
triang2g :l
fim

aprenda trab10.7 :l
tat dt un pt 100 pd 90 pf 200 pe 180 pf 100 pd 90 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 90 pf :l pd 180 ul
triang1m :l espere 100 un pf :l pe 90 pf :l/2 pd 180 ul
quadr :l espere 100 un pd 90 pf :l pd 180 ul
triang2p :l espere 100 un pf :l pd 180 ul
paralelo :l espere 100 un pd 90 pf :l pe 90 pf :l pd 180 ul
triang2g :l
fim

aprenda trab10.8 :l
tat dt un pt 100 pd 90 pf 230 pe 180 pf 100 pd 135 ul
triang1g :l espere 100 un pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pf :l pd 180 ul
triang1m :l espere 100 un pf :l pd 90 ul
triang1p :l espere 100 un pf :l/2 pd 90 pt :l/2 ul
quadr :l espere 100 un pe 90 pt :l/2 pe 90 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 90 ul
triang2p :l
fim

aprenda trab12 :l 
dt un pd 90 pf :l pe 90 pf :l pd 180 ul
triang1g :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
paralelo :l espere 100 un pe 90 pf :l pd 180 ul
triang1m :l espere 100 un pf :l/2 pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l/2 pe 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pf :l/2 ul
quadr :l espere 100 un pd 90 pf :l/2 pd 90 pf :l/2 pe 90 pf :l pd 90 pf :l pd 90 ul
fim

aprenda trab2 :l
dt tat paralelo :l espere 100 un pe 90 pf 280 pd 90 ul
triang1p :l espere 100 un pd 90 pf 100 pe 90 ul
triang1g :l espere 100 un pd 90 pf 100 pe 90 pt 100 ul
triang1m :l espere 100 un pd 90 pf 150 pe 90 ul
triang2g :l espere 100 un pd 90 pf 150 pe 90 ul
quadr :l espere 100 un pf 100 ul
triang2p :l espere 100
fim

aprenda trab3 :l
dt  un pf :l pd 90 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 180 ul
triang1m :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pe 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
quadr :l espere 100 un pd 90 pf :l/2 pe 90 pf :l pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pt :l/2 ul
paralelo :l espere 100 un pf :l pd 90 pf :l pd 180 ul
triang2g :l espere 200 un pe 90 pf :l pf :l pd 90 ul
fim

aprenda trab4 :l
dt un pf :l pd 90 pf :l pd 90 ul
triang1g :l espere 100 un pf :l pe 180 ul
triang1m :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pe 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
quadr :l espere 100 un pd 90 pf :l/2 pe 90 pf :l pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pt :l/2 ul
paralelo :l espere 100 un pf :l pd 90 pf :l pd 180 ul
triang2g :l 
fim

aprenda trab5 :l
tat dt un pt 100 pd 90 pf 120 pe 90 ul 
un pf :l pe 90 pf :l pd 180 ul 
triang1g :l espere 100 un pf :l pd 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l/2 pd 180 ul 
triang1p :l espere 100 un pt :l/2 ul
paralelo :l espere 100 un pf :l ul
quadr :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pe 90 pf :l pd 180 ul
triang1m :l 
fim

aprenda trab6 :l
dt  un pf :l pd 90 pf :l pd 90 ul
triang1g :l espere 100 un pf :l pd 180 ul
triang1m :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
quadr :l espere 100 un pf :l pe 90 pf :l/2 pd 180 ul
paralelo :l espere 100 un pf :l/2 ul
triang2p :l espere 100 un pf :l/2 pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pf :l pd 90 pf :l pf :l pd 90 ul
fim

aprenda trab7 :l
dt un pf :l pd 90 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 90 ul
triang2g :l espere 100 un pd 90 ul
triang1m :l espere 100 un pd 90 pf :l/2 pe 90 pf :l/2 pe 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
quadr :l espere 100 un pd 90 pf :l/2 pe 90 pf :l pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pt :l/2 ul
paralelo :l espere 200 un pd 90 pf :l pd 90 pf :l pd 90 ul
fim

aprenda trab8 :l
trab8.1 :l espere 200
trab8.2 :l espere 200
trab8.3 :l espere 200
trab8.4 :l espere 200
trab8.5 :l espere 200
trab8.6 :l espere 200
trab8.7 :l espere 200
trab8.8 :l espere 200
trab8.9 :l espere 200
fim

aprenda trab8.1 :l
dt tat un pt 130 pd 90 pf 30 pe 90 ul
triang1g :l espere 100
un pf :l pd 90 pf :l pe 90 ul
quadr :l espere 100
un pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100
un pe 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
paralelo :l espere 100
un pf :l/2 pd 90 pf :l/2 pe 90 pf :l/2 pf :l/2 pe 90 pe 45 ul
triang2g :l espere 100
un pd 45 pt :l/2 pe 90 pt :l/2 ul
triang2p :l espere 100
un pe 135 ul
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
un pf :c pe 135 pf :l pd 180 ul
triang1m :l
fim

aprenda trab8.2 :l
tat dt un pt 100 pd 90 pf 100 pe 90 ul
un pd 45 ul
triang1p :l espere 100
un pf :l/2 pe 10 pe 90 ul
quadr :l espere 100
un pt :l/2 ul
triang2p :l espere 100
un pf :l/2 pd 90 pf :l/2 pd 90 ul
triang1m :l espere 100
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
un pd 180 pf :l/2 pe 45 pf :c pe 45 pf :l/2 pd 180 ul
paralelo :l espere 100
un pf :l/2 pd 45 pf :c pd 10 pe 45 ul
triang1g :l espere 100
pe 90 un pf :l pe 90 pf :l pd 180 ul
triang2g :l
fim

aprenda trab8.3 :l
tat dt un pt 100 pd 90 pf 100 pe 90 ul un pe 90 pt :l ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 135 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100  un pf :l pd 90 pf :l pe 135 ul
triang1m :l espere 100 un pd 135 pf :l/2 pd 180 ul
triang1p :l espere 100 un pe 90 ul
quadr :l espere 100 un pf :l/2 pf :l/2 pe 90 pf :l/2 pd 180 ul
paralelo :l espere 100 pd 45 
triang2p :l
fim

aprenda trab8.4 :l
tat dt 
un pt 120 pd 90 pf 180 pe 90 ul
un pd 90 pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 45 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l pe 90 pf :l pe 135 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 90 ul
quadr :l espere 100 un pd 90 pf :l/2 pd 90 pf :l/2 pd 180 ul
triang1m :l espere 100 un pf :l/2 pe 90 pf :l/2 pf :l/2 pe 90 pf :l/2 pd 135 pf :l pd 45 pf :l/2 pe 15 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang2p :l
fim

aprenda trab8.5 :l
tat dt 
un pt 130 pd 90 pf 210 pe 90 pe 45 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pf :l pd 180 ul 
triang1m :l espere 100 un pf :l ul
quadr :l espere 100 un pd 90 ul
triang2g :l espere 100 un pe 90 pf :l/2 pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
triang2p :l espere 100 un pf :l/2 pd 90 pf :l/2 pd 135 pf :l/2 pd 180 ul 
paralelo :l 
fim

aprenda trab8.6 :l
tat dt 
un pt 100 pd 90 pf 100 pe 90 pf :l  pd 180 ul
triang1m :l espere 100 pe 90
triang1g :l espere 100 un pf :l pd 90 pf :l pd 90 ul
triang2g :l espere 100 un pd 90 ul
paralelo :l espere 100 un pf :l/2 ul
triang1p :l espere 100 un pf :l/2 ul
quadr :l espere 100 un pd 90 pf :l/2 pf :l/2 pd 180 ul
triang2p :l
fim

aprenda trab8.7 :l
tat dt 
un pt 120 pd 90 pf 100 pe 90 pd 90 pf :l pe 90 pf :l pd 180 ul
triang1g :l espere 100 un pd 135 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l pd 135 pf :l/3 pe 45 ul
triang1p :l espere 100 un pf :l/2 pd 180 ul
triang2p :l espere 100 un pf :l/2 pd 45 pf :l/3 pe 135 pf :l pe 90 pf :l pd 45 ul
triang1m :l espere 100 un pt :l/4 pe 90 ul
quadr :l espere 100 un pd 90 pf :l/2 pe 15 pe 45 pf :l/2 pd 90 pf :l/2 pe 90 pf :l/2 pd 180 ul
paralelo :l
fim

aprenda trab8.8 :l
tat dt
un pt 120 pd 90 pf 150 pe 90 pe 90 pf 100 pd 90 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 90 ul
triang1p :l espere 100 un pf :l/2 pd 90 pf :l/2 ul
quadr :l espere 100 un pf :l/2 pe 90 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pe 135 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pt :l/3 pf :l pd 180 ul
triang1m :l espere 100 un pf :l pd 135 pf :l/3 pe 45 ul
triang2p :l
fim

aprenda trab8.9 :l
tat dt
un pt 100 pd 90 pf 180 pe 90 pe 90 pf 100 pd 90 pd 45 ul
paralelo :l espere 100 un pf :l/2 pd 45 pf :l pd 180 ul
triang1g :l espere 100 un pe 45 pf :l/2 pd 180 ul
triang1p :l espere 100 un pf :l/2 pd 90 pf :l/2 pe 135 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pe 90 pt :l/8 pd 45 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang2p :l espere 100 un pe 45 pt :l/2 ul
quadr :l espere 100 un pf :l/2 pd 45 pf :l/2 pd 90 pf :l/2 pe 45 pt :l/8 pf :l pd 135 pf :l/2 pe 45 pf :l pd 90 pf :l
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pe 90 pf :c pe 135 pf :l pd 180 ul
triang1m :l
fim

aprenda trab9 :l
trab9.1 :l espere 200
trab9.2 :l espere 200
trab9.3 :l espere 200
trab9.4 :l espere 200
fim

aprenda trab9.1 :l
tat dt
un pt 120 pd 90 pf 200 pe 90 pe 90 pf 100 pd 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pe 90 pf :l pe 180 ul
triang1m :l espere 100 un pt :l/8 pf :l/2 pd 180 ul
triang2p :l espere 100 un pf :l/2 pd 180 pf :l/8 pd 45
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pt :l/2 ul
paralelo :l espere 100 un pf :l/2 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pd 180 ul
triang2g :l espere 100 un pf :l pd 90 pf :l pd 180 pd 15 pt :l/4 ul
quadr :l
fim

aprenda trab9.2 :l
tat dt
un pt 120 pd 90 pf 230 pe 90 pe 90 pf 50 pd 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 45 pf :l/4 pd 90 ul
quadr :l espere 100 un pd 90 pf :l/2 pe 90 pt :l/2 pd 45 pf :l pe 90 pf :l pd 180 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pd 180 ul
paralelo :l espere 100 un pf :l pe 45 pf :l pe 90 pf :l pd 180 ul
triang2g :l espere 100 un pf :l pe 45 pe 90 pt :l/4 ul
triang2p :l espere 100 un pd 45 pt :l/8 ul
triang1m :l
fim

aprenda trab9.3 :l
tat dt
un pt 130 pd 90 pf 230 pe 90 pe 90 pf 50 pd 135 pf :l/2 pe 90 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 45 pf :l/3 pd 135 ul
triang1m :l espere 100 un pf :l pd 180 ul
paralelo :l espere 100 un pf :l/2 pd 90 pf :l/2 pf :l/2 pd 180 ul
triang2p :l espere 100 un pf :l pe 90 pf :l/2 pd 135 pt :l/6 pf :l pe 90 pf :l pd 180 ul
triang1g :l espere 100 un pd 90 pf :l pe 90 pf :l pd 180 ul 
triang2g :l espere 100 un pf :l pd 90 pf :l/2 pe 135 ul
quadr :l 
fim

aprenda trab9.4 :l 
tat dt
un pt 100 pd 90 pf 170 pe 90 pe 90 pf 100 pd 135 pf :l/2 pd 180 ul
triang1p :l espere 100 un pd 45 pf :l/4 pd 135 ul
paralelo :l espere 100 un pf :l/2 ul
triang1g :l espere 100 un pf :l pd 90 pf :l pe 90 ul
triang2p :l espere 100 un pe 90 pf :l pe 90 pf :l pe 90 pf :l/2 pe 90 pf :l/2 pd 45 ul
triang1m :l espere 100 un pd 135 pf :l/2 pd 90 pf :l/2 pd 90 pf :l pf :l/2 pd 180 ul
triang2g :l espere 100 un pf :l/2 pd 90 pf :l/2 ul
quadr :l
fim

aprenda triang1g :l
pf :l pd 90 pf :l pd 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [255 255 0] pinte pt :l/3 ul pe 22.5
fim

aprenda triang1m :l
pf :l pd 135
atr "a :l/2
atr "b :a*:a
atr "c :b+:b
atr "d raizq :c
pf :d pd 90 pf :d pd 135
un pd 22.5 pf :l/3 mudecp [255 0 255] pinte pt :l/3 ul pe 22.5
fim

aprenda triang1p :l
pf :l/2 pd 90 pf :l/2 pd 135
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
atr "d :l/2
pd 22.5 un pf :d/3 mudecp [128 64 0] pinte pt :d/3 ul pe 22.5
fim

aprenda triang2g :l
pf :l pd 90 pf :l pd 135
atr "a :l*:l
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
un pd 22.5 pf :l/3 mudecp [128 0 0] pinte pt :l/3 ul pe 22.5
fim

aprenda triang2p :l
pf :l/2 pd 90 pf :l/2 pd 135
atr "a :l/2*:l/2
atr "b :a+:a
atr "c raizq :b
pf :c pd 135
atr "d :l/2
un pd 22.5 pf :d/3 mudecp [0 0 128] pinte pt :d/3 ul pe 22.5
fim

Atribua "1 [dtangran1 :n :l]
Atribua "12800 12800
Atribua "1600 12800
Atribua "2 [ftangran2 :n :l]
Atribua "2*r -40
Atribua "3 [ftangran3 :n :l]
Atribua "3200 12800
Atribua "4 [ftangran4 :n :l]
Atribua "6400 40
Atribua "a 45
Atribua "b 2025
Atribua "c 4050
Atribua "d 63.6396103067893
Atribua "e 37.5
Atribua "f 625
Atribua "g 1250
Atribua "h 35.3553390593274
Atribua "i 47.169905660283
Atribua "k 1
Atribua "l 90
Atribua "m 114.075022
Atribua "n 120
Atribua "nterm 30
Atribua "o 47.35533906
Atribua "p 1
Atribua "q 10
Atribua "r 69.2820323027551
Atribua "s 78
Atribua "t 25
Atribua "u 50
Atribua "v 12
Atribua "valido 1
Atribua "w 1
Atribua "x 20
Atribua "y 85.065080835204
Atribua "z 0.333333333333333
