add some more string tunings and doc them.

diff --git a/ChangeLog b/ChangeLog
index 582f6c4f73e32647a1e817e9cac9807a058f580b..0bb2b860d901b3ecbd240f2363fa7f08b8328070 100644 (file)
--- 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 b5c97c372fae6e86fbf5d533680b80144adec995..c456d54c83a3c9f1e9b71e93e7161158d9697d47 100644 (file)
--- 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 64b9908e71ce18684d3f377d37fcf80cfb42e9ff..bf98dbab41487de60be66c96050353531f7e01cc 100644 (file)
--- 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))))