anchor.diff:  0.0f >osc var> lfo2 !
   0.0f >osc var> osc1 !
   0.0f >osc var> osc2 !
  -0.005f 0.1f 0.5f 0.75f 0.25f >adsr var> env !
  -0.35f 2.0f >foldback var> fb !
  +0.005f 0.1f 0.75f 0.8f 0.25f >adsr var> env !
  +0.33f 2.5f >foldback var> fb !
   0.0f var> last-note !
   
   : vfill! ( freq var -- ) @ b! drop ;
  
positive.code: 
  \ LFO2 = 82.4Hz (MIDI note E2)
  \ used for frequence modulation, amplitude reset for each note via `set-pitch` word
  E2 hz buf dup var> lfo2pitch ! b! drop
  buf var> lfo2amp !
  
  \ define actual oscillators, env & fx vars
  
negative.code: \ define scale for sequencer
  C1 C1 C1 C1 C2 C2 C2 C2 C4 9
  dup allot dup var> seq ! swap ds>dict!
  
  : rand-seq-note ( -- freq ) 0 9 rand seq @ + @ 2.0f f* ;
  