summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2015-04-07 06:41:24 +0200
committerRicardo Wurmus <rekado@elephly.net>2016-10-11 08:32:39 +0200
commitbc2db67ed19a2aa895677bcd2549608cdaaf488b (patch)
treee588f3bc7cf71f1d1e50b890888d2de92688dcee
parentde854cda6ca1344345863102054c018a5750df57 (diff)
WIP: add more Stick tunings
-rw-r--r--ly/string-tunings-init.ly41
1 files changed, 41 insertions, 0 deletions
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)