view release on metacpan or  search on metacpan

eg/wobbleBass.pl  view on Meta::CPAN

  # my %p = generalize(@_);
  # my $c = Chart::Clicker->new;
  # my $sample_count = 0;
  # my @sample_cache;
  # sub {
    # my $sample = $p{gen}->();
    # push @sample_cache, $sample;
    # unless(++$sample_count % 80000) {
      # say "Writing graph!";
      # $c->add_data('Samples', \@sample_cache);
      # $c->write_output('vis.png');
      # @sample_cache = ();
      # say "OK... done with that.";
    # }
    # return $sample;
  # }
# }


# my $n = segment( notes => 'A R R' );