RandomRotaPic

[Gianluigi]

Allego il progetto RandomRotaPic basato su un algoritmo di Fabien Bodard per far girare le immagini tipo slot machine.
Per variare la rotazione basta agire sul valore di $ipos in timer (nell'algoritmo originale era -=2).
Funzionamento: Agire sul pulsante Inserisci immagini e caricare delle immagini qualsiasi.
Agendo sul pulsante Play le immagini inizieranno a ruotare, agendo nuovamente sul pulsante si mostrerà un'immagine a caso fra quelle caricate.
Ricordatevi che il gioco d'azzardo può causare dipendenza 

[vuott]

Bravo, molto interessante.

[Gianluigi]

Fabien Bodard dice che l'algoritmo di Scale() non funziona correttamente vedi qui, ma a me pare che funzioni  , voi cosa ne dite?
Ho apportato delle modifiche suggerite da Fabien ma ho lasciato la routine Scale() e ho adattato il codice.

[kicco]

...ma a me pare che funzioni...

...anche a me sembra che tutto funzioni correttamente, resize compreso!
 

[Gianluigi]

...anche a me sembra che tutto funzioni correttamente, resize compreso!

Ti ringrazio molto per la prova, per maggiore comprensione allego quanto aveva inviato Fabien Bodard.
Ammetto che l'algoritmo che scala l'immagine di Bodard pur malfunzionate sembra decisamente meno elementare, rispetto al mio.