parsing scl files

1 files changed, 55 insertions, 0 deletions

diff --git a/index.html b/index.html
index 2bfc678..fc82edb 100644
--- a/index.html
+++ b/index.html
@@ -11,6 +11,47 @@ pre {
   white-space: pre-line;
 }
 </style>
+
+<script type="text/scale" id="meantone-scl">
+! meanquar.scl
+!
+1/4-comma meantone scale. Pietro Aaron's temperament (1523)
+ 12
+!
+ 76.04900
+ 193.15686
+ 310.26471
+ 5/4
+ 503.42157
+ 579.47057
+ 696.57843
+ 25/16
+ 889.73529
+ 1006.84314
+ 1082.89214
+ 2/1
+</script>
+
+<script type="text/scale" id="twelveet-scl">
+! 12et.scl
+!
+12 equal temperament
+ 12
+!
+ 100.
+ 200.
+ 300.
+ 400.
+ 500.
+ 600.
+ 700.
+ 800.
+ 900.
+ 1000.
+ 1100.
+ 1200.
+</script>
+
 <pre>
 <script src="intonation.js"></script>
 <script>
@@ -47,6 +88,13 @@ write( s.range(0, 13).map(function(i){ return i.toFixed(0) }).join(delim) )
 write("")
 
 s = new Intonation({
+  scl: document.querySelector("#twelveet-scl").innerHTML
+})
+write("12-tet.scl:")
+write( s.range(0, s.scale.length+1).map(function(i){ return i.toFixed(0) }).join(delim) )
+write("")
+
+s = new Intonation({
   tet: 17,
 })
 write("17-tet")
@@ -60,6 +108,13 @@ write("partch:")
 write( s.range(0, 44).map(function(i){ return i.toFixed(0) }).join(delim) )
 write("")
 
+s = new Intonation({
+  scl: document.querySelector("#meantone-scl").innerHTML
+})
+write("meantone.scl:")
+write( s.range(0, s.scale.length+1).map(function(i){ return i.toFixed(0) }).join(delim) )
+write("")
+
 </script>
 <script src="http://asdf.us/harp/js/vendor/Tone.min.js"></script>
 <script>