Clase 2 Ejercicio 2.4.11

/*Escribir un procedimento LetrasERojaYNegra que dibuje una letra E roja seguida
de una letra E negra.*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}
procedure Poner1GotaAcuarelaRojo()
{
Poner(Rojo)
}
procedure Poner1GotaAcuarelaNegro()
{
Poner(Negro)
}
/*Empieza E Rojo*/
procedure PintarLineaHorizontal3()
{
Poner1GotaAcuarelaRojo();Mover(Este);Poner1GotaAcuarelaRojo();Mover(Este);Poner1GotaAcuarelaRojo();Mover(Oeste);Mover(Oeste)
}

procedure LetraERoja()
{
PintarLineaHorizontal3() /* La base de la E */
Mover(Norte)
Poner1GotaAcuarelaRojo() /* Nivel 2 de la E */
Mover(Norte)
PintarLineaHorizontal3() /* La barra de la E */
Mover(Norte)
Poner1GotaAcuarelaRojo() /* Nivel 4 de la E */
Mover(Norte)
PintarLineaHorizontal3() /* El tope de la E */
IrAlOrigen() /* Retorna el cabezal*/
}
procedure MoverCabezalAlEste()
{
	Mover(Este);Mover(Este);Mover(Este);
}

/*Empieza E Negro*/
procedure PintarLineaHorizontalNegro(){
Poner1GotaAcuarelaNegro();Mover(Este);Poner1GotaAcuarelaNegro();Mover(Este);Poner1GotaAcuarelaNegro();Mover(Oeste);Mover(Oeste)
}
procedure LetraENegro(){
PintarLineaHorizontalNegro() /* La base de la E */
Mover(Norte)
Poner1GotaAcuarelaNegro() /* Nivel 2 de la E */
Mover(Norte)
PintarLineaHorizontalNegro() /* La barra de la E */
Mover(Norte)
Poner1GotaAcuarelaNegro() /* Nivel 4 de la E */
Mover(Norte)
PintarLineaHorizontalNegro() /* El tope de la E */
IrAlOrigen() /* Retorna el cabezal*/
}
procedure Main()
{
PrepararTablero()
LetraERoja()
MoverCabezalAlEste()
LetraENegro()
}