Animation lecteur de musique

Une animation avec un histogramme qui bouge, comme sur les lecteurs de musique...

J'ai fait ça y'a super longtemps, donc c'est surement optimisable...

Code:

8->G:8->H:8->I
8->J:8->K
ClrHome
Repeat getKey
randInt(1,2->A
randInt(1,2->B
randInt(1,2->C
randInt(1,2->D
randInt(1,2->E
If G=8:2->A
If H=8:2->B
If I=8:2->C
If J=8:2->D
If K=8:2->E
If G=1:1->A
If H=1:1->B
If I=1:1->C
If J=1:1->D
If K=1:1->E
G+(A=1)-(A=2->G
H+(B=1)-(B=2->H
I+(C=1)-(C=2->C
J+(D=1)-(D=2->D
K+(E=1)-(E=2->K
If A=1:Output(G,2," 
If A=2:Output(G,2,"XX
If B=1:Output(H,5," 
If B=2:Output(H,5,"XX
If C=1:Output(I,8," 
If C=2:Output(I,8,"XX
If D=1:Output(J,11," 
If D=2:Output(J,11,"XX
If E=1:Output(K,14," 
If E=2:Output(K,14,"XX
End

Tu branche des écouteurs et ta le dernier Ipod

Ah oui, il serait peut-être bien de transférer ici un tutoriel pour écouter des sons sur la TI. Il en existe déjà, donc si vous en avez un de qualité sous la main, postez-le dans la section article (en veillant à citer l'auteur, bien sûr).

Bonne idée. Je rajoute sur ma To-do list.

Mais ce programme n'est pas "couplable" à un programme de musique...

Oui, oui, j'entendais "Tout-82" par "ici", pas ce topic-ci.

persalteas a écrit:Bonne idée. Je rajoute sur ma To-do list.

Mais ce programme n'est pas "couplable" à un programme de musique...

Et pourquoi pas ?
Le programme calculerait pour chaque seconde la valeures binaire de la "note" et suivant cette valleures, mettrait X ou XX, ect

Il est possible de faire de la musique et d'exécuter l'animation en même temps, oui, mais ce que je veux dire, c'est qu'ils seront sans rapport.

Le son produit par une TI se rapproche plus du format MIDI que du Wav ou du Mp3, donc il est impossible de faire des variations de volume dessus, et encore moins des variations de volume selon la hauteur du son (égaliseur). or, l'animation représente typiquement un égaliseur

ha d'accord