Base de reglas con reglas para rellenar, fill, superficies cerradas, pueden funcionar de manera aleatoria.
//////////////////////////////////////////////////////////////////////////////
Set FllBox =
[["·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······························",
"·······························",
"·······························",
"···············+···············" ]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Superficie cerrada con una K mayuscula.",FllBox);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set FllupK =
[["··oooooooo·······ooooooooo·····",
"··o······o······o·······o······",
"··o······o·····o·······o·······",
"··o······o····o·······o········",
"··o······o···o·······o·········",
"··o······o··o·······o··········",
"··o······ooo·······o···········",
"··o·················o··········",
"··o··················o·········",
"··o···················o········",
"··o··········ooo·······o·······",
"··o········oo···o·······o······",
"··o······oo······o·······o·····",
"··o······o········o·······o····",
"··o······o·········o···+···o···",
"··o······o··········o·······o··",
"··oooooooo···········ooooooooo·" ]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Superficie cerrada con una K mayuscula.",FllupK);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set FllRb1 = RulGet(
"+· :- ++ ;" + // 01) Relleno derecha
"·+ :- ++ ;" + // 02) Relleno izquierda
"+ :- + ," + // 03) Relleno abajo
"· :- + ;" +
"· :- + ," + // 04) Relleno arriba
"+ :- + ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para rellenar superficies cerradas mediante reglas de
reescritura de areas rectangulares de caracteres.",
FllRb1);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : fll.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Base de reglas con reglas para rellenar, fill, superficies
// cerradas, pueden funcionar de manera aleatoria.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set FllBox =
[["·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······o·······o·······o·······",
"·······························",
"·······························",
"·······························",
"···············+···············" ]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Superficie cerrada con una K mayuscula.",FllBox);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set FllupK =
[["··oooooooo·······ooooooooo·····",
"··o······o······o·······o······",
"··o······o·····o·······o·······",
"··o······o····o·······o········",
"··o······o···o·······o·········",
"··o······o··o·······o··········",
"··o······ooo·······o···········",
"··o·················o··········",
"··o··················o·········",
"··o···················o········",
"··o··········ooo·······o·······",
"··o········oo···o·······o······",
"··o······oo······o·······o·····",
"··o······o········o·······o····",
"··o······o·········o···+···o···",
"··o······o··········o·······o··",
"··oooooooo···········ooooooooo·" ]];
//////////////////////////////////////////////////////////////////////////////
PutDescription("Superficie cerrada con una K mayuscula.",FllupK);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set FllRb1 = RulGet(
"+· :- ++ ;" + // 01) Relleno derecha
"·+ :- ++ ;" + // 02) Relleno izquierda
"+ :- + ," + // 03) Relleno abajo
"· :- + ;" +
"· :- + ," + // 04) Relleno arriba
"+ :- + ;");
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para rellenar superficies cerradas mediante reglas de
reescritura de areas rectangulares de caracteres.",
FllRb1);
//////////////////////////////////////////////////////////////////////////////
ChRules.Iterative programa de aplicacion iterativa de reglas de areas de caracteres
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio