anchor.diff:  : set-pitch ( freq -- )
       hz dup dup pitch vfill!
       1.01f f* pitch2 vfill!
  -    0.5f f* lfo2amp vfill! ;
  +    0.9f f* lfo2amp vfill! ;
   
   \ trigger new note: sets pitch and resets envolope
   : new-note ( freq -- ) set-pitch env @ reset-adsr ;
  
positive.code:     dup last-note @ f- 0.15f f>=
      if
          last-note !
          0.0f 1.0f frand 0.6f f<
          if rand-seq-note new-note then
      else
          drop
  
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* ;
  