setpensize 10 setpencolor 5 setbackground 3 penup left 90 forward 800 right 90 forward 100 penpaint left 90 forward 20 right 90 forward 20 right 90 forward 40 right 90 forward 40 right 90 forward 60 right 90 forward 60 right 90 forward 80 right 90 forward 80
right 90 forward 100 right 90 forward 100 right 90 forward 120 right 90 forward 100 left 90 forward 120 left 90 forward 100 left 90 forward 100 left 90 forward 80 left 90 forward 80 left 90 forward 60 left 90 forward 60
left 90 forward 40 left 90 forward 40 left 90 forward 20 left 90 forward 20 right 90 penup back 300 left 90
forward 100 penpaint right 90 forward 100 right 90 forward 100 right 90 forward 100 right 90 forward 100 right 90 penup forward 70 right 90 forward 30 left 90 penpaint right 90 forward 100 right 90 forward 100 right 90
forward 100 right 90 forward 100 penup back 30 right 90 forward 30 left 90 penpaint right 90 forward 100
right 90 forward 100 right 90 forward 100 right 90 forward 100 penup right 90 forward 1000 left 90 back 100 penpaint forward 50 right 120
forward 50 right 120 forward 50 penup back 50 left 240 penpaint right 58 forward 120 right 82 forward 80 right 82
forward 80 right 78 forward 115 penup right 150 forward 110 left 90 forward 20 penpaint left 45 forward 10
right 90 forward 10 right 90 forward 10 right 90 forward 10 left 225 penup back 17 right 30 penpaint
forward 10 right 120 forward 10 left 120 forward 10 right 120 forward 10 left 120 forward 10 right 120 forward 10 left 120 forward 10
left 30 penup forward 100 right 90 forward 100 left 90 penpaint forward 20 left 90 forward 320 left 90 forward 20 left 90 forward 320 left 90 forward 20 left 90 forward 20 right 90 forward 80 left 90 back 20 forward 100 right 120
forward 100 right 120 forward 100 right 120 forward 80 left 90 forward 80 right 90 forward 80 right 90 forward 60
left 90 back 20 forward 80 right 120 forward 80 right 120 forward 80 right 120 forward 60 left 90 forward 60
right 90 forward 80 right 90 forward 40 left 90 back 20 forward 60 right 120 forward 60 right 120 forward 60
right 120 forward 40 left 90 forward 40 penup home penpaint forward int (350) right int (160) forward int (150)
left int (50) forward int (150) right int (160) forward int (200) forward int (185) right int (160) forward int (150)
left int (50) forward int (150) right int (160) forward int (200) forward int (185) right int (160) forward int (150)
left int (50) forward int (150) right int (160) forward int (200) forward int (185) right int (160) forward int (150)
left int (50) forward int (150) right int (160) forward int (200)
.
PRACTICAS
PRACTICA 1
PRACTICA 2
penup lt 90 fd 900 rt 90 bk 150
penpaint
fd 500 rt 90 fd 300 rt 90 fd 500 rt 90 fd 100 rt 90 fd 200 lt 90 fd 100 lt 90 fd 200 rt 90 fd 100
penup
rt 90 fd 300 rt 90 fd 100
penpaint
fd 100 lt 90 fd 100 lt 90 fd 100 lt 90 fd 100
penup
lt 90 fd 250 lt 90 fd 200
penpaint
lt 180 fd 500 lt 90 fd 300 lt 90 fd 100 lt 90 fd 200 rt 90 fd 400 lt 90 fd 100
penup lt 180 fd 350
penpaint
rt 90 penpaint fd 500 rt 180 fd 250 arc 180 250 penup rt 90 fd 50 lt 90 penpaint arc 180 150 fd 150 back 300
penup fd 400 rt 90 fd 230 rt 90 fd 500 lt 180
penpaint fd 500 rt 90 fd 300 rt 90 fd 500 rt 90 fd 100 rt 90 fd 200 lt 90 fd 100 lt 90 fd 200 rt 90 fd 100
penup
rt 90 fd 300 rt 90 fd 100
penpaint
fd 100 lt 90 fd 100 lt 90 fd 100 lt 90 fd 100
penup fd 300 lt 90 fd 250 lt 90 penpaint fd 500 rt 90 fd 50 rt 90 fd 500 rt 90 fd 50 penup back 100 rt 90
penpaint
fd 500 rt 90 fd 400 rt 90 fd 300
right 90 forward 80
penup forward 320 right 90 back 200
right 90 forward 80
back 80
penpaint forward 90 left 90 forward 200 right 100 left 10 forward 100 right 45 forward 150 penerase back 150 right 30
penpaint forward 200 left 90 right 20 left 10 right 5 right 5 forward 50 forward 10 left 80 right 20 left 40 right 10 forward 150 forward 50
penup left 90 forward 200 right 99 left 20 right 10 left 5 fd 100 penpaint forward 70 right 100 left 10 fd 100 fd 50 rt 90 fd 70 rt 90 fd 100 fd 50
PRACTICA 4
PRACTICA 3
home Setbackground 6 Setpencolor 1 penup lt 90 fd 900 rt 90 fd 500 bk 100 bk 50 rt 90 penpaint repeat 3 [fd 110 lt 120]
penup fd 150 fd 50 penpaint repeat 4 [fd 100 lt 90]
penup fd 200 penpaint repeat 5 [fd 90 lt 72]
penup fd 200 penpaint repeat 6 [fd 80 lt 60]
penup fd 200 penpaint repeat 7 [fd 70 lt 51]
penup fd 200 penpaint repeat 8 [fd 50 lt 45]
penup fd 200 penpaint repeat 9 [fd 50 lt 40]
penup fd 200 penpaint repeat 10 [fd 50 lt 36]
penup bk 1400 rt 90 fd 200 lt 90 rt 90 fd 200 bk 100 lt 90
rt 90 fd 50 lt 90 fd 50 penpaint repeat 11 [fd 50 lt 32]
penup fd 200 bk 200 lt 2 lt 5 lt 10 rt 5 fd 200 rt 5 lt 10 rt 5
penpaint repeat 12 [fd 40 lt 30]
penup fd 200 penpaint repeat 13 [fd 40 lt 27.6]
penup fd 200 lt 5 rt 2 rt 1 rt 1 rt 2 lt 1 rt 1.5
penpaint repeat 14 [fd 37 lt 25.71]
penup fd 200 penpaint repeat 15 [fd 35 lt 24]
penup fd 200 fd 30
penpaint repeat 16 [fd 33 lt 22.5]
penup fd 200 penpaint repeat 17 [fd 32 lt 21.17]
penup fd 200 penpaint repeat 18 [fd 31 lt 20]
penup fd 200 penpaint repeat 19 [fd 30 lt 18.94]
penup rt 90 fd 200 lt 90 bk 830 rt 90 fd 50 lt 90
penpaint repeat 20 [fd 25 lt 18]
penup bk 850 lt 90 fd 450 rt 90 lt 90 fd 50 rt 90 fd 50 bk 10 bk 1 bk 10 label "triangulo
penup fd 200 penpaint label "cuadrado
penup fd 200 penpaint label "Pentágono
penup fd 200 penpaint label "Hexágono
penup fd 200 penpaint label "Heptágono
penup fd 200 penpaint label "Octagono
penup fd 200 bk 30 penpaint label "Nonágono
penup fd 200 penpaint label "Decágono
penup bk 1400 rt 90 fd 200 lt 90 rt 90 fd 200 bk 100 lt 90 rt 90 fd 50 lt 90 fd 50 lt 90 fd 15 rt 90 lt 90 fd 10 rt 90
penpaint label "Enedecágono
penup fd 200 bk 20 penpaint label "Dodecágono
penup fd 200 penpaint label "Tridecágono
penup fd 10 bk 200 lt 10 rt 5 rt 2 fd 200 fd 200
penpaint label "Tetradecágono penup fd 200 bk 20 penpaint label "Pentadecágono
penup fd 200 fd 50 bk 10 bk 10
penpaint label "Hexadecágono
penup fd 200 penpaint label "Heptadecágono
penup fd 200 penpaint label "Octadecágono
penup fd 200 rt 90 fd 15 lt 90 penpaint label "Eneadecagono
penup rt 90 fd 200 lt 90 bk 830 rt 90 fd 50 lt 90 lt 90 fd 20 rt 90 penpaint label "Isodecagono
home
Setpensize 5
Setbackground 6
to al
pu lt 90 fd 900 rt 90 bk 150
penpaint
fd 500 rt 90 fd 300 rt 90 fd 500 rt 90 fd 100 rt 90 fd 200 lt 90 fd 100 lt 90 fd 200 rt 90 fd 100
penup
rt 90 fd 300 rt 90 fd 100
penpaint
fd 100 lt 90 fd 100 lt 90 fd 100 lt 90 fd 100
penup
lt 90 fd 250 lt 90 fd 200
penpaint
lt 180 fd 500 lt 90 fd 300 lt 90 fd 100 lt 90 fd 200 rt 90 fd 400 lt 90 fd 100
end
to da
penup lt 180 fd 350
penpaint
rt 90 penpaint fd 500 rt 180 fd 250 arc 180 250 penup rt 90 fd 50 lt 90 penpaint arc 180 150 fd 150 back 300
penup fd 400 rt 90 fd 230 rt 90 fd 500 lt 180
penpaint fd 500 rt 90 fd 300 rt 90 fd 500 rt 90 fd 100 rt 90 fd 200 lt 90 fd 100 lt 90 fd 200 rt 90 fd 100
penup
rt 90 fd 300 rt 90 fd 100
penpaint
fd 100 lt 90 fd 100 lt 90 fd 100 lt 90 fd 100
end
to ir
penup fd 300 lt 90 fd 250 lt 90 penpaint fd 500 rt 90 fd 50 rt 90 fd 500 rt 90 fd 50
penup back 100 rt 90
penpaint
fd 500 rt 90 fd 400 rt 90 fd 300
right 90 forward 80
penup forward 320 right 90 back 200
right 90 forward 80
back 80
penpaint forward 90
left 90 forward 200
right 100
left 10
forward 100
right 45
forward 150
penerase back 150
right 30
penpaint forward 200
left 90
right 20
left 10
right 5
right 5
forward 50
forward 10
left 80
right 20
left 40
right 10
forward 150
forward 50
penup left 90
forward 200
right 99
left 20
right 10
left 5
fd 100 penpaint forward 70
right 100
left 10
fd 100
fd 50
rt 90 fd 70
rt 90 fd 100
fd 50
end
Practica 5
home
Setbackground 4
pu lt 90 fd 650 rt 90 fd 240
rt 90
to TRIANGULO
Setpencolor 3
penpaint
repeat 3 [fd 110 lt 120]
pu lt 90 bk 30 rt 90 fd 20
label "TRIANGULO
pu fd 120 lt 90 fd 30 rt 90
end
to CUADRADO
Setpencolor 2
penpaint
repeat 4 [fd 100 lt 90]
pu lt 90 bk 30 rt 90
label "CUADRADO
pu fd 130 lt 90 fd 30 rt 90
end
to PENTAGONO
Setpencolor 1
penpaint
repeat 5 [fd 70 lt 72]
pu lt 90 bk 30 rt 90
label "PENTAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to HEXAGONO
Setpencolor 3
penpaint
repeat 6 [fd 60 lt 60]
pu lt 90 bk 30 rt 90
label "HEXAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to HEPTAGONO
Setpencolor 2
penpaint
repeat 7 [fd 50 lt 51.42]
pu lt 90 bk 30 rt 90
label "HEPTAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to OCTAGONO
Setpencolor 1
penpaint
repeat 8 [fd 40 lt 45]
pu lt 90 bk 30 rt 90
label "OCTAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to NONAGONO
Setpencolor 3
penpaint
repeat 9 [fd 35 lt 40]
pu lt 90 bk 30 rt 90
label "NONAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to DECAGONO
Setpencolor 2
penpaint
repeat 10 [fd 35 lt 36]
pu lt 90 bk 30 rt 90
label "DECAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to ENDECAGONO
Setpencolor 1
penpaint
repeat 11 [fd 35 lt 32.72]
pu lt 90 bk 30 rt 90
label "ENDECAGONO
pu fd 130 lt 90 fd 30 rt 90
end
to DODECAGONO
Setpencolor 3
pu bk 1150 lt 90 bk 250 rt 90
penpaint
repeat 12 [fd 30 lt 30]
pu lt 90 bk 30 rt 90 bk 30
label "DODECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to TRIDECAGONO
Setpencolor 2
penpaint
repeat 13 [fd 30 lt 27.69]
pu lt 90 bk 30 rt 90 bk 30
label "TRIDECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to TETRADECAGONO
Setpencolor 1
penpaint
repeat 14 [fd 25 lt 25.71]
pu lt 90 bk 30 rt 90 bk 35
label "TETRADECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to PENTADECAGONO
Setpencolor 3
penpaint
repeat 15 [fd 25 lt 24]
pu lt 90 bk 30 rt 90 bk 35
label "PENTADECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to HEXADECAGONO
Setpencolor 2
penpaint
repeat 16 [fd 23 lt 22.5]
pu lt 90 bk 30 rt 90 bk 35
label "HEXADECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to HEPTADECAGONO
Setpencolor 1
penpaint
repeat 17 [fd 20 lt 21.17]
pu lt 90 bk 30 rt 90 bk 35
label "HEPTADECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to OCTADECAGONO
Setpencolor 3
penpaint
repeat 18 [fd 20 lt 20]
pu lt 90 bk 30 rt 90 bk 35
label "OCTADECAGONO
pu fd 160 lt 90 fd 30 rt 90
end
to NONADECAGONO
Setpencolor 2
penpaint
repeat 19 [fd 20 lt 18.94]
pu lt 90 bk 30 rt 90 bk 35
label "NONADECAGONO
pu fd 210 lt 90 fd 30 rt 90
end
to ISODECAGONO
Setpencolor 1
penpaint
repeat 20 [fd 20 lt 18]
pu lt 90 bk 30 rt 90 bk 35
label "ISODECAGONO
end
Practica 6
home
Setpensize 5
Setbackground 3
Setpencolor 5
pu fd 300 rt 90 bk 100
lt 90
fd 50
rt 90
bk 50
penpaint
repeat 4 [fd 100 rt 90]
pu rt 90 fd 25
lt 90
fd 20
penpaint
repeat 4 [fd 15 rt 90]
pu fd 10
fd 20
fd 5
penpaint repeat 4 [fd 15 rt 90]
pu rt 90 fd 25
fd 10
rt 90
penpaint fd 20
lt 90 fd 20
lt 90
fd 20
fd 5
lt 90 fd 20
pu lt 90 fd 60
lt 90
fd 30
lt 90
fd 50 rt 90 fd 10 lt 90
fd 10
rt 90
penpaint
fd 15
fd 5
pu bk 20
rt 90 fd 10
lt 90 rt 90 fd 10
lt 90
penpaint
fd 20
pu bk 20 lt 90
bk 40
lt 90
fd 50
lt 90
penpaint fd 80
penerase bk 50
rt 90
pu bk 5
penpaint
repeat 4 [fd 10 lt 90]
pu fd 5
rt 90
fd 30
fd 100
penpaint fd 30
lt 90
pu bk 5
penpaint
repeat 4 [fd 10 rt 90]
pu lt 90
rt 90
fd 5
lt 90
fd 95
lt 90
fd 50
fd 20
penpaint
rt 90 fd 50
bk 55
fd 55
lt 45
fd 50
penerase bk 50
lt 15
fd 50
bk 50
penpaint
fd 50
fd 15
lt 120
fd 20
lt 60
fd 30
rt 120 rt 60
lt 45
rt 15
fd 100
fd 50
pu bk 150
bk 30
lt 90
pu fd 50
fd 20
fd 10 bk 5
penpaint fd 50
rt 60
fd 50
rt 120
fd 15
rt 60
fd 15
lt 120
lt 60
rt 45
lt 30
rt 15
fd 100
fd 50
rt 90 fd 100
fd 50
penerase bk 24
penpaint
lt 90
fd 150
lt 90
fd 42
lt 90 fd 100
rt 90 fd 42
rt 90 fd 100
lt 90 fd 42
lt 90 fd 150
bk 50
lt 90 fd 124
bk 42
rt 90 fd 50
rt 90 fd 42 rt 90 fd 50
rt 90
rt 45
rt 15
rt 60
lt 30
lt 30
fd 50
penerase bk 50
rt 10
fd 50
penerase bk 50
penpaint fd 50
lt 90
lt 30
lt 30
rt 15
fd 50
rt 45
rt 10
rt 5
bk 84
penerase fd 84
rt 10
lt 5
bk 84
lt 90
fd 50
fd 50
rt 90
fd 40
bk 40
rt 180
bk 2
bk 2
bk 2
fd 20
bk 20
penpaint
fd 20
fd 10
rt 90 fd 40
rt 90
fd 50
fd 5
fd 5
fd 5
fd 5
rt 90
fd 30
bk 30
fd 40
bk 30
fd 20
fd 10
rt 90
fd 72
rt 180
pu fd 30
fd 42
fd 42
fd 42
penpaint fd 30
lt 90
fd 40
lt 90
fd 30
fd 42
lt 90 fd 40
fd 150 bk 50
rt 90 fd 42
fd 42
