Los adjunto a este post, deberían aparecer abajo.
El 1ero es de extensión swf, necesitas Flash Player para verlo, pero no sé mucho cual, yo tengo instalado Macromedia Flash 5, que es viejo, así que más viejo difícil que te sirva, pero un player muy nuevo quizá tampoco. Probé abrirlo con Chrome y sólo se inició una descarga y me dice que es peligroso, pero cuando lo abro con el antivirus no me dice eso. Si vas a intentar abrir este, consigue un Flash Player lo más nuevo posible, sino prueba otros o prueba descargar Macromedia Flash 5.
El 2ndo es lo mismo pero de extensión exe, no necesita Flash Player, en Windows 7 me funciona, en uno más nuevo no sé. Al ser un exe, cuando lo abras el antivirus lo analizará. A mí me suele pasar que, la 1er vez que lo ejecuto, lo hace pero luego se cierra y aparece el mensaje del antivirus de que no hay problema, y se vuelve a abrir. Luego ya no aparecen mensajes de antivirus.
En fin, yo no sé cómo hacer virus ni esas cosas así que no tiene esas cosas, lo que sé es generar archivos infinitamente o generar unos con nombres normalmente imposibles, pero ahí no hago eso.
El archivo editable o el código del programa no te lo puedo dar porque lo hice en 2009, guardé todo en un rar y le puse un password que no recuerdo xD Algún día intentaré verlo.
Estoy haciendo un programa que genera todos los posibles dibujos (por ahora sólo en blanco y negro, o sea 2 colores), debo mejorarlo en varios aspectos. Te paso el código de ese:
actions for fotograma 1
PixelesdeLargo = 1;
function Variar () {
PixelaModificar = "ColordePixel"+Puntero;
ColordePixelaModificar = eval(PixelaModificar);
// ¿El pixel puede cambiar de color?
if (ColordePixelaModificar<1) {
// Sí, cambiarlo:
set (PixelaModificar, ColordePixelaModificar+1);
Col = new Color("Pixel"+Puntero);
Col.setRGB(parseInt(0, 16));
SumadePintados = SumadePintados+1;
// ¿El píxel está en el extremo derecho o abajo, donde no había en una hoja más chica?
if (Puntero/PixelesdeLargo == Math.floor(Puntero/PixelesdeLargo) or Puntero>MinPixelInferior) {
// Sí, actualizar SumadePintadosNuevos:
SumadePintadosNuevos = SumadePintadosNuevos+1;
}
// ¿El dibujo tiene píxeles donde no había en una hoja más chica...
// y son al menos (PixelesdeLargo) píxeles?
if (SumadePintadosNuevos>0 && SumadePintados>MinSumadePintados) {
DibujoListo = "Sí";
// Darme tiempo de ver el dibujo.
// Volver.
Puntero = MaxPosiciondePuntero;
gotoAndPlay (5);
} else {
// No, el dibujo es repetido, no mostrarlo y hacer otro:
DibujoListo = "No";
Puntero = MaxPosiciondePuntero;
}
} else {
// El pixel no puede cambiar de color, resetearlo:
set (PixelaModificar, 0);
Col = new Color("Pixel"+Puntero);
Col.setRGB(parseInt("FFFFFF", 16));
SumadePintados = SumadePintados-1;
// ¿El píxel está en el extremo derecho o abajo, donde no había en una hoja más chica?
if (Puntero/MaxPosiciondePuntero == Math.floor(Puntero/MaxPosiciondePuntero) or Puntero>MinPixelInferior) {
// Sí, actualizar SumadePintadosNuevos:
SumadePintadosNuevos = SumadePintadosNuevos-1;
}
// ¿Hay un pixel anterior?
if (Puntero>1) {
// Sí, apuntar a ese:
Puntero = Puntero-1;
// Continuar haciendo el dibujo:
DibujoListo = "No";
} else {
// No, aumentar tamaño de hoja y reiniciar.
DibujoListo = "Sí";
gotoAndPlay (2);
}
}
}
actions for fotograma 2
PixelesdeLargo = PixelesdeLargo+1;
Pixeles = 0;
DistanciaEntrePixeles = 384/PixelesdeLargo;
PosicionX = 64-DistanciaEntrePixeles;
MaxPosicionXdePixel = 64+DistanciaEntrePixeles*(PixelesDeLargo-1);
PosicionY = 0;
MaxPosiciondePuntero = PixelesdeLargo*PixelesdeLargo;
Puntero = MaxPosiciondePuntero;
// Píxeles pintados:
SumadePintados = 0;
MinSumadePintados = PixelesdeLargo-1;
MinPixelInferior = PixelesdeLargo*(PixelesdeLargo-1);
// Píxeles pintados que no estaban en hojas de menos píxeles:
SumadePintadosNuevos = 0;
// Agregar píxeles en blanco:
do {
Pixeles = Pixeles+1;
PosicionX = PosicionX+DistanciaEntrePixeles;
if (PosicionX>MaxPosicionXdePixel) {
PosicionX = 64;
PosicionY = PosicionY+DistanciaEntrePixeles;
}
attachMovie("mPixel", "Pixel"+Pixeles, Pixeles);
setProperty ("Pixel"+Pixeles, _x, PosicionX);
setProperty ("Pixel"+Pixeles, _y, PosicionY);
setProperty ("Pixel"+Pixeles, _width, DistanciaEntrePixeles);
setProperty ("Pixel"+Pixeles, _height, DistanciaEntrePixeles);
} while (Pixeles<MaxPosiciondePuntero);
actions for fotograma 3
Variar();
actions for fotograma 4
Variar();
if (DibujoListo == "No") {
gotoAndPlay (3);
}
actions for fotograma 5
gotoAndPlay (3); El resultado es parecido a este:
https://drive.google.com/file/d/17O2VcSDGRvdzashTC41hPVteh6cDRN_u/view?usp=sharing...pero cuando termina con una hoja de 3x3 pasa a una de 4x4 y así sucesivamente.
Si se te ocurre cómo mejorarlo (más allá de los colores) dime. Básicamente quisiera evitar que genere dibujos repetidos.
