!***************
! Preset GLITSEN
! 26 feb 2012
!***************

! ==========================================================================================
! tekst van weerbericht:
! ==========================================================================================
! 't weer: vanavond bewolkt en op de meeste plaatsen droog,
! de wind wakkert aan, aan zee tot hard of stormachtig,
! rond middernacht kan 't in 't noorden even stormen, kracht 9.
! Morgen regenachtig en ook dan veel wind.
! Dit was uTenno Wes journaal.
!
! ==========================================================================================
! tekst van Glitsbericht:
! ==========================================================================================
! 't weer:
! vanavond bewolkt en op de meeste plaatsen drdrdrdrdrrrroog,
! de wind wakkert aan, aan zee tot hhhahahahard of stormachtig,
! rond middernacht kannu tinnu tinnu tinnu tinnu tinnu tinnu tinnu
! noonoonoonoonoonoonoonoorden even stormen, kracht nenenenenenenegen.
! Morgen rrrrrrrrrrrrregenachtig en ook dan veel wind.
! Dit was uTenno Tenno Tenno Tenno Wes sjsjsjsjsjsjsjsjsjsjsjsjournaaaaaalalalalalalllll.
! ==========================================================================================

Declareer droog_T; droog_L; hard_T; hard_L; kannutinnet_T; kannutinnet_L
Declareer noorden_T; noorden_L; negen_T; negen_L; regenachtig_T; regenachtig_L
Declareer tenno_T; tenno_L; OpDeMeestePlaatsen_T; OpDeMeestePlaatsen_L
Declareer NU; Frag0; Frag; Vol; q; w; v; a; b; c; f

! Klik met linker- en rechter muisknop in golfvorm om fragmenten aan te wijzen;
! Fragment afzonderlijk beluisteren: klik op 'Speel fragment af'.
! In Memo Links verschijnt begintijdstip van fragment;
! In Memo Rechts verschijnt eindtijdstip van fragment;
! Bepaal lengte van fragment door klik op Start om alleen onderstaande instructie
! uit te voeren. Kopieer resultaat van Memo naar Commandovenster.
! Vul daarmee onderstaande lijst in.

!--------------------------
Print links
Print rechts - links
!-------------------------

OpDeMeestePlaatsen_T = 54848
OpDeMeestePlaatsen_L = 39232
droog_T       = 93000        ! 90112
droog_L       = 8000         ! 19968
hard_T        = 190144
hard_L        = 12672
kannutinnet_T = 285600
kannutinnet_L = 18016
noorden_T     = 302976
noorden_L     = 10479
negen_T       = 357503
negen_L       = 19712
regenachtig_T = 404175
regenachtig_L = 34608
tenno_T       = 517182
tenno_L       = 14208

NU            = 0

! Maak Glitsignaal op spoor S3:
Wis buffers
  Wis buffer (F1...F32, S1, S2, S3)   S3

!-----------------------------------------------------------
! 't weer:
! vanavond bewolkt en op de meeste plaatsen
!-----------------------------------------------------------
Bewerk signaal
  n0          0
  n1          droog_T
  Bewerking   S3[n] = S1[n]

NU = droog_T

!-----------------------------------------------------------
! ddd drdrdrodrodr
!-----------------------------------------------------------
Frag = droog_L / 30
FOR k = 0 TO 8
  Bewerk signaal
    n0          0
    n1          Frag
    Bewerking   S3[NU + n] = S1[droog_T+n]
  NU = NU + Frag
  Frag = Frag + droog_L / 30
NEXT k

!-----------------------------------------------------------
! droog, de wind wakkert aan, aan zee tot
!-----------------------------------------------------------
Bewerk signaal
  n0          0
  n1          hard_T - droog_T
  Bewerking   S3[NU + n] = S1[droog_T + n]

NU = NU + (hard_T - droog_T)

!-----------------------------------------------------------
! hahahahard
!-----------------------------------------------------------
FOR q = 1 TO 4
  w = 20
  Frag = hard_L/2,5
  Vol = 1
  FOR k = 0 TO w
    Bewerk signaal
      n0          0
      n1          Frag
      Bewerking   S3[NU + n] = Vol*S1[hard_T + n]
    NU = NU + Frag
    Frag = Frag*0.85
    Vol = Vol*1,2
  NEXT k
  w = w-5
NEXT q

!-----------------------------------------------------------
! hard of stormachtig, rond middernacht kan 't in 't
!-----------------------------------------------------------
Bewerk signaal
  n0          0
  n1          noorden_T - hard_T
  Bewerking   S3[NU + n] = S1[hard_T + n]

NU = NU + noorden_T - hard_T

!-----------------------------------------------------------
! nooooooooooooor....
!-----------------------------------------------------------
Frag0 = 279
Print Frag

f = 1 ! Hz LFO vibrato door Frag langer en korter te maken
c = 2*pi*f/450
a = 2,3

FOR k = 0 TO 8000
  v = (k^0,7)*100                                               ! verplaatsingssnelheid
  Frag = Frag0 + a*(k^0,5)*sin(c*k^1,4 + 8*sin(3*c*k)) !        ! vibrato met FM
  Print Frag
  
  ! Maak Hann-window in F1[]:
  w = Frag / 2
  q = 2*pi/Frag
  FOR n = 0 TO Frag
    F1[n] = 0,5 + 0,5*cos(q*(n-w))
  NEXT n
  
  Bewerk signaal
    n0          0
    n1          Frag
    Bewerking   S3[NU + n] = S1[noorden_T + v + n] * F1[n]
  NU = NU + Frag
NEXT k


rechts = 65*Fs
Bewerk signaal
  n0          0
  n1          rechts
  Bewerking   S1[n] = S3[n]
Bewerk signaal
  n0          0
  n1          rechts
  Bewerking   S2[n] = S3[n]