Clase 3 Ejercicio 3.1.3 PASO2

/*Escribir un procedimiento Progresion que dados un numero n
y una direccion dir (Norte, Este, Sur u Oeste), coloque 1 bolita roja en la celda actual, 2 bolitas rojas en la celda lindante en la direccion dir, 3 en la siguiente, etc. repitiendo esto n veces.*/

procedure PrepararTablero(){
VaciarTablero()
IrAlOrigen()
}
/* pone en cada celda n veces bolillas*/
procedure PonerX(color, veces){
repeatWith indice in 1..veces {
Poner(Rojo)
}
}

/* Mueve en dir cada vez hasta la longitud dada*/
procedure MoverX(dir, longitud){
repeatWith indice in 1..longitud {
Mover(dir)
}
}

/*. La intención del parámetro "medida" es que indique la medida de la progresión.
Es decir, cuántas celdas ocupará la progresión horizontalmente.
En la pasada 1 pone una, en la 2 pone dos, etc*/

procedure DibujarProgresion(medida) {
repeatWith indice in 1..medida {
PonerX(Rojo, indice)
Mover(Este)
}
}

/* "cant" es exclusivamente para la cantidad de progresiones (cantidad de lineas verticales)
"longitud" para la longitud de las progresiones individuales (cantidad de celdas horizontales)*/

procedure DibujarLineas(cant, longitud) {
repeatWith indice in 1..cant {
DibujarProgresion(longitud)
MoverX(Oeste, longitud) // Retroceder hasta donde comenzaste a dibujar
Mover(Norte)

}

}

procedure Main() {
PrepararTablero()
DibujarLineas(4,4)
}