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/13et.scale | 126 ++++++++++++++++++++++++++ examples/24et.scale | 232 ++++++++++++++++++++++++++++++++++++++++++++++++ examples/4th.scale | 24 +++++ examples/m3M3.scale | 34 +++++++ examples/m3chord.scale | 50 +++++++++++ examples/octfifth.scale | 20 +++++ examples/scale1.pl | 20 +++++ examples/scale2.pl | 19 ++++ examples/scale3.pl | 16 ++++ examples/scale4.pl | 16 ++++ examples/scale5.pl | 16 ++++ examples/scale6.pl | 20 +++++ examples/scale7.pl | 25 ++++++ examples/test.scale | 5 ++ 14 files changed, 623 insertions(+) create mode 100644 examples/13et.scale create mode 100644 examples/24et.scale create mode 100644 examples/4th.scale create mode 100644 examples/m3M3.scale create mode 100644 examples/m3chord.scale create mode 100644 examples/octfifth.scale create mode 100644 examples/scale1.pl create mode 100644 examples/scale2.pl create mode 100644 examples/scale3.pl create mode 100644 examples/scale4.pl create mode 100644 examples/scale5.pl create mode 100644 examples/scale6.pl create mode 100644 examples/scale7.pl create mode 100644 examples/test.scale diff --git a/examples/13et.scale b/examples/13et.scale new file mode 100644 index 0000000..6d02507 --- /dev/null +++ b/examples/13et.scale @@ -0,0 +1,126 @@ +27.5000 +29.0061 +30.5946 +32.2702 +34.0375 +35.9016 +37.8678 +39.9416 +42.1291 +44.4363 +46.8699 +49.4368 +52.1443 +55.0000 +58.0121 +61.1892 +64.5403 +68.0749 +71.8031 +75.7355 +79.8833 +84.2581 +88.8726 +93.7398 +98.8736 +104.2885 +110.0000 +116.0243 +122.3785 +129.0807 +136.1499 +143.6063 +151.4710 +159.7665 +168.5163 +177.7453 +187.4797 +197.7472 +208.5771 +220.0000 +232.0485 +244.7569 +258.1613 +272.2998 +287.2126 +302.9421 +319.5330 +337.0326 +355.4906 +374.9594 +395.4944 +417.1541 +440.0000 +464.0971 +489.5138 +516.3226 +544.5996 +574.4251 +605.8842 +639.0661 +674.0652 +710.9811 +749.9187 +790.9889 +834.3082 +880.0000 +928.1941 +979.0277 +1032.6452 +1089.1991 +1148.8503 +1211.7683 +1278.1321 +1348.1304 +1421.9622 +1499.8375 +1581.9777 +1668.6164 +1760.0000 +1856.3883 +1958.0554 +2065.2904 +2178.3983 +2297.7006 +2423.5366 +2556.2642 +2696.2608 +2843.9244 +2999.6750 +3163.9554 +3337.2329 +3520.0000 +3712.7766 +3916.1108 +4130.5808 +4356.7965 +4595.4012 +4847.0733 +5112.5285 +5392.5216 +5687.8488 +5999.3500 +6327.9109 +6674.4657 +7040.0000 +7425.5532 +7832.2216 +8261.1616 +8713.5930 +9190.8024 +9694.1465 +10225.0569 +10785.0432 +11375.6977 +11998.7000 +12655.8217 +13348.9314 +14080.0000 +14851.1064 +15664.4432 +16522.3233 +17427.1861 +18381.6047 +19388.2931 +20450.1138 +21570.0863 diff --git a/examples/24et.scale b/examples/24et.scale new file mode 100644 index 0000000..e57b49e --- /dev/null +++ b/examples/24et.scale @@ -0,0 +1,232 @@ +27.5000 +28.3058 +29.1352 +29.9890 +30.8677 +31.7722 +32.7032 +33.6615 +34.6478 +35.6631 +36.7081 +37.7837 +38.8909 +40.0305 +41.2034 +42.4108 +43.6535 +44.9327 +46.2493 +47.6045 +48.9994 +50.4352 +51.9131 +53.4343 +55.0000 +56.6116 +58.2705 +59.9779 +61.7354 +63.5444 +65.4064 +67.3229 +69.2957 +71.3262 +73.4162 +75.5675 +77.7817 +80.0609 +82.4069 +84.8216 +87.3071 +89.8653 +92.4986 +95.2090 +97.9989 +100.8704 +103.8262 +106.8685 +110.0000 +113.2232 +116.5409 +119.9559 +123.4708 +127.0888 +130.8128 +134.6459 +138.5913 +142.6524 +146.8324 +151.1349 +155.5635 +160.1219 +164.8138 +169.6432 +174.6141 +179.7307 +184.9972 +190.4180 +195.9977 +201.7409 +207.6523 +213.7370 +220.0000 +226.4465 +233.0819 +239.9117 +246.9417 +254.1776 +261.6256 +269.2918 +277.1826 +285.3047 +293.6648 +302.2698 +311.1270 +320.2437 +329.6276 +339.2864 +349.2282 +359.4614 +369.9944 +380.8361 +391.9954 +403.4818 +415.3047 +427.4741 +440.0000 +452.8930 +466.1638 +479.8234 +493.8833 +508.3552 +523.2511 +538.5836 +554.3653 +570.6094 +587.3295 +604.5396 +622.2540 +640.4874 +659.2551 +678.5728 +698.4565 +718.9228 +739.9888 +761.6722 +783.9909 +806.9636 +830.6094 +854.9481 +880.0000 +905.7860 +932.3275 +959.6468 +987.7666 +1016.7104 +1046.5023 +1077.1671 +1108.7305 +1141.2188 +1174.6591 +1209.0792 +1244.5079 +1280.9748 +1318.5102 +1357.1455 +1396.9129 +1437.8456 +1479.9777 +1523.3443 +1567.9817 +1613.9271 +1661.2188 +1709.8962 +1760.0000 +1811.5719 +1864.6550 +1919.2936 +1975.5332 +2033.4207 +2093.0045 +2154.3342 +2217.4610 +2282.4376 +2349.3181 +2418.1584 +2489.0159 +2561.9496 +2637.0205 +2714.2911 +2793.8259 +2875.6912 +2959.9554 +3046.6887 +3135.9635 +3227.8542 +3322.4376 +3419.7924 +3520.0000 +3623.1439 +3729.3101 +3838.5872 +3951.0664 +4066.8415 +4186.0090 +4308.6685 +4434.9221 +4564.8752 +4698.6363 +4836.3168 +4978.0317 +5123.8992 +5274.0409 +5428.5821 +5587.6517 +5751.3824 +5919.9108 +6093.3774 +6271.9270 +6455.7085 +6644.8752 +6839.5849 +7040.0000 +7246.2877 +7458.6202 +7677.1744 +7902.1328 +8133.6830 +8372.0181 +8617.3369 +8869.8442 +9129.7505 +9397.2726 +9672.6337 +9956.0635 +10247.7984 +10548.0818 +10857.1642 +11175.3034 +11502.7648 +11839.8215 +12186.7548 +12543.8540 +12911.4169 +13289.7503 +13679.1697 +14080.0000 +14492.5755 +14917.2404 +15354.3489 +15804.2656 +16267.3660 +16744.0362 +17234.6739 +17739.6884 +18259.5009 +18794.5451 +19345.2674 +19912.1270 +20495.5968 +21096.1636 +21714.3284 diff --git a/examples/4th.scale b/examples/4th.scale new file mode 100644 index 0000000..39cf0f3 --- /dev/null +++ b/examples/4th.scale @@ -0,0 +1,24 @@ +27.5000 +36.6667 +48.8889 +65.1852 +86.9136 +115.8848 +154.5130 +206.0174 +274.6898 +366.2531 +488.3375 +651.1166 +868.1555 +1157.5407 +1543.3876 +2057.8501 +2743.8002 +3658.4002 +4877.8670 +6503.8226 +8671.7635 +11562.3514 +15416.4685 +20555.2913 diff --git a/examples/m3M3.scale b/examples/m3M3.scale new file mode 100644 index 0000000..0cb1cc2 --- /dev/null +++ b/examples/m3M3.scale @@ -0,0 +1,34 @@ +27.5000 +33.0000 +41.2500 +49.5000 +61.8750 +74.2500 +92.8125 +111.3750 +139.2188 +167.0625 +208.8281 +250.5938 +313.2422 +375.8906 +469.8633 +563.8359 +704.7949 +845.7539 +1057.1924 +1268.6309 +1585.7886 +1902.9463 +2378.6829 +2854.4194 +3568.0243 +4281.6292 +5352.0364 +6422.4437 +8028.0547 +9633.6656 +12042.0820 +14450.4984 +18063.1230 +21675.7476 diff --git a/examples/m3chord.scale b/examples/m3chord.scale new file mode 100644 index 0000000..7742915 --- /dev/null +++ b/examples/m3chord.scale @@ -0,0 +1,50 @@ +27.5000 +33.0000 +36.6667 +44.0000 +48.8889 +55.0000 +66.0000 +73.3333 +88.0000 +97.7778 +110.0000 +132.0000 +146.6667 +176.0000 +195.5556 +220.0000 +264.0000 +293.3333 +352.0000 +391.1111 +440.0000 +528.0000 +586.6667 +704.0000 +782.2222 +880.0000 +1056.0000 +1173.3333 +1408.0000 +1564.4444 +1760.0000 +2112.0000 +2346.6667 +2816.0000 +3128.8889 +3520.0000 +4224.0000 +4693.3333 +5632.0000 +6257.7778 +7040.0000 +8448.0000 +9386.6667 +11264.0000 +12515.5556 +14080.0000 +16896.0000 +18773.3333 +22528.0000 +25031.1111 diff --git a/examples/octfifth.scale b/examples/octfifth.scale new file mode 100644 index 0000000..c4f6cad --- /dev/null +++ b/examples/octfifth.scale @@ -0,0 +1,20 @@ +27.5000 +41.2500 +55.0000 +82.5000 +110.0000 +165.0000 +220.0000 +330.0000 +440.0000 +660.0000 +880.0000 +1320.0000 +1760.0000 +2640.0000 +3520.0000 +5280.0000 +7040.0000 +10560.0000 +14080.0000 +21120.0000 diff --git a/examples/scale1.pl b/examples/scale1.pl new file mode 100644 index 0000000..ee6606d --- /dev/null +++ b/examples/scale1.pl @@ -0,0 +1,20 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "m3M3.scale"; + +open(OUT, ">$file"); + +$base = 27.5; + +@ints = (1.2, 1.25); +$phs = 0; + +while( $base < 22050 ){ + printf OUT "%.4f\n", $base; + $base *= $ints[$phs++]; + $phs %= 2; +} +close $file; +print "wrote to $file\n"; diff --git a/examples/scale2.pl b/examples/scale2.pl new file mode 100644 index 0000000..94df56b --- /dev/null +++ b/examples/scale2.pl @@ -0,0 +1,19 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "4th.scale"; + +open(OUT, ">$file"); + +$base = 27.5; + +@ints = (1.2, 1.25); +$phs = 0; + +while( $base < 22050 ){ + printf OUT "%.4f\n", $base; + $base *= 1.33333333333; +} +close $file; +print "wrote to $file\n"; diff --git a/examples/scale3.pl b/examples/scale3.pl new file mode 100644 index 0000000..7499151 --- /dev/null +++ b/examples/scale3.pl @@ -0,0 +1,16 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "blue3.scale"; + +open(OUT, ">$file"); + +$base = 27.5; + +while( $base < 22050 ){ + printf OUT "%.4f\n", $base; + $base *= 1.225; +} +close $file; +print "wrote to $file\n"; diff --git a/examples/scale4.pl b/examples/scale4.pl new file mode 100644 index 0000000..3f3853b --- /dev/null +++ b/examples/scale4.pl @@ -0,0 +1,16 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "13et.scale"; + +open(OUT, ">$file"); + +$base = 27.5; +$mult = 2 ** (1/13); +while( $base < 22050 ){ + printf OUT "%.4f\n", $base; + $base *= $mult; +} +close $file; +print "wrote to $file\n"; 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"; 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"; diff --git a/examples/scale7.pl b/examples/scale7.pl new file mode 100644 index 0000000..f5c35c7 --- /dev/null +++ b/examples/scale7.pl @@ -0,0 +1,25 @@ +#!/usr/local/bin/perl + +# -*-Perl-*- + +$file = "m3chord.scale"; + +open(OUT, ">$file"); + +$base = 27.5; + +@ints = (1.2, 9/8, 1.2, 9/8, 9/8); +@ints = (1, 1.2, 4/3, 1.2 * (4/3), 16/9); +$phs = 0; + + +$octmult = 1; +while( $val < 22050 ){ + for $i (0..$#ints){ + $val = $base * $ints[$i] * $octmult; + printf OUT "%.4f\n", $val; + } + $octmult *= 2; +} +close $file; +print "wrote to $file\n"; diff --git a/examples/test.scale b/examples/test.scale new file mode 100644 index 0000000..5a8c1e1 --- /dev/null +++ b/examples/test.scale @@ -0,0 +1,5 @@ +10. +11. +12 +13 +17 -- cgit v1.2.1