Clase 5 Entregable-1

/* *******************Iniciar el recorrido*****************   */

procedure IrAlBorde(dir) {
    while (puedeMover(dir))
    {Mover(dir)}
}

procedure CabezalALaPrimeraColumna(){
    IrAlBorde(Oeste)
}

procedure CabezalALaPrimeraFila(){
    IrAlBorde(Sur)
}

procedure CabezalALaPrimeraCelda(){
    CabezalALaPrimeraColumna()
    CabezalALaPrimeraFila()
}
/* ************Procesar Elemento Actual*************  */

procedure SacarN(color, cant){
    repeatWith indice in 1..nroBolitas(color)
    {Sacar(color)}
}

procedure SacarTodas(color){
    SacarN(color, nroBolitas(color))
}


procedure PonerX(col, cantidad){
    repeatWith i in 1..cantidad
    {Poner(col)}
}

/*Proposito: establece el numero de bolitas de la
celda actual sin importar las que habia*/

procedure Establecer(col, cantidad) {
    SacarTodas(col)
    PonerX(col, cantidad)
}

 /*Proposito: establece el numero de bolitas de dos colores
al mismo tiempo.*/
procedure EstablecerDos(col1, cantidadCol1, col2, cantidadCol2){
    Establecer(col1, cantidadCol1)
    Establecer(col2, cantidadCol2)
}

procedure IntercambiarColores(col2, col1) {
    EstablecerDos(col1, nroBolitas(col2), col2, nroBolitas(col1))
}

procedure InvertirCelda() {
    IntercambiarColores( Azul, Rojo)
    IntercambiarColores( Verde, Negro)
}



procedure Main(){
    InvertirCelda()
}