Ejercicio cuadrados 3x3

program{
	PonerCuadrado3(Verde,Este,Norte)
	PonerCuadrado3(Azul,Oeste,Sur)
	PonerCuadrado3(Rojo,Este,Sur)
	PonerCuadrado3(Negro,Oeste,Norte)
}

procedure PonerCuadrado3(color,dirX, dirY){
/*Proposito: Hacer un cuadrado de 3x3 de algun color
  Precondiciones: El tablero debe tener un minimo de 9 celdas.
										El primer parametro debe ser efectivamente un color.
										DirX debe ser una direccion horizontal tal como Este o Oeste.
										DirY debe ser una direccion vertical tal como Norte o Sur.
*/
	PonerLinea3(color,dirX)
	Mover(dirY)
	PonerLinea3(color,dirX)
	Mover(dirY)
	PonerLinea3(color,dirX)
	Mover2(opuesto(dirY))
}

procedure PonerLinea3(color,dirX){
	Poner(color)
	Mover(dirX)
	Poner(color)
	Mover(dirX)
	Poner(color)
	Mover2(opuesto(dirX))
}

procedure Mover2(dir){
	Mover(dir)
	Mover(dir)
}