Discussion :

[FredericB]

Bonjour,

Je cherche à afficher une courbe d'un wave(PCM) à l'écran. J'ai trouvé des explications sur ce site. Jusque la pas de problème pour afficher mon traçé en entier sur un TImage avec une taille fixe.

Mais je voudrais réaliser un zoom sur ce tracé. Mon idée était de définir un nombre de pixel par seconde, par exemple (100px/sec), et d'afficher la courbe en entier sur mon TImage avec cette échelle. Donc j'aurais un TImage d'une certaine longeur avec mon traçé.
Puis pour déplacer mon traçé, je glisse simplement mon TImage en dehors de l'écran sur la gauche (donc monimage->Left devient négatif...)...
Mais je suis sur que ce n'est pas la bonne méthode.

Mais quand le fichier sonore est très long, alors mon TImage devient très grand, et mon application plante à cause de la mémoire (taille de mon TImage->Width=41000).

J'aurais voulu savoir comment faire un vrai zoom d'une courbe wave, et que l'on puisse la déplacer avec des scrollbars sans tout faire planter et sans faire ramer l'ordinateur....
Auriez-vous des idées à me proposer ?

Merci d'avance.
Fred

[henderson]

Salut !

Si ton wav est en mémoire, il suffit de travailler avec un Index.
Cet index représente la position, dans le tableau, du sample le plus à gauche
de l'écran et peut, par exemple, être donné par un ScrollBar->Position...
Rappel : dans un fichier wav, les samples commencent après le header.

A partir de là, tu peux te déplacer dans ce tableau, depuis l'index, sur
un nombre calculable de samples puisqu'il dépend de la largeur de la fenêtre
et du facteur zoom.
Si x est la position à écran, la position du sample dans le wav est :
- Pour un signal mono :
int pos = Index + (x * Zoom);
- Pour un signal stéréo :
int gauche = Index + (x * Zoom * 2);
int droite = Index + (x * Zoom * 2) + 1;
Celà suppose donc de vérifier dans la boucle si l'on est bien dans le tableau !

Les repères temporels demandent un peu plus de réflexion puisqu'il peut s'agir
d'une simple grille fixe (simple indication) ou d'une grille flottante
(indication réelle en fonction de la position de l'index dans le wav)...

Je ne sais pas quelle version BCB tu utilises, mais personnellement, avec ma
version BCB3 Pro, je dessine sur un bitmap que je recopie ensuite sur la form.
Ceci permet de supprimer les scintillements. Au cas où...

A plus !

[FredericB]

Salut,

for (int X=0; X < iDataSize; X+=16) {
pTmp->Picture->Bitmap->Canvas->LineTo((X*pImage->Width) / iDataSize , ((pData[X]+1)*pImage->Height)/2);
}
pImage->Picture->Bitmap->Canvas->Draw(0,0, pTmp->Picture->Graphic);

X+=16 pour sauter un petit peu des donnees pour aller un peu plus vite
iDataSize = Taille totale des donnees de mon wav
pTmp = TImage temporaire pour dessiner dessus la courbe
pImage = Mon TImage d'origine ou apparaitra ma courbe
pData = contient la valeur à afficher

Donc avec ce code, j'affiche la courbe au complet dans mon TImage.

Pourrais-tu stp m'expliquer comment utiliser ta fonction :

int pos = Index + (x * Zoom);

avec mon code ci dessus ? Désolé mais je ne saisi pas trop ......


Merci
Fred

[FredericB]

Merci beaucoup Henderson..