Dibujo realizado en el examen, bueno no es precisamente como tenia que quedar pero fue lo que realize.

Codigo:
:rt 45


lt 45
penup fd 80
fd 100
rt 90
rt 45
pendown penpaint fd 100
fd 50
penup rt 45
rt 90
rt 45
fd 150
lt 45
lt 45
pendown penpaint fd 150
penup rt 90
rt 90
fd 10
rt 45
pendown penpaint fd 100
fd 50
fd 30
fd 20
rt 90
fd 200
rt 90
fd 200
lt 90
lt 180
fd 200
penup rt 90
fd 30
rt 90
fd 30
fd 20
rt 90
rt 180
pendown penpaint fd 60
rt 90
fd 60
rt 90
fd 60
rt 90
fd 60
penup rt 90 fd 30
rt 90
pendown penpaint fd 60
penup rt 90 fd 30 rt 90 fd 30
rt 90
pendown penpaint fd 60
penup rt 90 fd 100
fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
5 fd 10
pendown penpaint setpencolor 5 fd 70
rt 90
fd30
Assuming you meant 'fd 30', not fd30
fd 40
fd 20
rt 180
penerase fd 10
penup lt 90 fd 10
rt 180
rt 90
rt 180
fd 50
rt 90
rt 180
fd 30
rt 90
pendown penpaint setpecolor 5 arc 360 5
I don't know how to setpecolor
setpencolor 5 arc 360 5
penup
fd 30
rt 90
penerase fd 30
rt 180
penerase fd 50
penerase fd 10
rt 90
rt 90
penerase fd 70
rt 90
penerase fd 15
rt 90
penpaint setpencolor 5 fd 70
penup rt 180 fd 70
rt 90
fd 60
fd 100
rt 90
rt 180
fd 90
rt 90
fd 30
fd 30
pendown penpaint arc 360 90
penerase arc 360 90
setpencolor 6 arc 360 60
penpaint arc 360 60
penup
rt 90
fd 30
fd 30
rt 90
fd 10
rt 90
rt 180
penpaint fd 50
fd 30
penup
rt 90
rt 18
lt 18
rt 180
lt 45
fd 10
fd 5
fd 10
rt 90
rt 90
pendown penpaint fd 30
fd 20
rt 90
rt 90
penup fd 50
rt 90
pendown penpaint fd 50
rt 90
rt 45
fd 50
fd 10
fd 10
penup rt 90
rt 45
fd 20
fd 10
rt 90
lt 45
fd 20
fd 10
rt 90
rt 180
pendown penpaint fd 50
fd 20
fd 10
penup lt 90
fd 300
fd 200
rt 90
rt 180
fd 70
fd 30
rt 90

practica 6

Para realizar este dibujo utilize el repeat y asi queda la imagen:

Codigo:


repeat 36[rt 10 repeat 360[fd 10 rt 10]]
clearscreen
repeat 36[rt 10 repeat 360[fd 30 rt 30]]
clearscreen
repeat 36[rt 30 repeat 360[fd 30 rt 30]]
clearscreen
repeat 50[rt 60 repeat 360[fd 60 rt 60]]
pu
rt 90
rt 45
fd 50
fd 40
fd 60
fd 80
rt 15
fd 40
fd 50
fd 30
fd 30
fd 30
repeat 36[rt 10 repeat 360[fd 1 rt 1]]
pendown penpain
I don't know how to penpain

repeat 36[rt 10 repeat 360[fd 1 rt 1]]

practica 1

Este fue el primer dibujo realizado en clase y asi quedo:

Codigo:
fd 200 rt 90 fd 200

rt 90
fd 200 lt 90
lt 180
fd 200
penup
rt 90
fd 60
fd 50
fd 30
rt 90
fd 20
fd 10
pendown penpaint fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
fd 30
lt 90
fd 30
penup
lt 90
fd 60
fd 40
penup pénpaint fd 30
I don't know how to pénpaint
pendown penpaint fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
fd 30
lt 90
fd 30
penup fd 40
rt 90
rt 10
lt 10
fd 10
fd 20
pendown penpaint fd 10
lt 90
fd 30
lt 90
fd 10
rt 90
rt 180
fd 30
penup rt 180
fd 40
fd 20
rt 90
pendown fd 20
fd 10
lt 90
fd 10
lt 90
fd 40
fd 10
rt 90
 rt 180
fd 10
rt 90
rt 180
fd 20
penup
rt 90
rt 180
fd 30
fd 10
rt 90
fd 60
fd 30
fd 20
rt 180
fd 50
rt 90
pendown penpaint fd 20
rt 90
fd 70
fd 30
lt 90
fd 50
fd 50
fd 50
lt 90
fd 10
rt 90
rt 180
fd 60
fd 30
rt 90
fd 20
rt 90
fd 130
rt 90
rt 180
fd 80
fd 100
penup rt 90
rt 180
fd 160
fd 30
fd 10
fd 10
rt 90
fd 10
rt 90
pendown penpaint fd 20
rt 90
rt 90
erase fd 20
fd didn't output to erase
rt 180
penerase fd 20
penup rt 180
fd 10
rt 180
pendown penpaint fd 10
fd 10
rt 90
rt 180
fd 80
fd 20
rt 90
fd 150
rt 90
fd 10
rt 90
fd 50
fd 30
fd 10
rt 90
rt 180
fd 20
rt 90
rt 180
fd 50
fd 50
fd 30
rt 90
fd 40
fd 20
fd 20
penup
rt 90
fd 40
fd 40
fd 30
pendown penpaint fd 20
fd 20
rt 90
rt 180
fd 50
fd 30
fd 10
rt 90
rt 180
fd 30
rt 90
rt 180
fd 50
rt 90
fd 10
lt 90
fd 30
fd 20
rt 90
rt 180
fd 40
rt 90
rt 180

fd 10

practica 2

Para realizar este dibujo primero fue elaborado en paint, despues lo generamos en Logo el diseño fue opcional debido a que fue una tarea:

Codigo:
200 rt 90 fd 200

rt 90
fd 200 lt 90
lt 180
fd 200
penup
rt 90
fd 60
fd 50
fd 30
rt 90
fd 20
fd 10
pendown penpaint fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
fd 30
lt 90
fd 30
penup
lt 90
fd 60
fd 40
penup pénpaint fd 30
pendown penpaint fd 30
rt 90
rt 180
fd 30
rt 90
rt 180
fd 30
lt 90
fd 30
penup fd 40
rt 90
rt 10
lt 10
fd 10
fd 20
pendown penpaint fd 10
lt 90
fd 30
lt 90
fd 10
rt 90
rt 180
fd 30
penup rt 180
fd 40
fd 20
rt 90
pendown fd 20
fd 10
lt 90
fd 10
lt 90
fd 40
fd 10
rt 90
rt 180
fd 10
rt 90
rt 180
fd 20
rt 90
rt 180
fd 30
fd 10
rt 90
fd 60
fd 30
fd 20
rt 180
fd 50
rt 90
pendown penpaint fd 20
rt 90
fd 70
fd 30
lt 90
fd 50
fd 50
fd 50
lt 90
fd 10
rt 90
rt 180
fd 60
fd 30
rt 90
fd 20
rt 90
fd 130
rt 90
rt 180
fd 80
fd 100
penup rt 90
rt 180
fd 160
fd 30
fd 10
fd 10
rt 90
fd 10
rt 90
pendown penpaint fd 20
rt 90
rt 90
erase fd 20
rt 180
penerase fd 20
penup rt 180
fd 10
fd 10
rt 180
pendown penpaint fd 10
fd 10
rt 90
rt 180
fd 80
fd 20
rt 90
fd 150
rt 90
fd 10
rt 90
fd 50
fd 30
 fd 10
rt 90
rt 180
fd 20
rt 90
rt 180
fd 50
fd 50
fd 30
rt 90
fd 40
fd 20
fd 20
penup
rt 90
fd 40
fd 40
fd 30
pendown penpaint fd 20
fd 20
rt 90
rt 180
fd 50
fd 30
fd 10
rt 90
rt 180
fd 30
rt 90
rt 180
fd 50
rt 90
fd 10
lt 90
fd 30
fd 20
rt 90
rt 180
fd 40
rt 90
rt 180
fd 10

practica 3

En este dibujo vimos la opción de arc, en lo personal fue un dibujo que se me dificulto bastante, claro ejemplo de esto es el amplio codigo:

dibujo:

Codigo:
arc arc 180 90

arc didn't output to arc
rt 90
rt 90
arc 180 90
rt 90
rt 90
penup fd 30
fd 30
fd 20
fd 10
rt 45
lt 45
lt 90
rt 90
fd 5
rt 90
rt 180
fd 30
fd 50
rt 90
rt 180
fd 50
rt 90
rt 90
rt 45
rt 45
rt 90
lt 45
rt 45
rt 90
lt 45
fd 20
fd 20
rt 45
rt 90
rt 45
pendown penpaint fd 40
fd 5
fd 5
fd 5
fd 40
fd 30
fd 20
rt 90
rt 45
fd 80
fd 100
fd 30
fd 20
rt 90
rt 90
rt 45
fd100
Assuming you meant 'fd 100', not fd100
rt 45
rt 45
rt 90
penerase fd 60
penerase fd 30
penerase fd 10
rt 90
rt 45
rt 180
pendown penpaint fd 10
rt 45
rt 45
rt 45
rt 45
rt 45
fd 100
fd 20
fd 20
fd 20
fd 5
rt45
Assuming you meant 'rt 45', not rt45
rt 90
rt 90
fd 100
fd 100
fd 20
fd 10
rt 45
rt 45
rt 45
lt 90
lt 45
fd 5
rt 45
rt 45
rt 45
fd 5
fd 5
fd 5
fd 10
fd 20
fd 10
fd 5
penup fd 100
fd 100
fd 50
rt 45
fd 40
fd 60
rt 90
rt 45
pendown penpaint arc 180 90
penerase arc 180 45
penerase arc 180 90
rt 45
arc 180 45
penpaint arc 180 45
peerase arc 180 45
I don't know how to peerase
penerase arc 180 45
penpanit arc 180 90
I don't know how to penpanit
penpaint arc 180 90
penup
fd 40
fd 30
fd 30
rt 90
rt 90
fd 5
fd 5
rt 45
pendown penpaint fd 30
lt 45
lt 45
fd 40
fd 30
rt 45
rt 90
rt 45
penerase fd 40
penerase fd 30
rt 90
penerase fd 20
penerase fd 10
rt 45
rt 90
rt 45
fd 50
rt 45
rt 90
rt 45
rt 45
rt 45
fd 30
rt45
Assuming you meant 'rt 45', not rt45
fd 50
fd 60
rt 90
rt 180
fd 10
rt 90
fd 10
fd 5
rt 90
rt 45
pendown penpaint fd 40
fd 10
rt 90
fd 40
fd 40
rt 90
rt 90
rt 90
fd 40
fd 20
fd 10
rt 90
fd 30
fd 10
fd 10
fd 5
fd 5
penup
rt 45
rt 90
rt 180
rt 90
fd 10
rt 90
fd 20
pendown penpaint label 6 sep 2010
I don't know how to sep
label septiembre
I don't know how to septiembre
penup fd 10
pendown penpaint label septiembre
I don't know how to septiembre
penpaint label sep
I don't know how to sep
label 09
penerase label 09
penerase label 09
penerase label
not enough inputs to label
rt 90
rt 90
penerase label 09
rt 90
rt 90
fd 10
label "6-sep-10
penerase label 6
rt 90
rt 90
fd 10
penerase label6
Assuming you meant 'label 6', not label6
fd 5
penerase label6
Assuming you meant 'label 6', not label6
penerase label 6
penup fd 50
rt 90
rt 90
rt 90
fd 20
fd 200
rt 90
rt 90
rt 90
fd 100
fd 60
fd 50
lt 45
pendown penpaint arc 180 50
penerase arc 180 50
rt 90
arc 180 90
penpaint arc 180 90
penerase arc 180 90
rt 90
rt 90
arc 180 90
pendown penpaint arc 180 90
fd 30
fd 30
fd 40
rt 90
rt 45
rt 45
penerase fd 10
penup fd 60
fd 20
fd 10
rt 90
rt 90
rt 90
rt 90
pendown penpaint fd 60
fd 20
fd 5
fd 5
penup rt 90
rt 90
fd 70
fd 5
fd 5
fd 10
rt 90
rt 180
pendown penpaint fd 50
fd 30
fd 10
fd 10
fd 30
rt 90
arc 45 45
penerase arc 45 45
rt 45
arc 180 30
penpaint arc 180 30
penerase arc 180 30
rt 45
rt 45
penpaint arc 90 30
rt 15
rt 30
rt 30
rt 30
arc 90 10
penerase arc 90 10
rt 15
rt 5
rt 5
rt 5
rt 5
penpaint arc 90 10
penerase arc 90 10
fd 10
rt 90
rt 90
fd 10
rt 90
rt 90
pendown penpaint fd 10
fd 10
rt 90
rt 90
rt 90
fd 10
fd 10
penup
rt 90
rt 90
rt 45
fd 200
fd 200
rt 90
rt 180
fd 200
fd 300
rt 5
lt 10
lt 5
rt 5
fd 40
rt 90
rt 180
fd 100
fd 100
fd 100
fd 50
fd 50
rt 90
pendown penpaint fd 100
fd 100
rt 90
fd 200
rt 90
fd 200
lt 90
lt 180
fd 200
pu rt 90
rt 90
fd 100
fd 100
rt 45
lt 45
lt 45
pendown penpaint fd 50
fd 50
fd 30
rt 45
rt 180
penup fd 30
fd 40
fd 30
rt 90
fd 60
fd 30
fd 20
rt 90
fd 10
rt 45
pendown penpaint fd 40
fd 30
fd 40
fd 20
fd 10
rt 45
rt 45
fd 10
fd 10
penup fd 60
fd 30
fd 30
rt 45
rt 180
rt 90
fd 5
rt 90
fd 60
fd 30
fd 30
rt 90
pendown penpaint fd 30
fd 20
rt 90
rt 180
fd 50
fd 30
penup rt 90
rt 90
fd 60
fd 60
rt 90
rt 180
fd 30
fd 20
pendown penpaint fd 40
fd 10
rt 90
fd 50
rt 90
fd 50
lt 90
rt 180
fd 50
rt 90
rt 45
lt 45
fd 25
rt 90
pendown penpaint arc 180 30
rt 90
penerase fd 25
rt 90
rt 180
penerase fd 50
rt 90
rt 180
penerase fd 50
rt 90
rt 180
penerase fd 50
rt 90
rt 180
penerase fd 25
rt 180
arc 180 30
rt 90
rt 180
arc 130 30
penpaint arc 180 30
rt 90
rt 90
penpaint arc 180 30
penup rt 90
fd 20
fd 5
fd 5
rt 90
pendown penpaint fd 10
pendown penpaint fd 5
fd 10
fd 5
rt 90
fd 20
fd 10
fd 20
fd 5
fd 5
rt 90
fd 20
fd 20
fd 10
fd 5
rt 90
rt 180
rt 90
fd 5
rt 90
fd 30
fd 20
fd 5
rt 90
rt 180
rt 90
fd 5
rt 90
fd 10
fd 5
fd 5
rt 90
penup fd 5
fd 5
pendown penpaint fd 5
fd 5
penup fd 20
fd 10
rt 90
rt 90
pendown penpaint fd 10
penup rt 90
rt 180
rt 90
fd 5
fd 5
rt 90
fd 5
fd 5
fd 5
pendown penpanit arc 90 10
I don't know how to penpanit
pendown penpaint
rt 45
arc 90 10
penerase arc 90 10
lt 45
arc 90 10
rt 180
penup fd 10
rt 180
pendown penpaint arc 45
penerase arc 45 45
arc 30 10
arc 5
not enough inputs to arc
arc 5 5
arc 90 10
arc 180 5
rt 45
arc 90 45
penup rt 45
rt 90
fd 80
pendown penpaint label "montsserrat
penup rt 90
rt 90
fd 80
pendown arc 45 10
penerase arc 45 10
penup fd 10
fd 10
fd 10
rt 180
fd 5
rt 90
rt 90
pendown penpaint arc 45 10
penup fd 50
rt 90
rt 180 fd 50
fd 30
fd 10
pendown penpaint arc 100 80
penerase arc 100 80
arc 180 30
rt 90
pendown penpaint arc 180 30
penerase arc 180 30
arc 360 5
rt 90
rt 90
penpaint arc 360 5
penup
fd 30

Practica 4

En este dibujo ya sabiamos como cambiar de color las lineas y asi fue como quedo la combinación.

El dibujo queda asi:

Codigo:
repeat 8 [setpencolor 0 fd 30 rt 45] pu

lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 34 rt 45] pu
 lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 38 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 42 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 46 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 5 fd 50 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 6 fd 54 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 7 fd 58 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 0 fd 62 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 66 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 70 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 74 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 78 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 5 fd 82 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 6 fd 86 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 7 fd 90 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 0 fd 94 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 98 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 102 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 106 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 110 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 5 fd 114 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 6 fd 118 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 7 fd 122 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 0 fd 126 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 130 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 134 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 138 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 142 rt 45] pu
90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 7 fd 90 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 0 fd 94 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 98 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 102 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 106 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 110 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 5 fd 114 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 6 fd 118 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 7 fd 122 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 0 fd 126 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 1 fd 130 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 2 fd 134 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 3 fd 138 rt 45] pu
lt 90 fd 5 rt 90 bk 2 pd
repeat 8 [setpencolor 4 fd 142 rt 45] pu

Practica 5

Se realizara un tipo tapete, donde usaremos la sentencia repeat y funciones.

Codigo:

pu fd 150 pd
to lineauno
fd 25 lt 90 fd 25 lt 90 fd 15
pu bk 15 rt 90 bk 25 rt 90 pd
fd 25
end
lineauno defined
to lineasuno
rt 90
repeat 2[lineauno]
end
lineasuno defined
to cuadrouno
repeat 4[lineasuno]
end
cuadrouno defined
----------------------------------------
to espaciouno
pu lt 90 fd 35 rt 90 fd 35 pd
end
espaciouno defined
----------------------------------------
to lineados
fd 35 lt 90 fd 35 lt 90 fd 25
pu bk 25 rt 90 bk 35 rt 90 pd
fd 50
end
lineados defined
to lineasdos
rt 90
repeat 2[lineados]
end
lineasdos defined
to cuadrodos
repeat 4[lineasdos]
end
cuadrodos defined
 --------------------------------------------
to espaciodos
pu lt 90 fd 40 rt 90 fd 40 pd
end
espaciodos defined
------------------------------------
to lineatres
fd 75 lt 90 fd 50 lt 90 fd 35
pu bk 35 rt 90 bk 50 rt 90 pd
fd 50
end
lineatres defined
to lineastres
rt 90
repeat 2[lineatres]
end
lineastres defined
to cuadrotres
repeat 4[lineastres]
end
cuadrotres defined
cuadrouno
espaciouno
cuadrodos
espaciodos
cuadrotres
clearscreen
cuadrouno
clearscreen
pu fd 150 pd
cuadrouno
espaciouno
cuadrodos
espaciodos
cuadrotres