2 \include "pop-chords.ly"
3 \include "english.ly" % English note names, for cryin' out loud...
5 % Good sizes are 16, 18, & 20
7 #(set-default-paper-size "letter")
8 #(set-global-staff-size staffSize)
9 #(ly:set-option (quote no-point-and-click))
13 title = \markup { \override #'(font-family . sans) \fontsize #3.5 "Pop Chords" }
14 composer = \markup { \override #'(font-family . sans) \fontsize #1.3 "Words & music by James \"Shamus\" Hammons" }
29 % Sharp/flat rendering
39 % Sevenths, including altered
41 c:7 % Dominant seventh
42 c:maj7 % Major seventh
44 c:m7.5- % Minor seven flat 5
45 c:dim7 % Diminished seventh
46 c:sus4.7 % Seven sus 4
47 c:sus2.7 % Seven sus 2
48 c:m7+ % Minor major seventh
49 c:aug7 % Augmented seventh
50 c:7.5- % Dominant seven flat 5
51 cf:7+.5- % Major seven flat 5
52 cs:aug7+ % Augmented major seventh
56 c:7.9 % Dominant ninth
61 c:m6.9 % Minor six/nine
62 c:m7+9 % Minor major 9
63 c:7.9+ % Dominant seventh sharp nine
64 c:7.9- % Dominant seventh flat nine
65 c:aug7.9+ % Augmented seventh sharp nine
69 c:11 % Dominant eleventh
70 c:m11 % Minor eleventh
71 c:maj11 % Major eleventh
73 c:m5.11 % Minor add eleven
74 c:m7.11 % Minor seventh add eleven
78 c:13 % Dominant thirteenth
79 c:m7.9.13 % Minor thirteenth
80 c:maj13 % Major thirteenth
82 c:13.9- % Dominant thirteen/b9
86 c:7.9-.13- % Seventh add b9/b13
87 c:7.5+.9- % Augmented seventh add b9
88 c:maj9.11+ % Major ninth/#11
89 c:9.11+ % Dominant ninth/#11
90 % This is just a dom. 13th
91 % c:9.13 % Dominant ninth/13th
98 \new ChordNames = "chords" \Chords
99 \new Staff = "chordRhythm" \Chords
102 % ragged-last-bottom = ##t
109 #(define fonts (make-pango-font-tree
117 Here's a way to add parens to chords:
121 > #(define (left-parenthesis-ignatzek-chord-names in-pitches bass
123 > (markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion
126 > #(define (right-parenthesis-ignatzek-chord-names in-pitches bass
128 > (markup #:line ((ignatzek-chord-names in-pitches bass inversion
131 > LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord-
133 > RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord-
135 > NPC = { \unset chordNameFunction }
137 > chordset = \chordmode
140 > \LPC a1:7 \NPC f1:7
141 > c1:7 \RPC g1:7 \NPC
147 > \new ChordNames \chordset