Proyecto 1 Hecho en Logo
left 90
penup back 670
right 90
pendown
forward 350
right 90
forward 200
right 90
forward 50
right 90
forward 150
left 90
forward 100
left 90
forward 150
right 90
forward 50
right 90
forward 150
left 90
forward 100
left 90
forward 150
right 90
forward 50
right 90
forward 200
penup back 220
right 90
pendown
forward 350
right 90
forward 100
right 45
forward 75
left 90
forward 75
right 45
forward 100
right 90
forward 350
right 90
forward 65
right 90
forward 200
left 135
forward 125
right 90
forward 125
left 135
forward 200
right 90
forward 65
penup back 320
right 90
pendown
forward 350
right 90
forward 100
right 45
forward 75
left 90
forward 75
right 45
forward 100
right 90
forward 350
right 90
forward 65
right 90
forward 200
left 135
forward 125
right 90
forward 125
left 135
forward 200
right 90
forward 65
penup back 320
right 90
pendown
forward 350
right 90
forward 350
right 90
forward 350
right 90
forward 100
right 90
forward 150
left 90
forward 150
left 90
forward 150
right 90
forward 100
right 180
penup forward 250
left 90
penup forward 200
pendown
forward 100
left 90
forward 150
left 90
forward 100
left 90
forward 150
Proyecto 2 Dibujos
//carro//
setpensize 3
left 90
penup forward 600
left 180
pendown
setpencolor 4
forward 260
left 90
forward 70
left 90
forward 40
right 45
forward 40
left 45
forward 120
left 45
forward 40
right 45
forward 40
left 90
forward 70
left 90
penup forward 40
left 90
setpencolor 7
pendown
forward 30
right 90
forward 60
right 90
forward 60
right 90
forward 60
right 90
forward 30
right 90
penup forward 120
left 90
pendown
forward 30
right 90
forward 60
right 90
forward 60
right 90
forward 60
right 90
forward 30
right 90
penup forward 150
left 90
penup forward 140
pendown
//flor//
setpensize 3
setpencolor 6
penup forward 90
pendown
arc 360 80
setpencolor 3
left 45
penup forward 80
pendown
arc 110 60
arc -110 60
penup back 160
left 180
pendown
arc 110 60
arc -110 60
penup back 80
left 90
penup forward 80
pendown
arc 110 60
arc -110 60
left 180
penup forward 160
pendown
arc 110 60
arc -110 60
penup back 80
left 45
penup forward 80
pendown
setpencolor 2
forward 160
left 180
forward 70
arc 180 35
right 90
forward 30
back 30
right 90
forward 70
left 90
penup forward 220
pendown
//canasta//
setpensize 3
setpencolor 1
right 180
forward 100
right 90
forward 100
right 90
forward 100
right 90
forward 100
right 135
forward 140
left 135
forward 100
left 135
forward 140
left 135
penup forward 50
pendown
setpencolor 5
arc 180 50
right 180
penup forward 80
left 90
penup back 90
pendown
//Tetris//
setpensize 4
setpencolor 12
forward 180
right 90
forward 45
right 90
forward 40
left 90
forward 120
right 90
forward 40
right 90
forward 40
left 90
forward 40
right 90
forward 40
right 90
forward 40
left 90
forward 40
right 90
forward 40
left 180
forward 80
right 90
forward 45
left 90
forward 60
left 90
forward 125
left 90
forward 60
right 90
forward 40
right 90
forward 40
left 90
forward 80
right 90
forward 20
right 90
forward 120
left 180
penup forward 240
pendown
left 90
//Arbol//
setpensize 5
penup back 210
pendown
setpencolor 8
forward 140
left 45
forward 130
left 45
forward 20
right 90
forward 10
right 90
forward 20
left 90
forward 40
right 90
forward 10
right 90
forward 40
left 45
forward 50
left 135
forward 35
left 45
forward 15
right 45
forward 30
right 135
forward 20
left 45
forward 15
right 135
forward 20
left 90
forward 20
right 45
forward 2
left 45
forward 10
right 35
forward 10
left 30
forward 30
left 140
forward 140
setpencolor 2
left 45
forward 30
left 90
forward 40
right 90
forward 60
left 45
forward 80
right 90
forward 70
left 90
forward 70
right 90
forward 70
right 90
forward 80
left 90
forward 100
right 100
forward 90
left 60
forward 70
right 90
forward 100
left 75
forward 100
right 30
forward 80
right 70
forward 110
right 90
forward 90
left 120
forward 110
right 90
forward 80
right 90
left 45
forward 90
left 80
setpencolor 8
forward 150
left 90
forward 60
left 45
forward 20
right 90
forward 10
right 90
forward 15
left 110
forward 30
right 30
forward 25
right 145
forward 40
left 20
forward 75
left 90
forward 190
setpencolor 2
left 135
forward 25
right 90
forward 25
left 90
forward 25
right 90
forward 25
left 90
forward 25
right 90
forward 50
right 135
forward 380
right 135
forward 50
right 90
forward 25
left 90
forward 25
right 90
forward 25
left 90
forward 25
right 90
forward 25
Figuras en Logo
penup forward 1250
left 90
penup back 2000
pendown
//Triangulo
setpencolor 1
setpensize 2
repeat 3 [right 120 forward 40]
left 90
penup forward 50
left 90
pendown
label "Triangulo
//cuadrado
setpencolor 2
setpensize 2
penup forward 150
left 90
penup forward 50
left 90
pendown
repeat 4 [forward 50 right 90]
penup forward 50
left 90
penup forward 50
left 90
pendown
label "Cuadrado
//Pentágono
setpencolor 3
setpensize 2
penup forward 160
left 90
penup forward 50
left 90
pendown
repeat 5 [forward 60 right 72]
penup forward 60
left 90
penup forward 50
left 90
pendown
label "Pentagono
//Hexágono
setpencolor 4
setpensize 2
penup forward 140
left 90
penup forward 50
left 90
pendown
repeat 6 [right 60 forward 70]
left 90
penup forward 50
left 90
pendown
label "Hexágono
//Heptágono
setpencolor 5
setpensize 2
penup forward 170
left 90
penup forward 50
left 90
pendown
repeat 7 [right 51.5 forward 60]
left 90
penup forward 50
left 90
pendown
label "Heptágono
//Octágono
setpencolor 6
setpensize 2
penup forward 170
left 90
penup forward 50
left 90
pendown
repeat 8 [right 45 forward 60]
left 90
penup forward 50
left 90
pendown
label "Octágono
//Nonágono
setpencolor 8
setpensize 2
penup forward 170
left 90
penup forward 50
left 90
pendown
repeat 9 [right 40 forward 60]
left 90
penup forward 50
left 90
pendown
label "Nonágono
//Decágono
setpencolor 9
setpensize 2
penup forward 200
left 90
penup forward 50
left 90
pendown
repeat 10 [right 36 forward 60]
left 90
penup forward 50
left 90
pendown
label "Decágono
right 90
penup forward 300
right 90
penup forward 2300
pendown
//Endecágono
setpencolor 10
setpensize 3
repeat 11 [right 32.72 forward 40]
left 90
penup forward 50
left 90
pendown
label "Endecágono
//Dodecágono
setpencolor 11
setpensize 3
penup forward 170
left 90
penup forward 50
left 90
pendown
repeat 12 [right 30 forward 40]
left 90
penup forward 50
left 90
pendown
label "Dodecágono
//Triskaidecágono
setpencolor 12
setpensize 3
penup forward 180
left 90
penup forward 50
left 90
pendown
repeat 13 [right 27.7 forward 40]
left 90
penup forward 50
left 90
pendown
label "Triskaidecágono
//Tetradecágono
setpencolor 13
setpensize 3
penup forward 190
left 90
penup forward 50
left 90
pendown
repeat 14 [right 25.7 forward 40]
left 90
penup forward 50
left 90
pendown
label "Tetradecágono
//Pentadecágono
setpencolor 14
setpensize 3
penup forward 200
left 90
penup forward 50
left 90
pendown
repeat 15 [right 24 forward 40]
left 90
penup forward 50
left 90
pendown
label "Pentadecágono
//Hexadecágono
setpencolor 15
setpensize 3
penup forward 210
left 90
penup forward 50
left 90
pendown
repeat 16 [right 22.5 forward 40]
left 90
penup forward 50
left 90
pendown
label "Hexadecágono
Figuras Con Funcion
to Triangulo :side
setpensize 3 setpencolor 1
pu setxy -500 300 pendown left 90 repeat 3 [ forward :side right 120] pu setxy -580 270 pendown label "Triangulo
end
Triangulo 80
to Cuadrado :side
setpensize 3 setpencolor 2
pu setxy -380 380 pendown left 90 repeat 4 [ forward :side right 90] pu setxy -460 270 pendown label "Cuadrado
end
Cuadrado 80
to Pentagono :side
setpensize 3 setpencolor 3
pu setxy -260 300 pendown left 270 repeat 5 [ forward :side right 72] pu setxy -340 270 pendown label "Pentagono
end
Pentagono 60
to Hexagono :side
setpensize 3 setpencolor 4
pu setxy -120 300 pendown left 0 repeat 6 [ forward :side right 60] pu setxy -200 270 pendown label "Hexagono
end
Hexagono 60
to Heptágono :side
setpensize 3 setpencolor 5
pu setxy 10 300 pendown left 0 repeat 7 [ forward :side right 51.5] pu setxy -60 270 pendown label "Heptágono
end
Heptágono 50
to Octágono :side
setpensize 3 setpencolor 6
pu setxy 150 300 pendown left 0 repeat 8 [ forward :side right 45] pu setxy 100 270 pendown label "Octágono
end
Octágono 50
to Nonágono :side
setpensize 3 setpencolor 8
pu setxy 300 300 pendown left 0 repeat 9 [ forward :side right 40] pu setxy 240 270 pendown label "Nonágono
end
Nonágono 50
to Decágono :side
setpensize 3 setpencolor 9
pu setxy 490 300 pendown left 0 repeat 10 [ forward :side right 36] pu setxy 410 270 pendown label "Decágono
end
Decágono 50
to Endecágono :side
setpensize 3 setpencolor 10
pu setxy -500 0 pendown left 0 repeat 11 [ forward :side right 32.72] pu setxy -580 -50 pendown label "Endecágono
end
Endecágono 40
to Dodecágono :side
setpensize 3 setpencolor 11
pu setxy -340 0 pendown left 0 repeat 12 [ forward :side right 30] pu setxy -440 -50 pendown label "Dodecágono
end
Dodecágono 40
to Triskaidecágono :side
setpensize 3 setpencolor 12
pu setxy -160 0 pendown left 0 repeat 13 [ forward :side right 27.7] pu setxy -260 -50 pendown label "Triskaidecágono
end
Triskaidecágono 40
to Tetradecágono :side
setpensize 3 setpencolor 13
pu setxy 20 0 pendown left 0 repeat 14 [ forward :side right 25.7] pu setxy -80 -50 pendown label "Tetradecágono
end
Tetradecágono 40
to Pentadecágono :side
setpensize 3 setpencolor 14
pu setxy 220 0 pendown left 0 repeat 15 [ forward :side right 24] pu setxy 120 -50 pendown label "Pentadecágono
end
Pentadecágono 40
to Hexadecágono :side
setpensize 3 setpencolor 15
pu setxy 440 0 pendown left 0 repeat 16 [ forward :side right 22.5] pu setxy 350 -50 pendown label "Hexadecágono
end
Hexadecágono 40
