aprenda ajuste 
apaguejanela "pit
janela2
fim

aprenda ajuste1
un pd :h pf :a/2 pd 180-:i
pf :x ul
fim

aprenda ajusteb
atr "a mostrebarrarolagem "rol1
atr "g mostrebarrarolagem "rol2
apaguejanela "pit1
projeto :a :g
fim

aprenda ang
mudeesttico "est12 sentena [Tamanho do ngulo:] mostrebarrarolagem "rol2
fim

aprenda hipot
mudeesttico "est11  sentena [Tamanho da Hipotenusa:] mostrebarrarolagem "rol1
fim

aprenda janela 
criejanela "main "pit2 [QUEBRA CABEA PITAGRICO ] 20 10 280 200
crieesttico "pit2  "est1 [ UNIVERSIDADE FEDERAL DO RIO GRANDE DO SUL ]  55 15 190 10 
crieesttico "pit2  "est2 [INSTITUTO DE MATEMTICA ] 85 25 100 20
crieesttico "pit2  "est3 [ APRESENTAO VISUAL DO TEOREMA DE PITGORAS, SEGUNDO A CONSTRUO FEITA POR PERIGAL]  35 45 200 40 
crieesttico "pit2  "est4 [ PEDRO SICA CARNEIRO ] 35 75 100 20
crieesttico "pit2 "est5 [ TATIANA DE LOURDES MENDES TRAJANO] 35 85 200 20 
crieesttico "pit2 "est6 [ PROFESSORA: MARIA ALICE GRAVINA] 35 105 200 20
crieesttico "pit2 "est7 [ PORTO ALEGRE, DEZEMBRO DE 1997] 35 125 200 20
crieboto "pit2 "bo1 "CONTINUAR 65 145 60 10 [janela1]
crieboto "pit2 "bo2 "SAIR 155 145 40 10 [apaguejanela "pit2]
fim

aprenda janela1
apaguejanela "pit2
criejanela "prog "pit [DEMONSTRAO DO TEOREMA DE PITGORAS POR PERIGAL] 20 10 280 140
crieesttico "pit  "est8 [ A soma das reas dos quadrados que tem por lados os catetos de um tringulo retngulo,  igual a rea do quadrado que tem por lado a hipotenusa do mesmo tringulo.]  35 15 200 40 
crieesttico "pit  "est9 [Para verificar a demonstrao feita por Perigal, selecione a opo CONTINUAR:] 35 50 200 60
crieboto "pit "bo3 "CONTINUAR 65 80 60 10 [ajuste]
crieboto "pit "bo4 "SAIR 155 80 40 10 [apaguejanela "pit]
fim

aprenda janela2
criejanela "son "pit1 [VEJAMOS O QUEBRA-CABEA MONTADO POR PERIGAL] 20 10 280 140
crieesttico "pit1 "est10 [ Selecione  tamanho da hipotenusa e tamanho de um dos ngulos agudos do tringulo retngulo, nas opes abaixo:] 35 15 200 60    
crieesttico "pit1  "est11 [ - Tamanho da Hipotenusa: ] 35 50 80 20
criebarrarolagem "pit1  "rol1 35 80 100 20 [hipot]
mudebarrarolagem  "rol1 60 120 60 hipot
crieesttico "pit1  "est12 [ - Tamanho do ngulo: ] 160 50 50 20
criebarrarolagem "pit1  "rol2 160 80 100 20 [ang]
mudebarrarolagem "rol2 10 80 10 ang
crieboto "pit1 "bo5 "INICIAR  50 100 100 10 [ajusteb]
crieboto "pit1 "bo6 "SAIR 170 100 40 10 [apaguejanela "pit1]
fim

aprenda lado :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2 
pe :i pf :x 
un pe :g/2  pf 10 mudecp 11 pinte pt 10 pd :g/2  ul
pe 180
fim

aprenda lado1 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2 
pe :i pf :x 
un pe :g/2  pf 10 mudecp 14 pinte pt 10 pd :g/2 ul
pe 180
fim

aprenda lado2 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
pe :i pf :x
un pe :g/2  pf 10 mudecp 5 pinte pt 10 pd :g/2 ul
pe 180
fim

aprenda lado3 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
pe :i pf :x
un pe :g/2 pf 10 mudecp 6 pinte pt 10 pd :g/2 ul
pe 180
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 pea :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
un pd (180-:i)/2 pt 30 mudecp 11 pinte pf 30 pe (180-:i)/2 ul
un pd 180-:i pf :x pe 180 ul
fim

aprenda pea1 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
un pd (180-:i)/2 pt 30 mudecp 14 pinte pf 30 pe (180-:i)/2 ul
un pd 180-:i pf :x pe 180 ul
fim

aprenda pea2 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
un pd (180-:i)/2 pt 30 mudecp 5 pinte pf 30 pe (180-:i)/2 ul
un pd 180-:i pf :x pe 180 ul
fim

aprenda pea3 :a :b
atr "x ((raizq 2)*:a*sen(45-:h))/2
pf :x
atr "i 90+:h
pe 180-:i
pf :a/2 pe 90 pf :a/2
un pd (180-:i)/2 pt 30 mudecp 6 pinte pf 30 pe (180-:i)/2 ul
un pd 180-:i pf :x pe 180 ul
fim

aprenda projeto :a :g
dt
se :g<45 [atr "g 90-:g]
atr "h 90-:g
tri :a :g
pe 90 espere 50
quad1 :a
pd 90+:g
quad2 :c espere 50 
pd 180 
quad3 :b espere 50
pea :a :b espere 50
pea1 :a :b espere 50
pea2 :a :b espere 50
pea3 :a :b espere 50
ajuste1 
quad4 :c espere 50 
pd 180
lado :a :b espere 50
lado1 :a :b espere 50
lado2 :a :b espere 50
lado3 :a :b espere 50
fim

aprenda quad1 :a
repita 3 [pf :a pe 90]
fim

aprenda quad2 :c
repita 3 [pf :c pe 90]
un pe 45 pf :c/2 mudecp 7 pinte pt :c/2 pd 45 ul
fim

aprenda quad3 :b
repita 3 [pf :b pe 90]
fim

aprenda quad4 :c
repita 4 [pf :c pd 90]
un pd 45 pf :c/2 mudecp 7 pinte pt :c/2 pe 45 ul
fim

aprenda tri :a :g
un pf 40 pd 90 pf 30 pe 90 ul
atr "b :a*(sen :g)
pe 90 pf :b pd 90 
atr "c :a*(cos :g)
pf :c
pd 180-:g
pf :a
pe :h/2 un pt 20 mudecp 4 pinte pf 20 ul pd :h/2
fim

Atribua "a 105
Atribua "b 95.9222730524731
Atribua "c 42.707347522959
Atribua "e 56.5685424949238
Atribua "g 66
Atribua "h 24
Atribua "i 114
Atribua "j 4800
Atribua "l 0.965925826289068
Atribua "p 6400
Atribua "valido 1
Atribua "x 26.607462764757
