Accueil > > > SIMULATION D'UNE ROULETTE QUI TOURNE
SIMULATION D'UNE ROULETTE QUI TOURNE
Information sur la source
Description
Ce tout petit code simule donc un roulette qui tourne et qui finis par s'arrêter.J'ai fait ça pour m'amuser, mais je trouve ça plutôt réussis et ça peux toujours donner des idées a quelqu'un, voir même l'inspirer.Le code a bien évoluer depuis, on pourra bientot jouer.
Source
- alias roulette {
- ;vitesse initial, qui durera un certain temps
- hadd -m roulette angle 12
- ;si l'on clique sur la fenetre, cela doit relancer le code sans fermer la fenetre
- ;et sans remettre a zero la position, de la roulette (effet réel)
- if (!$1) {
- ;tout ceci n'est que l'initialisation si la fenetre n'est pas ouverte
- window -c @roulette
- window -c @rouletteb
- window -pdof @roulette -1 -1 776 350
- window -phdf @rouletteb -1 -1 350 350
- drawpic @rouletteb 0 0 $qt($scriptdirroulette.png)
- drawpic @roulette 351 0 $qt($scriptdirtapis.gif)
- }
- ;Ce double timer est utilisé pour pouvoir crée un timer a delai aléatoire
- ;ce timer, qui se lance qu'une seul fois au bon d'un temps aléatoirement
- ;permet de commencer a décrémenter la vitesse de rotation
- ;-h permet d'executer immediatement le timer
- .timer -h 1 0 .timer -h 1 $!r(900,1500) hadd -m roulette candec 1
- .timer -h 1 0 roll
- }
-
- alias -l roll {
- ;si l'on doit décrémenter, alors on le fait : encore un double timer qui lance un seul timer aléatoire
- if ($hget(roulette,candec)) .timer -mo 1 10 .timerollb $!+ $!ticks -om 1 $!r(900,2300) hdec -m roulette angle $!gettok(0.1:0.05:0.025:0.0125,$r(1,4),58)
- ;ici, si la roulette ne tourne plus, on envoie un signal avec le résultat de $rollconv, dont le param est le dernier angle parcouru
- ;on coupe les derniers timer qui pourrait encore décrémenter la vitesse, et on stop la routine pour pas qu'elle se relance
- if ($hget(roulette,angle) <= 0) {
- .signal -n roulette $rollconv($hget(roulette,roll))
- .timerollb* off
- return
- }
- ;on incrémente l'angle de rotation total avec l'angle actuel, c'est ce qui permet de donner l'effet de rotation continu a la roulette
- hinc -m roulette roll $hget(roulette,angle)
- ;ici, on applique betement le buffer, le buffer est une fenetre caché qui contient l'image de base, on la copie dans notre fenetre
- drawcopy -n @rouletteb 0 0 350 350 @roulette 0 0
- ;et ici, on fait tourné l'image de base de l'angle total parcouru
- drawrot -nmcb @roulette 0 $hget(roulette,roll) 0 0 350 350
- ;ici on dessine le tapis de la roulette, qui sera surement utilisé plus tard
- drawpic -n @roulette 351 0 $qt($scriptdirtapis.gif)
- ;on dessine le délimiteur, celui qui indique le numéro tombé
- drawline -n @roulette 7 1 40 40 70 70
- ;on rafraichi la fenetre
- drawdot @roulette
- ;on relance l'alias le plus vite possible
- .timerollc -ho 1 0 roll
- }
-
- menu @roulette {
- ;si on clique, il ne faut pas reseté l'angle total parcouru
- sclick: unloroll 1 | roulette 1
- }
-
- alias unloroll {
- ;si $1 n'existe pas, alors on doit tout supprimé/fermé
- ;sinon, on doit gardé l'angle total parcouru
- if (!$1) { window -c @rouletteb | if ($hget(roulette)) hfree roulette }
- .timeroll* off
- if ($hget(roulette,candec)) hdel roulette candec
- }
- on *:close:@roulette:unloroll
-
- ;et la modif principale
- alias rollconv {
- ;stocker l'ordre des numéros
- var %table 0 32 15 19 4 21 2 25 17 34 6 27 13 36 11 30 8 23 10 5 24 16 33 1 20 14 31 9 22 18 29 7 28 12 35 3 26
-
- ;les calculs
- var %i = 315 - $calc($1 % 360)
- if (%i < 0) var %i = 360 + %i
- echo -a $!1 : $1
- echo -a $(%i,0) : %i
- echo -a $!replace : $replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1)
- echo -a $!gettok : $gettok(%table,$replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1),32)
- return $gettok(%table,$replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1),32)
- }
-
- on *:signal:roulette:renwin @roulette @roulette $1 | set %aléaroll %aléaroll $1
alias roulette {
;vitesse initial, qui durera un certain temps
hadd -m roulette angle 12
;si l'on clique sur la fenetre, cela doit relancer le code sans fermer la fenetre
;et sans remettre a zero la position, de la roulette (effet réel)
if (!$1) {
;tout ceci n'est que l'initialisation si la fenetre n'est pas ouverte
window -c @roulette
window -c @rouletteb
window -pdof @roulette -1 -1 776 350
window -phdf @rouletteb -1 -1 350 350
drawpic @rouletteb 0 0 $qt($scriptdirroulette.png)
drawpic @roulette 351 0 $qt($scriptdirtapis.gif)
}
;Ce double timer est utilisé pour pouvoir crée un timer a delai aléatoire
;ce timer, qui se lance qu'une seul fois au bon d'un temps aléatoirement
;permet de commencer a décrémenter la vitesse de rotation
;-h permet d'executer immediatement le timer
.timer -h 1 0 .timer -h 1 $!r(900,1500) hadd -m roulette candec 1
.timer -h 1 0 roll
}
alias -l roll {
;si l'on doit décrémenter, alors on le fait : encore un double timer qui lance un seul timer aléatoire
if ($hget(roulette,candec)) .timer -mo 1 10 .timerollb $!+ $!ticks -om 1 $!r(900,2300) hdec -m roulette angle $!gettok(0.1:0.05:0.025:0.0125,$r(1,4),58)
;ici, si la roulette ne tourne plus, on envoie un signal avec le résultat de $rollconv, dont le param est le dernier angle parcouru
;on coupe les derniers timer qui pourrait encore décrémenter la vitesse, et on stop la routine pour pas qu'elle se relance
if ($hget(roulette,angle) <= 0) {
.signal -n roulette $rollconv($hget(roulette,roll))
.timerollb* off
return
}
;on incrémente l'angle de rotation total avec l'angle actuel, c'est ce qui permet de donner l'effet de rotation continu a la roulette
hinc -m roulette roll $hget(roulette,angle)
;ici, on applique betement le buffer, le buffer est une fenetre caché qui contient l'image de base, on la copie dans notre fenetre
drawcopy -n @rouletteb 0 0 350 350 @roulette 0 0
;et ici, on fait tourné l'image de base de l'angle total parcouru
drawrot -nmcb @roulette 0 $hget(roulette,roll) 0 0 350 350
;ici on dessine le tapis de la roulette, qui sera surement utilisé plus tard
drawpic -n @roulette 351 0 $qt($scriptdirtapis.gif)
;on dessine le délimiteur, celui qui indique le numéro tombé
drawline -n @roulette 7 1 40 40 70 70
;on rafraichi la fenetre
drawdot @roulette
;on relance l'alias le plus vite possible
.timerollc -ho 1 0 roll
}
menu @roulette {
;si on clique, il ne faut pas reseté l'angle total parcouru
sclick: unloroll 1 | roulette 1
}
alias unloroll {
;si $1 n'existe pas, alors on doit tout supprimé/fermé
;sinon, on doit gardé l'angle total parcouru
if (!$1) { window -c @rouletteb | if ($hget(roulette)) hfree roulette }
.timeroll* off
if ($hget(roulette,candec)) hdel roulette candec
}
on *:close:@roulette:unloroll
;et la modif principale
alias rollconv {
;stocker l'ordre des numéros
var %table 0 32 15 19 4 21 2 25 17 34 6 27 13 36 11 30 8 23 10 5 24 16 33 1 20 14 31 9 22 18 29 7 28 12 35 3 26
;les calculs
var %i = 315 - $calc($1 % 360)
if (%i < 0) var %i = 360 + %i
echo -a $!1 : $1
echo -a $(%i,0) : %i
echo -a $!replace : $replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1)
echo -a $!gettok : $gettok(%table,$replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1),32)
return $gettok(%table,$replace($floor($calc( ( ( %i + 4.864865) / 9.72973) + 1) ),38,1),32)
}
on *:signal:roulette:renwin @roulette @roulette $1 | set %aléaroll %aléaroll $1
Conclusion
Le code utilise donc /drawrot, cette command a été amélioré récement afin d'aller relativement plus vite, ayez la version 6.32 minimum afin d'avoir un résultat correct.Téléchargez le Zip pour avoir les images, mettez les fichier dans un même repertoire et loadez le .mrc. Lancer l'animation avec /roulette, vous pouvez cliquer dans la fenetre pour relancer l'animation sans remettre la position de la roulette a zero. Merci beaucoup a versus pour son aide.
Historique
- 01 août 2008 21:00:04 :
- Mauvaise version du code et j'ai aussi amélioré le code...
- 08 août 2008 03:36:08 :
- Refonte du code qui n'étais en fait pas vraiment juste, l'aléatoire a été entierement refait.un algo permettant de récupéré le nombre sortis a été fait.La qualité graphique est également meilleur.Le code est commenté pour ceux que sa interesse.
- 09 août 2008 19:38:42 :
- deux trois bricoles
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Roulette [ par Princedelavil ]
Bonjour a tous :) Voila j'ai chercher une remote pour faire une roulette (russe): on *:text:*: { if $1 == !roulette { say bla bla bla say bl
Petit soucis de drawrot [ par KiNdErMaXi ]
Déja, imaginons un petit bonhomme dessiné en /drawpicIl a subitement envie de faire un salto ! Je fais donc : /drawrot -m @l 
|
Derniers Blogs
TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLETECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice
Speakers: Julien Marechal, Gautier Confiant, Sébastien MEYER La session débute par le positionnement de la solution System Center par rapport aux concepts d'organisation ITIL. Le portail du catalogue de se...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOURTECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice
Après une première journée dédiée aux développeurs, cette seconde journée est dédiée au monde des entreprises et de ses applications. Ainsi, cette pleinière est dédiée à faire un 360 de l'évolution des applications Business aux demandes ac...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVéTECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice
Speaker : Guillaume Rochette Cette session est dédiée à fournir le retour sur la mise en place d'un cloud privé (IaaS) par Osiatis pour son compte ou celui de ses clients. Ce projet s'est déroulé sur 4 mois et a permis de faire évoluer...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYSTECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice
Speakers : Lionel Limozin et Alain Marty La session commence par une découverte de SharePoint à travers la mise en place d'un environnement SharePoint pour la gestion des Sessions animées par BeWise. Le besoin est très ba...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit
Je viens de publier la version 3.0 de Perspective pour Silverlight, qui regroupe un portage sous Silverlight 5.0 des fonctionnalités de Perspective 2.0, le framework 3D de haut-niveau introduit récemment et de nouveaux exemples de code. En voici la li...
Cliquez pour lire la suite de l'article par odewit
Forum
RE : AIDERE : AIDE par Nico26000
Cliquez pour lire la suite par Nico26000 RE : AIDERE : AIDE par WorldDMT
Cliquez pour lire la suite par WorldDMT AIDEAIDE par Nico26000
Cliquez pour lire la suite par Nico26000
Logiciels
Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|