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:3-.5.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
81 c:3.5.13 % Add thirteen (really a 6th chord)
82 c:3-.5.13 % Minor add thirteen (really a minor 6th chord)
83 c:13.9- % Dominant thirteen/b9
87 c:7.9-.13- % Seventh add b9/b13
88 c:7.5+.9- % Augmented seventh add b9
89 c:maj9.11+ % Major ninth/#11
90 c:9.11+ % Dominant ninth/#11
91 % This is just a dom. 13th
92 % c:9.13 % Dominant ninth/13th
99 \new ChordNames = "chords" \Chords
100 \new Staff = "chordRhythm" \Chords
103 % ragged-last-bottom = ##t
110 #(define fonts (make-pango-font-tree
118 Here's a way to add parens to chords:
122 > #(define (left-parenthesis-ignatzek-chord-names in-pitches bass
124 > (markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion
127 > #(define (right-parenthesis-ignatzek-chord-names in-pitches bass
129 > (markup #:line ((ignatzek-chord-names in-pitches bass inversion
132 > LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord-
134 > RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord-
136 > NPC = { \unset chordNameFunction }
138 > chordset = \chordmode
141 > \LPC a1:7 \NPC f1:7
142 > c1:7 \RPC g1:7 \NPC
148 > \new ChordNames \chordset