From bc2db67ed19a2aa895677bcd2549608cdaaf488b Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 7 Apr 2015 06:41:24 +0200
Subject: WIP: add more Stick tunings

---
 ly/string-tunings-init.ly | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index d2089ea126..805ba069a0 100644
--- a/ly/string-tunings-init.ly
+++ b/ly/string-tunings-init.ly
@@ -91,6 +91,47 @@ for documentation purposes.")
 \makeDefaultStringTuning #'stick-matched-reciprocal-tuning
   \stringTuning <c' g d a, e, b,, c,, g,, d, a, e b>
 
+%% MR™ High Bass 4th  % TODO: melody note heights are probably wrong
+%stick-tuning-twelve-mr-high =
+%  \stringTuning <c' g d a e b        c,, g,, d, a, e a>
+%
+%% 12-String Classic™ High Bass 4th % TODO: melody note heights are probably wrong
+%stick-tuning-twelve-classic-high =
+%  \stringTuning <d' a e b, fis, cis, c,, g,, d, a, e a>
+%
+%% Deep Matched Reciprocal™  % TODO
+%stick-tuning-twelve-deep-mr =
+%  \stringTuning <bes f c g d a   bes,, f,, c, g, d a>
+%
+%% Raised Matched Reciprocal™ % TODO
+%stick-tuning-twelve-classic-high =
+%  \stringTuning <d' a e b, fis, cis,   d,, a,, e, b, fis cis>
+%
+%% Dual Bass Reciprocal™ % TODO
+%stick-tuning-twelve-dual-bass-r =
+%  \stringTuning <f' c g d, a, e,   b,, fis,, cis, gis, dis ais>
+
+%% tunings for 10-string Chapman Stick
+%% Baritone Melody™ % TODO: melody is wrong
+%stick-tuning-ten-baritone =
+%  \stringTuning <a e b fis cis  c,, g,, d, a, e>
+%
+%% Deep Baritone Melody™  % TODO: melody is wrong
+%chapman-stick-ten-deep-baritone =
+%  \stringTuning <g d a e b c,, g,, d, a, e>
+
+
+
+
+%% tunings for 10-string Alto Stick
+%% TODO: check them!
+\makeDefaultStringTuning #'alto-stick-tuning
+  \stringTuning <g d a e b  c g d a e>
+\makeDefaultStringTuning #'alto-stick-gregs-extended-tuning
+  \stringTuning <a e b fis cis  c g d a e>
+\makeDefaultStringTuning #'alto-stick-bobs-expanded-tuning
+  \stringTuning <a e b fis cis  a e b fis cis>
+
 
 defaultStringTunings = #(reverse! defaultStringTunings)
 
-- 
cgit v1.2.3