Clase 3 Ejercicio 3.1.3 PASO1

/*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()
}
procedure PonerX(color, veces){
repeatWith indice in 1..veces {
Poner(Rojo)
}
}
procedure MoverX(dir, longitud){
repeatWith indice in 1..longitud {
Mover(Oeste)
}
}

/*. 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.*/

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


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()
DibujarProgresion(4)
}