Declareer duur; a; b; c

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

duur = 0,25 * Fs
c    = 0,01
a    = c ^ (1/duur)
b    = 8000

!----------------------------------------------------------------------
! maak fragment van 0,25 sec witte ruis aan in een double float buffer:
Ruis wit, uniform
  Buffer                        F1[0]
  Min                           -b
  Max                           b
  Aantal samples                duur
  Startgetal Toevalsgenerator   0

!----------------------------------------------------------------------
! Voorzie de ruis van een exponentieel dempende omhullende:
Bewerk signaal
  n0          0
  n1          duur
  Bewerking   F1[n] = (F1[n] * a^n) / (12*b)

!----------------------------------------------------------------------
! Filter het signaal van spoor S1 en zet de output op spoor S3:
! Gebruik de gedempte ruis als filtercoefficienten.
! Output S3 is dus de convolutie van inputS 1 met gedempte ruis.
! De galmtijd is gelijk aan 'duur'.

FIR-filter
  Input                   S1[0]
  Output                  S3[0]
  coef's                  F1[0]
  M                       duur
  Duur (ook 'sec')        15*Fs
  Additief ('j' of 'n')   n

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