!***********************************************
! Preset Lineair stijgende sinus met knik ad hoc
!***********************************************

! Voor WaveWizard versie okt 2010
! (Versie 2012 gaat dit veel simpeler en sneller)
 
Declareer f; w; fase; duur

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

fase = 0
duur = 40*Fs
w    = 2*pi*Ts
f    = 1000

 FOR n = 0 TO 0,5*duur-1
   f = f + 0,001
   fase = fase + f*w
   S1[n] = 8000*sin(fase)
 NEXT n

 FOR n = 0,5*duur TO duur
   f = f + 0,002
   fase = fase + f*w
   S1[n] = 8000*sin(fase)
 NEXT n