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:3.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:3.5.11                % Add eleven
  73         c:3-.5.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: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
  84
  85 % Misc add chords
  86
  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
  93 }
  94
  95
  96 \score
  97 {
  98         <<
  99                 \new ChordNames = "chords" \Chords
 100                 \new Staff = "chordRhythm" \Chords
 101         >>
 102         \layout {
 103 %               ragged-last-bottom = ##t
 104                 ragged-last = ##t
 105         }
 106 }
 107
 108 \paper
 109 {
 110   #(define fonts (make-pango-font-tree
 111     "Times New Roman"
 112     "LilyJazz Text"
 113     "Luxi Mono"
 114     (/ staffSize 20)))
 115 }
 116
 117 %{
 118 Here's a way to add parens to chords:
 119
 120 \version "2.16.0"
 121 >
 122 > #(define (left-parenthesis-ignatzek-chord-names in-pitches bass
 123 > inversion context)
 124 > (markup #:line ("( " (ignatzek-chord-names in-pitches bass inversion
 125 > context))))
 126 >
 127 > #(define (right-parenthesis-ignatzek-chord-names in-pitches bass
 128 > inversion context)
 129 > (markup #:line ((ignatzek-chord-names in-pitches bass inversion
 130 > context) " )")))
 131 >
 132 > LPC = { \set chordNameFunction = #left-parenthesis-ignatzek-chord-
 133 > names }
 134 > RPC = { \set chordNameFunction = #right-parenthesis-ignatzek-chord-
 135 > names }
 136 > NPC = { \unset chordNameFunction }
 137 >
 138 > chordset = \chordmode
 139 > {
 140 >    c1:7 g1:7
 141 >    \LPC a1:7 \NPC f1:7
 142 >    c1:7 \RPC g1:7 \NPC
 143 >    c1:7 g1:7
 144 > }
 145 >
 146 > \score
 147 > {
 148 >    \new ChordNames \chordset
 149 > }
 150 %}