input/test/dpncnt.ly

   1 \header {
   2     texidoc = "test file for new-new-chord names, ie, double-plus-new-chord-name"
   3 }
   4
   5 efull = \chordnames {
   6
   7     %% ? what 'bout maj7?
   8     %% c:7 = \markup { \normal-size-super "maj7" }
   9
  10     %% Choose your symbol for the fully diminished chord
  11     %% American:
  12     %% c:3-.5-.7- = \markup { "dim" }
  13     %% Jazz:
  14     c:3-.5-.7- = \markup { \super " o" }
  15
  16     %% Hmm
  17     %%             ;;Pick your favorite maj7
  18     %%     ((0) mathm-markup-object)  ;;a white triangle
  19     %%     ;;((0) mathn-markup-object) ;;a black triangle
  20     %% ;;((0) (make-simple-markup "maj7")) ;;good old maj7
  21
  22     %% This ok?
  23     c:7+ = \markup { \normal-size-super \override #'(font-family . math) "N" }
  24     %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  25     %%c:3.5.7 = \markup { \normal-size-super "maj7" }
  26 }
  27
  28 epartial = \chordnames {
  29     c:2^3 = \markup { \normal-size-super "2" }
  30     c:3-  = \markup { "m" }
  31     c:4   = \markup { \normal-size-super "sus4" }
  32     c:5^3 = \markup { \normal-size-super "5" }
  33 }
  34
  35
  36 xch = \chords { c:7+.9-^3.5 c:dim }
  37
  38 xch = \chords { c:13-.9+^11 }
  39 ch = \chords { c:7.9- }
  40 ch = \chords { c:7.9+.11+ }
  41 ch = \chords { c:7.9+ }
  42 ch = \chords {  c:3-.9^7 }      % madd9
  43
  44 ch = \chords {  c:3-.6.9^7 }    % m6/9
  45
  46 ch = \chords { c:dim9 }
  47
  48 ch = \chords { c:1^5 }
  49
  50 ch = \chords { c:m5-.7- } % o = diminished seventh chord
  51
  52 ch = \chords { c:7-     }
  53 %ch = \chords { c:3.11- }
  54
  55 %ch = \chords { c:7.11.13 }
  56
  57 % ch = \chords { c:7.11.15.17.19.21 }
  58 ch = \chords { c c:m c:7 c:7.9 c:7+.9 c:7.9+ c:9^7 c:3.11^7
  59 }
  60 %ch = \chords { c:9^7 c:5^3}
  61
  62 ch = \chords { c:3- c:3 c:2 c:7+ c:3-.5-.7- c:6.9^7
  63         c:4.7+^3
  64         r
  65
  66 }
  67
  68 \score{
  69     <
  70         \context ChordNames {
  71         % #(set-chord-name-style 'jazz)
  72         % #(set-chord-name-style 'double-plus-new-banter)
  73         % #(set-chord-name-style 'double-plus-new-jazz)
  74
  75         #(set-double-plus-new-chord-name-style 'banter
  76            `((separator . ,(make-simple-markup ":"))
  77              (full-exceptions . ,efull)
  78              (partial-exceptions . ,epartial)))
  79         \ch
  80         #(set-double-plus-new-chord-name-style 'jazz
  81            `((separator . ,(make-simple-markup ":"))
  82              (full-exceptions . ,efull)
  83              (partial-exceptions . ,epartial)))
  84
  85         \ch
  86     }
  87         \context Staff \notes \transpose c c' { \ch \ch}
  88     >
  89     \paper{
  90         \translator {
  91             \ChordNamesContext
  92             ChordName \override #'word-space = #1
  93         }
  94     }
  95 }