From: Patrick Schmidt <PLS@patrick-schmidts-computer.local>
Date: Fri, 17 Sep 2010 09:10:09 +0000 (+0200)
Subject: power chord symbol
X-Git-Tag: release/2.13.37-1~31
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f09f236f554124b3830332cfcf2c900f07197b68;p=lilypond.git

power chord symbol

Added power chord definition, symbol and command to typeset this symbol.
---

diff --git a/ly/chord-modifiers-init.ly b/ly/chord-modifiers-init.ly
index 98b11b6752..82d996d61b 100644
--- a/ly/chord-modifiers-init.ly
+++ b/ly/chord-modifiers-init.ly
@@ -43,6 +43,11 @@ partialJazzMusic = {
     <c d es>-\markup { "m" }-\markup { \normal-size-super "sus2" }
 }
 
+powerChordSymbol = {
+    <c g>-\markup { \normal-size-super "5" }
+    <c g c'>1-\markup { \normal-size-super "5" }
+}
+
 
 %% TODO: compatibility ignatzek code
 fullJazzExceptions=
@@ -51,5 +56,8 @@ fullJazzExceptions=
 partialJazzExceptions=
 #(sequential-music-to-chord-exceptions partialJazzMusic #f)
 
+powerChordExceptions =
+  #(sequential-music-to-chord-exceptions powerChordSymbol #t)
+
 ignatzekExceptions  =
 #(sequential-music-to-chord-exceptions ignatzekExceptionMusic #t)
diff --git a/ly/property-init.ly b/ly/property-init.ly
index 6c6a41a831..b08c572497 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -123,6 +123,9 @@ italianChords = {
   \set chordRootNamer = #(chord-name->italian-markup #f)
   \set chordPrefixSpacer = #0.4
 }
+powerChords = {
+  \set chordNameExceptions = #powerChordExceptions
+}
 
 
 %% compressFullBarRests