1 files changed, 16 insertions, 0 deletions
diff --git a/examples/scale5.pl b/examples/scale5.pl
new file mode 100644
index 0000000..6a3f32c
--- /dev/null
+++ b/examples/scale5.pl
@@ -0,0 +1,16 @@
+#!/usr/local/bin/perl 
+
+# -*-Perl-*-
+
+$file = "24et.scale";
+
+open(OUT, ">$file");
+
+$base = 27.5;
+$mult = 2 ** (1/24);
+while( $base < 22050 ){
+    printf OUT "%.4f\n", $base;
+    $base *= $mult;
+}
+close $file;
+print "wrote to $file\n";