diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2015-04-07 06:41:24 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2016-10-11 08:32:39 +0200 |
commit | bc2db67ed19a2aa895677bcd2549608cdaaf488b (patch) | |
tree | e588f3bc7cf71f1d1e50b890888d2de92688dcee | |
parent | de854cda6ca1344345863102054c018a5750df57 (diff) |
WIP: add more Stick tunings
-rw-r--r-- | ly/string-tunings-init.ly | 41 |
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) |