From b5954f69f4cd821016e3693aa8e301e30113491a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
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