From: Erlend Aasland <erlenda@gmail.com>
Date: Mon, 17 Apr 2006 12:54:46 +0000 (+0000)
Subject: add some more string tunings and doc them.
X-Git-Tag: release/2.9.3~54
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0a8db3a39433e71ba710df67c5d7dc2bbdcf11a1;p=lilypond.git

add some more string tunings and doc them.
---

diff --git a/ChangeLog b/ChangeLog
index 582f6c4f73..0bb2b860d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -9,6 +9,10 @@
 
 	* ps/music-drawing-routines.ps (draw_dashed_line): fix dash pattern bug.
 
+	* scm/output-lib.scm: add some more predefined string tunings.
+
+	* Documentation/user/instrument-notation.itely: and doc them.
+
 2006-04-16  Jürgen Reuter  <reuter@ipd.uka.de>
 
 	* ly/engraver.ly: Remove obsolete comments.
diff --git a/Documentation/user/instrument-notation.itely b/Documentation/user/instrument-notation.itely
index b5c97c372f..c456d54c83 100644
--- a/Documentation/user/instrument-notation.itely
+++ b/Documentation/user/instrument-notation.itely
@@ -1882,7 +1882,8 @@ In the next example,
 >>
 @end lilypond
 
-LilyPond comes with predefined string tunings for banjo, guitar and bass guitar.
+LilyPond comes with predefined string tunings for banjo, mandolin, guitar
+and bass guitar.
 
 @example
 \set TabStaff.stringTunings = #bass-tuning
diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 64b9908e71..bf98dbab41 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -39,8 +39,11 @@
 		       (else fret)))))))
 
 
+; default tunings for common string instruments
 (define-public guitar-tuning '(4 -1 -5 -10 -15 -20))
+(define-public guitar-open-g-tuning '(2 -1 -5 -10 -17 -22))
 (define-public bass-tuning '(-17 -22 -27 -32))
+(define-public mandolin-tuning '(16 9 2 -5))
 
 ;; tunings for 5-string banjo
 (define-public banjo-open-g-tuning '(2 -1 -5 -10 7))
@@ -48,11 +51,7 @@
 (define-public banjo-modal-tuning '(2 0 -5 -10 7))
 (define-public banjo-open-d-tuning '(2 -3 -6 -10 9))
 (define-public banjo-open-dm-tuning '(2 -3 -6 -10 9))
-;; convert 5-string banjo tunings to 4-string tunings by
-;; removing the 5th string
-;;
-;; example:
-;; \set TabStaff.stringTunings = #(four-string-banjo banjo-open-g-tuning)
+;; convert 5-string banjo tuning to 4-string by removing the 5th string
 (define-public (four-string-banjo tuning)
   (reverse (cdr (reverse tuning))))