Jonglage en notation siteswap

Soyez le premier à donner votre avis sur cette source.

Vue 5 042 fois - Téléchargée 307 fois

Description

Il s'agit d'un programme qui génère une animation d'un jongleur d'après la notation siteswap* de la figure.
Il gère les notations synchrones et asynchrones avec les notations les plus couramment utilisées ( 53 (6,4) (4x,4x) ). Une echelle de temps variable permet de ralentir le mouvement.

Pour ceux qui ne connaissent pas cette notation, cela leur permettra de se faire une idée de la richesse offerte par cette notation, et pour les jongleurs confirmés, c'est un outil pour trouver de nouvelles figures.

Conclusion :


Quelques modifications permettraient de gérer le multiplex ou d'ajouter un générateur siteswap.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
3813
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
2 août 2020
32
ps : j'ai oublier de preciser une chose :

Dans l'unité Unit1 du Déclare dans les Uses l'unité QT mais celle ci provoque une erreur à la compilation il suffit de la retirer

@+
Cirec
Messages postés
19
Date d'inscription
dimanche 9 juin 2002
Statut
Membre
Dernière intervention
4 février 2006

En fait pour la 2° form c'est parce qu'au départ j'avais fait un composant jonglage, puis j'ai trouvé ca inutile, donc j'ai réintegré le composant dans une 2° form par manque de temps, mais une simple unit aurait suffit. Sinon merci des conseils ;-)
Messages postés
3813
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
2 août 2020
32
Salut,

en premier lieu, l'animation est réussie bravo mais si tu ajoutes un DoubleBuffered := True; dans le OnCreate de la Form1 elle sera encore plus fluide.
Maintenant j'ai pas bien compris pourquoi tu utilises une deuxième Form que tu n'affiches jamais (me semble t'il) une simple unité ferait l'affaire.
En suite tu utilises une panoplie de If Then à la suite dans certain cas tu pourrais utiliser un Case Of à la place ce qui améliorera le traitement.
Et dans ce genre de code :
If x = 1 Then
Begin
B := 5;
End; par Exemple
Le Begin End; n'est pas utile.
Mais bon ce sont des bricoles.

Par contre il est indispensable de nommer les composants pour faciliter la lecture du code pour nous et pour toi aussi, si tu dois reprendre ton code dans quelques mois il sera plus simple pour toi de rentrer à nouveau dedans.

Pour l'instant je ne met pas de note mais après quelques petites modifications ça mériterait bien un 10/10

Bonne Prog.
@+
Cirec

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.