quand tu veux zapinou , je sais bien que la nouvelle caledonie
Même si on additionne (ou soustrait) une valeur, ça fait juste changer la courbe de hauteur, le son n'est en rien modifié, je pensais ça normal moiDobro a écrit :olivinou mon choux
je suis d'accord !!, d'ailleur j'ai bien la valeur 0 (apres avoir viré les peek)
donc je poke du 0 !!! et alors ? ben je suis d'accord avec toi
on ne devrai pas entendre un pet de mouche qui sort du haut parleur
(chez moi du haut hurleur !! (300 watt) ) (mais pas toujours a fond hein !!?)
c'est loin et tout et tout ! , mais debout que diable !!
et reste reveillé avec nous !! la vraie heure c'est nous qui l'avons !
alors oublie cette fausse heure qui vous est imposé par ces sauvages
d'australien !!!
lorqu'il fait nuit chez toi il fait jour ici !! en fait chez toi il fait pas nuit
c'est juste une illusion , une sensation , ..... la! la! la! la!
bon je retourne picoler moi !! hips .....
, mais je suppose que ce doit être à cause de la même chose. Quand aux pets de mouches, je peux pas entendre, faut que je demande mais ça doit être "juste" 80ou 100Watt par enceinte avec un ampli qui ne peux pas suivre (60watt) donc je ne peux pas les entendre et là........je peux plus aider (surtout que pour pas géner, je suis en ce moment sur un casque à 2€ 
. il y a un moyen d'entendre un pet de mouche sur un ampli marantz de la guerre, une carte son de la même époque et un casque à 2€ ?????? le son n'est en rien modifié, je pensais ça normal moi Sad ,
edit
J'avais pas vu ton edit:
Quand on fait *pt = *hsound +44, c'est pour ce placer au début des data du son, car les 44 premiers octet c'est le header
Ca ne change rien à l'écoute du son mais on voit bien que ça décale le son vers le haut à l'affichage. L'oreille ne perçoit que les vibrations, donc si tu ajoute une constante (la valeur 45) à ton signal, ça ne s'entend pas. Mais si Dobro regarde la membrane de son haut-parleur 300 watts à la loupe, il pourra constater qu'elle n'occupe pas (en moyenne) la même position avec sv = Round(PeekW(*pt) + 45,0) que avec sv = Round(PeekW(*pt),0). En tout cas, dans la théorie, et si sa chaine à une qualité parfaite (en vérité, tous les équipements éliminent les sons dont la fréquence est trop haute ou trop basse pour être audible. Une valeur constante correspond à une fréquence de 0 hertz, ce qui est vraiment trés trés bas !!!)Oliv a écrit :sv = Round(PeekW(*pt) + 45,0) ne change rien non plus sur le son
il doit y avoir un blème dans ton code modifié (pas celui qui est sur le forum). Chez moi, si je fais PokeW(*pt,0) (ou si je comment le PeekW, comme tu le suggère), j'obtiens bien un beau silence spectral (et doré)... à condition de travailler sur un son 16 bits !!!!!!
Code : Tout sélectionner
sv=sin(compt*50/1024)*100 Code : Tout sélectionner
#dobro=1
#Police=1
#Sprite=1
; ***********************************
Resultat = InitSprite()
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold )
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran
WindowID = OpenWindow(1, 0, 0, EcranX, EcranY, #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered , "hello")
WindowID = WindowID(1)
Result = OpenWindowedScreen(WindowID,0,0, EcranX, EcranY, 1, 0,0)
; creation d'un Sprite
CreateSprite(#Sprite, 50, 50) ; cree un sprite
StartDrawing(SpriteOutput(#Sprite) ) ; on dessine dedans
Box(0, 0, 50, 40,RGB(255,0,255) ) ; un carre violet
StopDrawing()
For spr=1 To 5
CreateSprite(spr, 50, 50) ; cree un sprite
StartDrawing(SpriteOutput(spr) ) ; on dessine dedans
Box(0, 0, 50, 40,RGB(255,0,255) ) ; un carre violet
StopDrawing()
Next spr
Resultat = InitMouse()
Repeat
ExamineMouse()
Event=WaitWindowEvent()
StartDrawing( ScreenOutput())
;Plot(WindowMouseX(), WindowMouseY(), RGB(255,255,255))
compt+1
y=Cos(compt*50/1024)*100 ; <------ ICI FORMULE A TESTER
;sin*compt*phase/nmbr de point *amplitude
Box(compt, y+200,2, 2 ,RGB(255,255,255))
StopDrawing()
FlipBuffers():; affiche l'ecran
If MouseButton(2)
End
EndIf
;FlipBuffers():; affiche l'ecran
;ClearScreen(0, 0, 0) :;efface l'ecran
Until Event=#PB_Event_CloseWindow Code : Tout sélectionner
; FILTRE SINUS - SINUS FILTER
; By Dobro
;
; You can use this filter as an exemple to create new one's
;
; Vous pouvez utiliser ce filtre comme exemple pour en créer de nouveaux
;
; A filter need 2 or 3 procedures to be operational
; - the first one will add your controls (gadgets) in the filter window when it's open. If you have no need of control, you can forget it.
; - the second one will be called by the event loop of the filter window (this exemple has not this one)
; - the third must apply your effect on the sound
;
; Un filtre nécessite 2 à 3 procédures pour être opérationnel
; - la première ajoutera vos gadgets dans la fenêtre de filtre quand elle sera ouverte. Si votre filtre ne nécessite aucun gadget, vous pouvez l'oublier.
; - la deuxième sera appellée par la boucle des évènement de cette fenêtre (cet exemple n'en comporte pas)
; - la troisième doit appliquer votre effet sur le son
Procedure TremCreateButtons ()
#ComboGadget=1 ; gadgets can have any number from 1 to 399.
; les gadgets peuvent avoir un numéro compris entre 1 et 399.
values$="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20"
ComboBoxGadget(#ComboGadget,100,23,70,250)
FontID1 = LoadFont(1, "Arial", 16, #PB_Font_Bold)
SetGadgetFont(#ComboGadget, FontID1)
For lcg=1 To 20
AddGadgetItem(#ComboGadget,-1,StringField(values$, lcg, ","))
Next
SetGadgetState(#ComboGadget,5)
PBase=40 ; this filter gadget is 40 points high. You can use more !
; Le gadget de ce filtre occupe un espace de 40 points de haut. Vous pouvez faire plus grand !
ProcedureReturn PBase
EndProcedure
Procedure TremCompute (*hsound) ; *hsound is the adress of the WAVE sound on wich you will apply your effect
; *hsound est l'adresse du son WAVE sur lequel vous allez appliquer votre effet
CValues$="1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20"
vol.f = ValF(StringField(CValues$, GetGadgetState(#ComboGadget)+1, ","))
wBitsPerSample.w=PeekW(*hsound+34)
*pt=*hsound+44
lim = *hsound+44+PeekL(*hsound+40)
While *pt<=lim
Select wBitsPerSample
Case 8
sv1 = PeekB(*pt)
If sv1<0
sv1+256 ; Convert signed to unsigned
EndIf
sv1-128 ; 8bits wave signal is from 0 to 256 with a midpoint at 128
; ici Tremolo by dobro
compt+sens
If compt=0
sens=1
EndIf
If compt>10000*(vol/10)
sens=-1
EndIf
;sv = Round(sv1*compt/10000,0)
sv=Sin(compt*50/1024)*100
If sv>127 ; saturation
sv=127
EndIf
If sv<-127
sv=-127
EndIf
sv+128
PokeB(*pt,sv)
Case 16
; Tremolo by dobro
compt+sens
If compt=0
sens=1
EndIf
If compt>10000*(vol/10)
sens=-1
EndIf
; sv = Round(PeekW(*pt)*compt/10000,0)
sv=Sin(compt*50/1024)*100
If sv>($FFFF/2)-1
sv=($FFFF/2)-1 ; saturation
EndIf
If sv<-($FFFF/2)+1
sv=-($FFFF/2)+1 ; saturation
EndIf
PokeW(*pt,sv)
Case 32
; Tremolo by dobro
compt+sens
If compt=0
sens=1
EndIf
If compt>10000*(vol/10)
sens=-1
EndIf
;sv = Round(PeekL(*pt)*compt/10000,0)
sv=Sin(compt*50/1024)*100
If sv>($FFFFFFFF/2)-1
sv=($FFFFFFFF/2)-1 ; saturation
EndIf
If sv<-($FFFFFFFF/2)+1
sv=-($FFFFFFFF/2)+1 ; saturation
EndIf
PokeL(*pt,sv)
EndSelect
*pt+wBitsPerSample/8
Wend
ProcedureReturn *hsound ; this is very important !!!!!!!!!
EndProcedure
;
; Now, give the names of your effect and register the adresses of your procedures
RegisterFilter("Sinus","Sinus","Sinus","by Dobro",@TremCreateButtons (),0,@TremCompute ())
; "FrenchName","EnglishName","GermanName","Your name",procedure adress for create button, procedure adress for events managing, procedure adress for filtering computingCode : Tout sélectionner
(voir ma réponse)
. Je suis vraiment *** moi 
. Bon pour me rattrapper, le filtre pour la vitesse renvoi maintenant un fichier à la taille du son ; EXTRA STEREO - EXTRA STEREO FILTER (hmm or something like that ^_^ )
; By KarLKoX
;
; You can use this filter as an exemple to create new one's
;
; Vous pouvez utiliser ce filtre comme exemple pour en créer de nouveaux
;
; A filter need 2 or 3 procedures to be operational
; - the first one will add your controls (gadgets) in the filter window when it's open. If you have no need of control, you can forget it.
; - the second one will be called by the event loop of the filter window (this exemple has not this one)
; - the third must apply your effect on the sound
;
; Un filtre nécessite 2 à 3 procédures pour être opérationnel
; - la première ajoutera vos gadgets dans la fenêtre de filtre quand elle sera ouverte. Si votre filtre ne nécessite aucun gadget, vous pouvez l'oublier.
; - la deuxième sera appellée par la boucle des évènement de cette fenêtre (cet exemple n'en comporte pas)
; - la troisième doit appliquer votre effet sur le son
Procedure VCreateButtonsExtraStereo ()
#ComboGadget=1 ; gadgets can have any number from 1 to 399. But don't re-use the same number in two different filters !!
; les gadgets peuvent avoir un numéro compris entre 1 et 399. Attention a ne pas utiliser le même numéro dans deux filtres différents !!
values$="1,2,3,4,5,6,7,8"
ComboBoxGadget(#ComboGadget,100,23,70,150)
FontID1 = LoadFont(1, "Arial", 16, #PB_Font_Bold)
SetGadgetFont(#ComboGadget, FontID1)
For lcg=1 To 8
AddGadgetItem(#ComboGadget,-1,StringField(values$, lcg, ","))
Next
SetGadgetState(#ComboGadget,5)
PBase=40 ; this filter gadget is 40 points high. You can use more !
; Le gadget de ce filtre occupe un espace de 40 points de haut. Vous pouvez faire plus grand !
ProcedureReturn PBase
EndProcedure
Procedure VComputeExtraStereo (*hsound) ; *hsound is the adress of the WAVE sound on wich you will apply your effect
; *hsound est l'adresse du son WAVE sur lequel vous allez appliquer votre effet
Protected avg.f, tmp.f, ldiff.f, rdiff.f
intensity = GetGadgetState(#ComboGadget)
nChannels.w=PeekW(*hsound+22)
wBitsPerSample.w=PeekW(*hsound+34)
*pt=*hsound+44
lim = *hsound+44+PeekL(*hsound+40)
If (nChannels = 1) : ProcedureReturn *hsound : EndIf ; process only stereo sounds ... (you know why :) )
; traite les sons stereo uniquement (devinez pourquoi :) )
While *pt<=lim
Select wBitsPerSample
Case 8
sv = PeekB(*pt) & $FF
sv2 = PeekB(*pt+1) & $FF
;If sv<0
; sv+256 ; Convert signed to unsigned
;EndIf
;sv-128 ; 8bits wave signal is from 0 to 256 with a midpoint at 128
avg = (sv + sv2) / 2
ldiff = sv - avg
rdiff = sv2 - avg
tmp = avg + ldiff * intensity
sv = tmp
If sv > 127 ; saturation
sv = 127
EndIf
If sv < -127
sv = -127
EndIf
sv + 128
tmp = avg_b + rdiff_b * intensity
sv2 = tmp
If sv2 > 127 ; saturation
sv2 = 127
EndIf
If sv2 < -127
sv2 = -127
EndIf
PokeB(*pt,sv)
*pt = *pt+wBitsPerSample/8
PokeB(*pt,sv2)
*pt = *pt+wBitsPerSample/8
Case 16
sv = PeekW(*pt)
sv2 = PeekW(*pt+2)
avg = (sv + sv2) / 2
ldiff = sv - avg
rdiff = sv2 - avg
tmp = avg + ldiff * intensity
If tmp > 32767
tmp = 32767 ; saturation
EndIf
If tmp < -32768
tmp = -32768 ; saturation
EndIf
sv = tmp
tmp = avg + rdiff * intensity
If tmp > 32767
tmp = 32767 ; saturation
EndIf
If tmp < -32768
tmp = -32768 ; saturation
EndIf
sv2 = tmp
PokeW(*pt,sv)
*pt = *pt+wBitsPerSample/8
PokeW(*pt,sv2)
*pt = *pt+wBitsPerSample/8
Case 32
sv = PeekL(*pt)
sv2 = PeekL(*pt+4)
avg = (sv + sv2) / 2
ldiff = sv - avg
rdiff = sv2 - avg
tmp = avg + ldiff * intensity
If tmp > 2147483647
tmp = 2147483647 ; saturation
EndIf
If tmp < -2147483648
tmp = -2147483648 ; saturation
EndIf
sv = tmp
tmp = avg + rdiff * intensity
If tmp > 2147483647
tmp = 2147483647 ; saturation
EndIf
If tmp < -2147483648
tmp = -2147483648 ; saturation
EndIf
sv2 = tmp
PokeL(*pt,sv)
*pt = *pt+wBitsPerSample/8
PokeL(*pt,sv2)
*pt = *pt+wBitsPerSample/8
EndSelect
Wend
ProcedureReturn *hsound ; this is very important !!!!!!!!!
EndProcedure
;
; Now, give the names of your effect and register the adresses of your procedures
RegisterFilter("Extra Stereo","Extra Stereo","Extra Stereo","by KarLKoX",@VCreateButtonsExtraStereo(),0,@VComputeExtraStereo())
; "FrenchName","EnglishName","GermanName","Your name",procedure adress for create button, procedure adress for events managing, procedure adress for filtering computing
Code : Tout sélectionner
#include <windows.h>
/* embryon de plugin
ca va surement changer vers une struct qui contiendra dsp_struct + les pointeurs sur fonction (init, process, close ...)
*/
#define API __stdcall
#define EXPORTAPI __declspec(dllexport)
#define clip(a) (short)((a<=-32768)?-32768:((a>=32767)?32767:a))
/*
je pense passer par une structure que je passerais en param
ca me permettra d'avoir plusieurs instance d'effet
typedef struct
{
void * data;
int size;
int res;
} dsp_struct;
static dsp_struct *dsp;
static float cfg_intensity = 2.0;
*/
/* avoid stupid CRT silliness */
BOOL WINAPI _DllMainCRTStartup(HANDLE hInst, ULONG ul_reason_for_call, LPVOID lpReserved)
{
return TRUE;
}
void process_char(char *buffer, int samples)
{
char avg, tmp, ldiff, rdiff;
}
void process_short(short *buffer, int samples)
{
short avg, tmp, ldiff, rdiff;
short *data=(short*)buffer;
//for(n=0; n < samples<<1; n+=2)
for(;samples;samples-=4, data+=2) /* plus rapide ? */
{
avg = (data[0] + data[1]) / 2;
ldiff = data[0] - avg;
rdiff = data[1] - avg;
tmp = avg + ldiff * cfg_intensity;
data[0] = clip(tmp);
tmp = avg + rdiff * cfg_intensity;
data[1] = clip(tmp);
}
}
void process_int32(__int32 *buffer, int samples)
{
__int32 avg, tmp, ldiff, rdiff;
}
void process_float(float *buffer, int samples)
{
float avg, tmp, ldiff, rdiff;
}
EXPORTAPI void API process_fx(void *buffer, int samples, int res)
{
char *char_sample_buffer = (char*)buffer;
short *short_sample_buffer = (short*)buffer;
int *int_sample_buffer = (int*)buffer;
float *float_sample_buffer = (float*)buffer;
switch (res)
{
case 0:
process_char(char_sample_buffer, samples);
break;
case 1:
process_short(short_sample_buffer, samples);
break;
case 2:
process_int32(int_sample_buffer, samples);
break;
case 3:
process_float(float_sample_buffer, samples);
break;
default:
process_short(short_sample_buffer, samples);
break;
}
}
EXPORTAPI void API init_fx(int param)
{
cfg_intensity = (float)param;
}