Temas

Hola a todos,
Aunque es un lenguaje obsoleto, todavía lo utilizo para hacer sencillas y vistosas aplicaciones.
No encuentro ni consigo hacer un código que mueva y haga zoom aleatoriamente sobre una imagen Bitmap. Sería perfecto lograr el efecto que se detalla en el siguiente link:
http://dunadigital.com/processing/2013/08/12/zoom-movimiento-y-distorsion-sobre-una-imagen-de-bitmap/
El código utilizado es el siguiente:

Código [Seleccionar] Expandir

    PImage img;

    int x = 150;

    int y = 75;

    int tam = 200;

     

    void setup() {

      size(300, 300);

      background(0);

    }

     

    void draw() {

      img = loadImage("yo.jpg");

      //los cuatro primeros datos están controlados por variables

      copy(img, x, y, tam, tam, 10, 10, width-20, height-20);

      x = x+int(random(-1, 1)*2);

      y = y+int(random(-1, 1)*2);

      tam = tam+int(random(-1, 1)*2);

    }

Parece sencillo. ¿Alguién puede reprogramarlo en lenguaje Flash Actionscript 2?
Estoy haciendo una aplicación para ordenar alfabéticamente un texto txt y como fondo me gustaría poner una imagen Bitmap con dicho efecto.
Un saludo.

Hola,
He hecho varios grupos de cursores para Windows 10 con su respectivo fichero de instalación con extensión INF.
Poniendo el cursor encima del fichero INF y clicando el botón derecho del ratón sale un menú contextual, clico en la opción "Instalar" y el grupo de cursores se instala sin ningún problema.
Pero lo que no consigo hacer es hacer un fichero con extensión BAT que instale todos los grupos de cursores de una sola vez, y así no tener que instalar uno a uno los cursores con el menu contextual.
El código del fichero INF es el siguiente:

install_jacc_01.inf

Código (DOS) [Seleccionar] Expandir

[Version]
signature="$CHICAGO$"

[DefaultInstall]
CopyFiles = Scheme.Cur, Scheme.Txt, Scheme.Png
AddReg    = Scheme.Reg

[DestinationDirs]
Scheme.Cur = 10,"%CUR_DIR%"
Scheme.Txt = 10,"%CUR_DIRB%"
Scheme.Png = 10,"%CUR_DIRB%"

[Scheme.Reg]
HKCU,"Control Panel\Cursors\Schemes","%SCHEME_NAME%",,"%10%\%CUR_DIR%\%arrow%,%10%\%CUR_DIR%\%helpsel%,%10%\

%CUR_DIR%\%working%,%10%\%CUR_DIR%\%busy%,%10%\%CUR_DIR%\%cross%,%10%\%CUR_DIR%\%text%,%10%\%CUR_DIR%\%pen%,

%10%\%CUR_DIR%\%unavail%,%10%\%CUR_DIR%\%ns%,%10%\%CUR_DIR%\%ew%,%10%\%CUR_DIR%\%nwse%,%10%\%CUR_DIR%\%nesw%,

%10%\%CUR_DIR%\%move%,%10%\%CUR_DIR%\%up%,%10%\%CUR_DIR%\%link%"

; -- Common Information

[Scheme.Cur]
jacc_01_arrow.cur
jacc_01_busy.ani
jacc_01_cross.cur
jacc_01_ew.cur
jacc_01_helpsel.cur
jacc_01_link.cur
jacc_01_move.cur
jacc_01_nesw.cur
jacc_01_ns.cur
jacc_01_nwse.cur
jacc_01_pen.cur
jacc_01_text.cur
jacc_01_unavail.cur
jacc_01_up.cur
jacc_01_working.ani
[Strings]
CUR_DIR       = "Cursors\j_alsina_cursors_collection\jacc_01"
CUR_DIRB      = "Cursors\j_alsina_cursors_collection"
SCHEME_NAME   = "jacc_01"
arrow         = "jacc_01_arrow.cur"
busy          = "jacc_01_busy.ani"
cross         = "jacc_01_cross.cur"
ew            = "jacc_01_ew.cur"
helpsel       = "jacc_01_helpsel.cur"
link          = "jacc_01_link.cur"
move          = "jacc_01_move.cur"
nesw          = "jacc_01_nesw.cur"
ns            = "jacc_01_ns.cur"
nwse          = "jacc_01_nwse.cur"
pen           = "jacc_01_pen.cur"
text          = "jacc_01_text.cur"
unavail       = "jacc_01_unavail.cur"
up            = "jacc_01_up.cur"
working       = "jacc_01_working.ani"
[Scheme.Txt]
_terms_of_use.txt
[Scheme.Png]
_j_alsina_cursors_collection_01.png

He probado hacer el fichero BAT con estos 2 códigos que en teoría deberían funcionar:

jacc_bat.bat

Código [Seleccionar] Expandir

%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 .\install_jacc_01.inf

jacc_bat.bat

Código [Seleccionar] Expandir

RUNDLL32.EXE SETUPAPI.DLL,InstallHinfSection DefaultInstall 132 .\install_jacc_01.inf

Pero cuando lo ejecuto, aparece lo siguiente (incluso si lo ejecuto como Administrador):
Error de copia
El programa de instalación no puede copiar el archivo jacc_01_arrow.cur.
La ubicación actual no es correcta, cámbiela o inserte "(Desconocido") en la unidad especificada.

Me gustaría instalar varios ficheros INF a la vez y que al finalizar, saliera un mensaje diciendo "Instalación finalizada" o algo parecido.
Todos los ficheros están ubicados juntos en la misma carpeta, no encuentro dónde está el error.
Espero vuestras respuestas para solucionar la cuestión.
Muchas gracias.