From e770deffe97283bbedc3645ffae340dbb5497441 Mon Sep 17 00:00:00 2001 From: Rune Zedeler Date: Tue, 10 Jun 2003 14:14:09 +0000 Subject: [PATCH] * ly/property-init.ly (germanChords): Added. (semiGermanChords): Added. * input/test/chord-names-german.ly: Use new macros --- ChangeLog | 7 +++++++ input/test/chord-names-german.ly | 16 +++++++--------- ly/property-init.ly | 9 +++++++++ 3 files changed, 23 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8464794242..e4bf7d9a7d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2003-06-10 Rune Zedeler + + * ly/property-init.ly (germanChords): Added. + (semiGermanChords): Added. + + * input/test/chord-names-german.ly: Use new macros + 2003-06-09 Heikki Junes * lilypond-indent.el: Use similar parenthesis highlighting for diff --git a/input/test/chord-names-german.ly b/input/test/chord-names-german.ly index d14fa52493..76e44f018c 100644 --- a/input/test/chord-names-german.ly +++ b/input/test/chord-names-german.ly @@ -1,18 +1,16 @@ -\version "1.7.18" +\version "1.7.20" \header { texidoc = "@cindex Chord Names German By setting @code{ChordNames.chordRootNamer}, the root of the chord may be named with a different function. " } -scm = \chords { c4/c cis/cis cisis/cisis ces/ces ceses/ceses b/b bis/bis bes/bes beses/beses } +scm = \chords { c1/c cis/cis cisis/cisis ces/ces ceses/ceses b/b bis/bis bes/bes beses/beses \bar "||" } \score { -< \context ChordNames \chords < - % #t gives true german chord-names - % #f gives semi-german chord-names - +\notes < + % \germanChords gives true german chord-names + % \semiGermanChords gives semi-german chord-names - % - with Bb and below keeping the english names - \property ChordNames. chordRootNamer = #(chord-name->german-markup #f) - \property ChordNames. chordNoteNamer = #note-name->german-markup - \scm > - \context Voice \scm > + \context ChordNames { \scm \germanChords \scm \semiGermanChords \scm } + \context Voice { \scm s1*0^"germanChords" \scm s1*0^"semiGermanChords" \scm } > } diff --git a/ly/property-init.ly b/ly/property-init.ly index ca1caf0e81..ae13649de6 100644 --- a/ly/property-init.ly +++ b/ly/property-init.ly @@ -265,3 +265,12 @@ unHideNotes = \sequential { \property Voice.Beam \revert #'transparent \property Staff.Accidental \revert #'transparent } + +germanChords = { + \property ChordNames. chordRootNamer = #(chord-name->german-markup #t) + \property ChordNames. chordNoteNamer = #note-name->german-markup +} +semiGermanChords = { + \property ChordNames. chordRootNamer = #(chord-name->german-markup #f) + \property ChordNames. chordNoteNamer = #note-name->german-markup +} -- 2.39.5