Base de reglas y area para crecimiento cuadriaculando un area. Esta base de reglas es constructiva, sus reglas realizan un crecimiento aleatorio cuadriculando su area de aplicacion, termina cuando todo el area esta cuadriculada.
//////////////////////////////////////////////////////////////////////////////
Set CuaAre = AreaBuild(
[["···············",
"···············",
"···············",
"···············",
"····+··········",
"···············",
"···············",
"···············",
"···············"]]);
//////////////////////////////////////////////////////////////////////////////
PutDescription("Area para crecimiento cuadriaculando un area.", CuaAre);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CuaRul = SetOfSet(
RuleBuild([["+· => +-"]]), // Brazo hacia la derecha
RuleBuild([["·+ => -+"]]), // Brazo hacia la izquierda
RuleBuild([["+ => +",
"· |"]]), // Brazo hacia abajo
RuleBuild([["· => |",
"+ +"]]), // Brazo hacia arriba
RuleBuild([["-· => -+"]]), // Remate hacia la derecha
RuleBuild([["·- => +-"]]), // Remate hacia la izquierda
RuleBuild([["| => |",
"· +"]]), // Remate hacia abajo
RuleBuild([["· => +",
"| |"]])); // Remate hacia arriba
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para crecimiento cuadriaculando un area.",
CuaRul);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// FILE : cua.tol
// AUTHOR : http://www.asolver.com
// PURPOSE : Base de reglas y area para crecimiento cuadriaculando un area.
// Esta base de reglas es constructiva, sus reglas realizan un crecimiento
// aleatorio cuadriculando su area de aplicacion,
// termina cuando todo el area esta cuadriculada.
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
// CONSTANTS
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CuaAre = AreaBuild(
[["···············",
"···············",
"···············",
"···············",
"····+··········",
"···············",
"···············",
"···············",
"···············"]]);
//////////////////////////////////////////////////////////////////////////////
PutDescription("Area para crecimiento cuadriaculando un area.", CuaAre);
//////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////
Set CuaRul = SetOfSet(
RuleBuild([["+· => +-"]]), // Brazo hacia la derecha
RuleBuild([["·+ => -+"]]), // Brazo hacia la izquierda
RuleBuild([["+ => +",
"· |"]]), // Brazo hacia abajo
RuleBuild([["· => |",
"+ +"]]), // Brazo hacia arriba
RuleBuild([["-· => -+"]]), // Remate hacia la derecha
RuleBuild([["·- => +-"]]), // Remate hacia la izquierda
RuleBuild([["| => |",
"· +"]]), // Remate hacia abajo
RuleBuild([["· => +",
"| |"]])); // Remate hacia arriba
//////////////////////////////////////////////////////////////////////////////
PutDescription(
"Base de reglas para crecimiento cuadriaculando un area.",
CuaRul);
//////////////////////////////////////////////////////////////////////////////
ChRules.RandRecursive programa de aplicacion de reglas de rectangulos de caracteres
2015 asolver.com | Aviso legal | XHTML | Δ Θ Ξ | Creative Commons | Mapa y funciones del sitio