Clase 3 Ejercicio 2.4.11.A

/*Escribir un procedimento LetrasERojaYNegra que dibuje una letra E roja seguida
de una letra E negra.*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}
procedure Poner1GotaAcuarela(color){
Poner(color)
}

/*Empieza E Rojo*/
procedure PintarLineaHorizontal3(color,dir){
Poner1GotaAcuarela(color);Mover(dir);Poner1GotaAcuarela(color);Mover(dir);Poner1GotaAcuarela(color);Mover(Oeste);Mover(Oeste)
}

procedure LetraERoja(){
PintarLineaHorizontal3(Rojo,Este) /*Nivel 1 la base de la E */
Mover(Norte)
Poner1GotaAcuarela(Rojo) /* Nivel 2 de la E */
Mover(Norte)
PintarLineaHorizontal3(Rojo,Este) /*Nivel 3 barra de la E */
Mover(Norte)
Poner1GotaAcuarela(Rojo) /* Nivel 4 de la E */
Mover(Norte)
PintarLineaHorizontal3(Rojo,Este) /*Nivel 5 tope de la E */
IrAlOrigen() /* Retorna el cabezal*/
}
/*Mover Cabezal para empezar otra E*/
procedure MoverCabezal(dir){
Mover(dir);Mover(dir);Mover(dir)
}
/*Empieza E Negro*/

procedure LetraENegro(){
MoverCabezal(Este)
PintarLineaHorizontal3(Negro,Este) /*Nivel 1 la base de la E */
Mover(Norte)
Poner1GotaAcuarela(Negro) /* Nivel 2 de la E */
Mover(Norte)
PintarLineaHorizontal3(Negro,Este) /*Nivel 3 barra de la E */
Mover(Norte)
Poner1GotaAcuarela(Negro) /* Nivel 4 de la E */
Mover(Norte)
PintarLineaHorizontal3(Negro,Este) /*Nivel 5 tope de la E */
IrAlOrigen() /* Retorna el cabezal*/
}
procedure Main(){
PrepararTablero()
LetraERoja()
LetraENegro()
}