Shamusworld >> Repos - music/blob - pop-chords-test.ly

   1 \version "2.16.0"
   2 \include "pop-chords.ly"
   3 \include "english.ly"           % English note names, for cryin' out loud...
   4
   5 % Good sizes are 16, 18, & 20
   6 staffSize = #16
   7 #(set-default-paper-size "letter")
   8 #(set-global-staff-size staffSize)
   9 #(ly:set-option (quote no-point-and-click))
  10
  11 \header
  12 {
  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" }
  15 }
  16
  17 Chords = \chordmode
  18 {
  19 % Triads
  20
  21         c1:^3
  22         c
  23         c:m
  24         c:sus2
  25         c:sus4
  26         c:aug
  27         c:dim
  28
  29 % Sharp/flat rendering
  30
  31         fs:m
  32         ef:m
  33
  34 % Sixths
  35
  36         c:6
  37         c:m6
  38
  39 % Sevenths, including altered
  40
  41         c:7                             % Dominant seventh
  42         c:maj7                  % Major seventh
  43         c:m7                    % Minor 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
  53
  54 % Ninths
  55
  56         c:7.9                   % Dominant ninth
  57         c:m7.9                  % Minor ninth
  58         c:maj9                  % Major ninth
  59         c:5.9                   % Add nine
  60         c:6.9                   % Six/nine
  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
  66
  67 % Elevenths
  68
  69         c:11                    % Dominant eleventh
  70         c:m11                   % Minor eleventh
  71         c:maj11                 % Major eleventh
  72         c:5.11                  % Add eleven
  73         c:m5.11                 % Minor add eleven
  74         c:m7.11                 % Minor seventh add eleven
  75
  76 % Thirteenths
  77
  78         c:13                    % Dominant thirteenth
  79         c:m7.9.13               % Minor thirteenth
  80         c:maj13                 % Major thirteenth
  81         c:5.13                  % Add thirteen
  82         c:13.9-                 % Dominant thirteen/b9
  83
  84 % Misc add chords
  85
  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
  92 }
  93
  94
  95 \score
  96 {
  97         <<
  98                 \new ChordNames = "chords" \Chords
  99                 \new Staff = "chordRhythm" \Chords
 100         >>
 101         \layout {
 102 %               ragged-last-bottom = ##t
 103                 ragged-last = ##t
 104         }
 105 }
 106
 107 \paper
 108 {
 109   #(define fonts (make-pango-font-tree
 110     "Times New Roman"
 111     "DomCasual BT"
 112     "Luxi Mono"
 113     (/ staffSize 20)))
 114 }
 115
 116 %{
 117 Here's a way to add parens to chords:
 118
 119 \version "2.16.0"
 120 >
 121 > #(define (left-parenthesis-ignatzek-chord-names in-pitches bass
 122 > inversion context)
 123 > (markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion
 124 > context))))
 125 >
 126 > #(define (right-parenthesis-ignatzek-chord-names in-pitches bass
 127 > inversion context)
 128 > (markup #:line ((ignatzek-chord-names in-pitches bass inversion
 129 > context) " )")))
 130 >
 131 > LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord-
 132 > names }
 133 > RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord-
 134 > names }
 135 > NPC = { \unset chordNameFunction }
 136 >
 137 > chordset = \chordmode
 138 > {
 139 >    c1:7 g1:7
 140 >    \LPC a1:7 \NPC f1:7
 141 >    c1:7 \RPC g1:7 \NPC
 142 >    c1:7 g1:7
 143 > }
 144 >
 145 > \score
 146 > {
 147 >    \new ChordNames \chordset
 148 > }
 149 %}