!**************************************************************
! Preset convolutie snaarpluk met pulsrespons gitaarbody J.O.S.
!**************************************************************
Declareer f; duur
duur = 0,5 * Fs

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

! Open eerst pulsrespons gitaarbody J.O.S.
! Bewerk signaal
!   n0          1124
!   n1          2*Fs
!  Bewerking   F1[n-1124] = S1[n]

! ***************************************************
FOR k = 0 TO 60
  f = 55* 2^(k/12)
  
  Feedback generator
    Frequentie (Hz of TOETS)     f
    Amplitude                    8000
    Golfvorm                     snaar(0,21; 0,323) ! Tokkelpunt en Opnamepunt uitgedrukt in L (lengte snaar).
    Spoor: S?[?]                 S3[0]
    Duur                         duur
    Fijnstemmer ('j' of 'n')     j
    Attack  (msec)               1
    Decay   (msec)               3000
    Sustain (0...1)              0
    Release (msec)               2000
    ADSR type ('lin' of 'exp')   exp
    Filtercoefficient a          0,5
    Filtercoefficient b          0,5
  
  FIR-filter
    Input                   S3[0]
    Output                  S1[k*duur]
    coef's                  F1[0]
    M                       16160
    Duur (ook 'sec')        duur + 1,5*Fs
    Additief ('j' of 'n')   j
    Schaalfactor coef's     0,5*10^(-6)
  
  Bewerk signaal
    n0          0
    n1          duur + 2,1*Fs
    Bewerking   S3[n] = 0
  
  Feedback generator
    Frequentie (Hz of TOETS)     f* 1,002
    Amplitude                    8000
    Golfvorm                     snaar(0,091; 0,21) ! Tokkelpunt en Opnamepunt uitgedrukt in L (lengte snaar).
    Spoor: S?[?]                 S3[0]
    Duur                         duur
    Fijnstemmer ('j' of 'n')     j
    Attack  (msec)               1
    Decay   (msec)               3000
    Sustain (0...1)              0
    Release (msec)               2000
    ADSR type ('lin' of 'exp')   exp
    Filtercoefficient a          0,5
    Filtercoefficient b          0,5
  
  FIR-filter
    Input                   S3[0]
    Output                  S2[k*duur]
    coef's                  F1[0]
    M                       16160
    Duur (ook 'sec')        duur + 1,5*Fs
    Additief ('j' of 'n')   j
    Schaalfactor coef's     0,5*10^(-6)
  
  Bewerk signaal
    n0          0
    n1          duur + 2,1*Fs
    Bewerking   S3[n] = 0
  
NEXT k







Som, energie, max, min
  Buffer                    S1
  Vanaf samplenummer        0
  Tot en met samplenummer   1000000