anchor.diff:      dup last-note @ f- 0.15f f>=
       if
           last-note !
  -        0.0f 1.0f frand 0.6f f<
  +        0.0f 1.0f frand 0.8f f<
           if rand-seq-note new-note then
       else
           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* ;
  