Web-ja: update introduction

[lilypond.git] / ly / string-tunings-init.ly

diff --git a/ly/string-tunings-init.ly b/ly/string-tunings-init.ly
index b4259a8410a9acad6491db5e082a4587ad589c4a..927bbae6b257a2b08b2c91bf49f1287fc2ff6b8d 100644 (file)
--- a/ly/string-tunings-init.ly
+++ b/ly/string-tunings-init.ly
@@ -1,6 +1,6 @@
 %%%% This file is part of LilyPond, the GNU music typesetter.
 %%%%
-%%%% Copyright (C) 2010--2012 Carl D. Sorensen <c_sorensen@byu.edu>
+%%%% Copyright (C) 2010--2015 Carl D. Sorensen <c_sorensen@byu.edu>
 %%%%
 %%%% LilyPond is free software: you can redistribute it and/or modify
 %%%% it under the terms of the GNU General Public License as published by
@@ -15,7 +15,7 @@
 %%%% You should have received a copy of the GNU General Public License
 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
 
-\version "2.15.16"
+\version "2.19.22"
 
 %%  A stringTuning is a list of pitches ordered by string number
 %%  from 1 to N.
@@ -27,7 +27,7 @@
 %% lowest string number
 
 stringTuning =
-#(define-scheme-function (parser location chord)
+#(define-scheme-function (chord)
    (ly:music?)
    (_i "Convert @var{chord} to a string tuning.
 @var{chord} must be in absolute pitches and should have the highest
@@ -38,17 +38,18 @@ string number (generally the lowest pitch) first.")
 defaultStringTunings = #'()
 
 makeDefaultStringTuning =
-#(define-void-function (parser location symbol pitches) (symbol? list?)
+#(define-void-function (symbol pitches) (symbol? list?)
    (_i "This defines a string tuning @var{symbol} via a list of @var{pitches}.
 The @var{symbol} also gets registered in @code{defaultStringTunings}
 for documentation purposes.")
-   (ly:parser-define! parser symbol pitches)
+   (ly:parser-define! symbol pitches)
    (set! defaultStringTunings (acons symbol pitches defaultStringTunings)))
 
 %% guitar tunings
 \makeDefaultStringTuning #'guitar-tuning \stringTuning <e, a, d g b e'>
 \makeDefaultStringTuning #'guitar-seven-string-tuning \stringTuning <b,, e, a, d g b e'>
 \makeDefaultStringTuning #'guitar-drop-d-tuning \stringTuning <d, a, d g b e'>
+\makeDefaultStringTuning #'guitar-drop-c-tuning \stringTuning <c, g, c f a d'>
 \makeDefaultStringTuning #'guitar-open-g-tuning \stringTuning <d, g, d g b d'>
 \makeDefaultStringTuning #'guitar-open-d-tuning \stringTuning <d, a, d fis a d'>
 \makeDefaultStringTuning #'guitar-dadgad-tuning \stringTuning <d, a, d g a d'>
@@ -75,8 +76,8 @@ for documentation purposes.")
 %% ukulele tunings
 \makeDefaultStringTuning #'ukulele-tuning \stringTuning <g' c' e' a'>
 \makeDefaultStringTuning #'ukulele-d-tuning \stringTuning <a' d' fis' b'>
-\makeDefaultStringTuning #'tenor-ukulele-tuning \stringTuning <a' e' c' g>
-\makeDefaultStringTuning #'baritone-ukulele-tuning \stringTuning <e' b g d>
+\makeDefaultStringTuning #'tenor-ukulele-tuning \stringTuning <g c' e' a'>
+\makeDefaultStringTuning #'baritone-ukulele-tuning \stringTuning <d g b e'>
 
 %% orchestral strings
 \makeDefaultStringTuning #'violin-tuning \stringTuning <g d' a' e''>
@@ -87,5 +88,5 @@ for documentation purposes.")
 defaultStringTunings = #(reverse! defaultStringTunings)
 
 %% convert 5-string banjo tuning to 4-string by removing the 5th string
-"four-string-banjo" = #(lambda (tuning)
-                        (take tuning 4))
+four-string-banjo = #(lambda (tuning)
+                         (take tuning 4))