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