From b5954f69f4cd821016e3693aa8e301e30113491a Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Fri, 5 Oct 2012 16:23:49 +0000 Subject: include pvtuner~'s scale files and scripts as examples svn path=/trunk/externals/fftease/; revision=16336 --- examples/scale6.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 examples/scale6.pl (limited to 'examples/scale6.pl') diff --git a/examples/scale6.pl b/examples/scale6.pl new file mode 100644 index 0000000..81f313f --- /dev/null +++ b/examples/scale6.pl @@ -0,0 +1,20 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "octfifth.scale"; + +open(OUT, ">$file"); + +$base = 27.5; + +@ints = (1.5, 4/3); +$phs = 0; + +while( $base < 22050 ){ + printf OUT "%.4f\n", $base; + $base *= $ints[$phs++]; + $phs %= 2; +} +close $file; +print "wrote to $file\n"; -- cgit v1.2.1