! Preset SurfsyntheseTimbre.txt
Declareer A; B; c1; c2; pi2; f1; f2; N; V; T

!-----------------------------------------------------------
! Spoor S1:
f1 = 40
f2 = 40,1
c1 = 2 * pi * f1 * Ts
c2 = 2 * pi * f2 * Ts
pi2 = pi / 2

A = 0,001*c1       ! A en B zijn "tweak-parameters"
B = 0,0009*c1

Wave surf synthese
  hoogte (pixels)          1400
  aantal iteraties         3
  traject x                pi2 * sin(A*n)*cos(c1*n)
  traject y                1,5 * cos(B*n)*sin(c2*n) + 2
  spoor: S?[?]             S1[0]
  duur                     30 sec
  volume                   8000
  modus                    1
  Traject tekenen aantal   3309
  Traject tekenen modulo   88200

!-----------------------------------------------------------
! Spoor S2:
f1 = 40,2
f2 = 40,27
c1 = 2 * pi * f1 * Ts
c2 = 2 * pi * f2 * Ts

A = 0,001*c1
B = 0,00085*c1

! het traject geef je op in de vorm van een parametrische kromme in de regels 'traject x' en 'traject y'
! Bijvoorbeeld een cirkel heeft de vorm:
! traject x = cos(P*n)  
! traject y = sin(P*n)
 
Wave surf synthese
  hoogte (pixels)          1400
  aantal iteraties         3     ! hiermee geef je de "geplooidheid" van het landschap aan
  traject x                pi2 * sin(A*n)*cos(c1*n)
  traject y                1,4 * cos(B*n)*sin(c2*n) + 2,4
  spoor: S?[?]             S2[0]
  duur                     30 sec
  volume                   8000
  modus                    1
  Traject tekenen aantal   3309
  Traject tekenen modulo   220500

!-----------------------------------------------------------
! Op beide sporen exponentiele demping op laatste 5 sec:
T = 25* Fs
N = 5 * Fs
V = 0,001
B = V ^(1/N)

Print B
Print 1 / N
Bewerk signaal
  n0          0
  n1          N
  Bewerking   S1[n + T] = S1[n + T] * B ^ n

Bewerk signaal
  n0          0
  n1          N
  Bewerking   S2[n + T] = S2[n + T] * B ^ n


!-----------------------------------------------------------
! Sonogram
Buffer en index (s1, s2, s3)                    S1[0]
lengte fragment (ook 'sec')                     25 sec
FFT-venster  (in bits: 8...16)                  13
Venstergrootte (ook 'sec')                      8000
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                                      2
Hann-window ('j' of 'n')                        j
Raster ('j' of 'n')                             j