! Preset_Toongenerator_met_Tijdveranderlijk_Bandfilter

Declareer a; b; n0; n1; g0; g1; duur

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

duur = 30*Fs                                    ! ??????????????????????????


! STAP 1   ****************************************************
! Maak een lineaire functie g(n) = a * n + b
! waarmee de Centrumfrequentie van het Banddoorlaatfilter
! in 30 sec geleidelijk toeneemt van 200 Hz tot 5000 Hz.

! Bereken a en b van de lineaire functie
! we doen dit zoals in Opdracht 27:

n0 = 0        ! begintijdstip
n1 = duur     ! laatste tijdstip

g0 = 200      ! Centrumfrequentie op begintijdstip   ??????????????????????????
g1 = 4000     ! Centrumfrequentie op laatste tijdstip ??????????????????????????

a = (g1 - g0) / (n1-n0)
b = g0 - n0*a


! STAP 2   *****************************************************
Feedback generator
  Frequentie (Hz of TOETS)     400 Hz
  Amplitude                    6000
  Golfvorm                     zaag
  Spoor: S?[?]                 S1[0]
  Duur                         duur
  Fijnstemmer ('j' of 'n')     j
  Attack  (msec)               10
  Decay   (msec)               0
  Sustain (0...1)              1
  Release (msec)               1
  ADSR type ('lin' of 'exp')   exp
  Filtercoefficient a          1
  Filtercoefficient b          0


! STAP 3   *****************************************************
Butterworth Banddoorlaat
  Input                    S1[0]
  Output                   S2[0]
  Centrumfrequentie (Hz)   a*n + b    ! filter is nu tijdvariant
  Bandbreedte (Hz)         200
  Duur (ook 'sec')         duur
  Flanksteilheid (< 50)    4
  Volume (0...100)         1
  Additief ('j' of 'n')    n


! STAP 4  ******************************************************
!Sonogram
Buffer en index (s1, s2, s3)                    S2[0]
lengte fragment (ook 'sec')                     30 sec
FFT-venster  (in bits: 8...16)                  12
Venstergrootte (ook 'sec')                      2000
vensterverplaatsing (ook 'sec')                 0,03 sec
weergave in decibel ('dB') of lineair ('lin')   dB
kleur van laagste amp ('R', 'G' of 'B')         240
kleur van hoogste amp ('R', 'G' of 'B')         60
helderheid                                      60
Hann-window ('j' of 'n')                        j
Animatie ('j' of 'n')                           n