Escena 1
   actions for fotograma 1
      Puntero = 4;
      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("iPixel"+Puntero);
            Col.setRGB(parseInt(0, 16));
            DibujoListo = "Sí";
            // Dar tiempo de ver el dibujo.
            // Volver.
            Puntero = 4;
            gotoAndPlay (4);
         } else {
            // No, resetearlo.
            set (PixelaModificar, 0);
            Col = new Color("iPixel"+Puntero);
            Col.setRGB(parseInt("FFFFFF", 16));
            // ¿Hay un pixel anterior?
            if (Puntero>1) {
               // Sí, apuntar a ese.
               Puntero = Puntero-1;
               // Continuar haciendo el dibujo.
               DibujoListo = "No";
            } else {
               // Fin.
               DibujoListo = "Sí";
               gotoAndStop (51);
            }
         }
      }
   actions for fotograma 2
      Variar();
   actions for fotograma 3
      Variar();
      if (DibujoListo == "No") {
         gotoAndPlay (2);
      }
   actions for fotograma 50
      gotoAndPlay (2);

Escena 1
   actions for fotograma 1
      MaxDecimales = 0;
      N1 = 0;
   actions for fotograma 2
      Decimales = 0;
   actions for fotograma 3
      Nombre = "N"+Decimales;
      // Se le suma 1 al número porque sumarle decimales da errores.
      N = (eval(Nombre)+1);
      // Guardar el valor en la lista correspondiente.
      set (Nombre, N);
      // El valor se convierte a decimales como debe ser.
      Show = N/Math.pow(10, Decimales);
      if (Decimales>0) {
         LargoMinimodeDiferencia = Decimales+2;
      } else {
         LargoMinimodeDiferencia = 1;
      }
      if (String(N-Show).length>=LargoMinimodeDiferencia) {
         // El valor no es repetido, se muestra.
         trace ("Se generó "+Nombre+": "+Show);
      }
   actions for fotograma 4
      if (Decimales<MaxDecimales) {
         Decimales = Decimales+1;
         gotoAndPlay (3);
      } else {
         // Se creará una nueva lista con decimales más pequeños.
         MaxDecimales = MaxDecimales+1;
         set ("N"+MaxDecimales, 0);
         // trace ("Se creó N"+MaxDecimales+": "+MaxDecimales);
         gotoAndPlay (2);
      }

      if (Decimales>0) {
         LargoMinimodeDiferencia = Decimales+2;
      } else {
         LargoMinimodeDiferencia = 1;
      }
      if (String(N-Show).length>=LargoMinimodeDiferencia) {
         // El valor no es repetido, se muestra.

function InsertarNodo () {
	Imagenes = Imagenes+1;
	Nodos = Nodos+1;
	Grafo.attachMovie("mNodo", "Nodo"+Nodos, Imagenes);
	// Especificar la situación que representa:
	set ("Grafo.Nodo"+Nodos+".EnHP", EnHP);
	// Insertar flecha:
	Imagenes = Imagenes+1;
	Grafo.attachMovie("mFlecha", "Flecha"+Nodos, Imagenes);
	// Especificar el sitio donde se insertan:
	setProperty ("Grafo.Nodo"+Nodos, _y, PosicionY+33);
	setProperty ("Grafo.Flecha"+Nodos, _x, PosicionX);
	setProperty ("Grafo.Flecha"+Nodos, _y, PosicionY+6.5);
	Hijos = Hijos+1;
	if ( Hijos == 1 ) {
		setProperty ("Grafo.Nodo"+Nodos, _x, PosicionX);
	} else {
		Hijo = 0;
		Resta = 49.5*(Hijos-1);
		do {
			Hijo = Hijo+1;
			Posicion = Hijo*33-Resta;
			setProperty ("Grafo.Nodo"+(Nodos-Hijos+Hijo), _x, Posicion);
			// Rotación y tamaño de flecha.
	 		DistanciaXPadreHijo = Math.abs(Posicion);
			setProperty ("Grafo.Flecha"+(Nodos-Hijos+Hijo), _height, Math.sqrt(Math.pow(DistanciaXPadreHijo, 2)+20*20));
			Rotacion = 180/Math.PI*Math.atan (DistanciaXPadreHijo/20*-1);
			if ( Posicion<0 ) {
				Rotacion = Rotacion*-1;
			}
			setProperty ("Grafo.Flecha"+(Nodos-Hijos+Hijo), _rotation, Rotacion);
		} while ( Hijo < Hijos );
	}
}