!***********************************************
! Preset galm door snelle convolutie pulsrespons
!***********************************************

Declareer Begin_pulsrepons; Begin_galm; ; duur; Galmduur


Begin_pulsrepons = 60*Fs       ! de pulsrespons wordt op spoor S1 en S2 geplaatst op tijdstip 60 sec.
Begin_galm       = 20*Fs       ! de galm-output wordt op spoor S1 en S2 geplaatst op tijdstip 20 sec.
Galmduur         = 121448      ! duur galm-pulsrespons wordt gegeven in Memo na openening wav.
duur             = 14 * Fs     ! duur van weerbericht.wav

Wis buffers
  Wis buffer (F1...F32, S1, S2, S3)    S1  |  S2  |  S3

!---------------------------------------------------------
! Open twee wav-bestanden en plaats ze op spoor S1 en S2:
!---------------------------------------------------------
Open WAV
  WAV naam   weerbericht.wav
  buffer     S1[0]

Open WAV
  WAV naam   Pulsrespons Surround.wav
  buffer     S1[Begin_pulsrepons]

!----------------------------------------
! Voeg galm toe d.m.v. snelle convolutie
!-----------------------------------------
! galm op spoor S1:
Snelle Convolutie (FFT en OLA)
  Input                   S1[0]
  Output                  S1[Begin_galm]
  coef's                  S1[Begin_pulsrepons]
  M                       Galmduur
  Duur (ook 'sec')        duur
  Additief ('j' of 'n')   n
  Schaalfactor coef's     10

! galm op spoor S2:
Snelle Convolutie (FFT en OLA)
  Input                   S2[0]
  Output                  S2[Begin_galm]
  coef's                  S2[Begin_pulsrepons]
  M                       Galmduur
  Duur (ook 'sec')        duur
  Additief ('j' of 'n')   n
  Schaalfactor coef's     10

!-----------------------------------------------------
! Bereken de correlaties van oorspronkelijke signalen:
!-----------------------------------------------------
Correlatie
  Input 1                       S1[0]
  Input 2                       S2[0]
  Lag1; Lag 2                   0; 1000
  venster (smp)                 duur
  Outputbuffer Corr. functie    F1[0]
  Max-waarde opslaan in F?[?]   F2[0]
Print F2[0]

! correlatie S1-S2 van oorspronkelijke 
! signalen is ongeveer 0,99 en geven dus
! nauwelijks een ruimtelijke werking.

!-----------------------------------------
! Bereken de correlaties van galmsignalen:
!-----------------------------------------
Correlatie
  Input 1                       S1[Begin_galm]
  Input 2                       S2[Begin_galm]
  Lag1; Lag 2                   0; 1000
  venster (smp)                 duur
  Outputbuffer Corr. functie    F1[0]
  Max-waarde opslaan in F?[?]   F2[0]
Print F2[0]

! correlatie S1-S2 van galmsignalen is ongeveer 0,4;
! dus het galm-effect heeft een redelijk krachtige, 
! decorrelerende, en dus ruimtelijke werking.

!---------------------------------------------------