input/test/dpncnt.ly

   1 \version "1.7.18"
   2
   3 \header {
   4     texidoc = "test file for new-new-chord names, ie, double-plus-new-chord-name
   5 "
   6 }
   7
   8 efullmusic = \notes {
   9
  10     %% ? what 'bout maj7?
  11     %% c:7 = \markup { \normal-size-super "maj7" }
  12
  13     %% Choose your symbol for the fully diminished chord
  14     %% American:
  15     %% c:3-.5-.7- = \markup { "dim" }
  16     %% Jazz:
  17     %% c:3-.5-.7-
  18     <<c es ges bes>>-\markup { \super " o" }
  19
  20     %% Hmm, this ok?
  21     %% c:7+
  22     <<c e g b>>-\markup { \normal-size-super
  23                           \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 efull = #(sequential-music-to-chord-exceptions efullmusic #f)
  29
  30 epartialmusic = \notes {
  31     %c:2^3 =
  32     <<c d>>-\markup { \normal-size-super "2" }
  33     %c:3-
  34     <<c es>>-\markup { "m" }
  35     %c:4
  36     <<c f>>-\markup { \normal-size-super "sus4" }
  37     %c:5^3
  38     <<c g>>-\markup { \normal-size-super "5" }
  39 }
  40
  41 epartial = #(sequential-music-to-chord-exceptions epartialmusic #f)
  42
  43 % ugh FIXME?
  44 % default octave \chord mode has changed to c'
  45 ch = \notes \transpose c c'
  46 {
  47         <<c e g>>1
  48         <<c es g>>
  49         <<c e gis>>
  50         <<c es ges>> \break
  51         <<c e g bes>>
  52         <<c es g bes>>
  53         <<c e g b>>
  54         <<c es ges beses>>
  55         <<c es ges b>> \break
  56         <<c e gis bes>>
  57         <<c es g b>>
  58         <<c e gis b>>
  59         <<c es ges bes>>\break
  60         <<c e g a>>
  61         <<c es g a>>
  62         <<c e g bes d'>> % ??
  63         <<c es g bes d'>> \break
  64         <<c es g bes d' f' a' >>
  65         <<c es g bes d' f' >>
  66         <<c es ges bes d' >>
  67         <<c e g bes des' >> \break
  68         <<c e g bes dis'>>
  69         <<c e g bes d' f'>>
  70         <<c e g bes d' fis'>>
  71         <<c e g bes d' f' a'>>\break
  72         <<c e g bes d' fis' as'>>
  73         <<c e gis bes dis'>>
  74         <<c e g bes dis' fis'>>
  75         <<c e g bes d' f' as'>>\break
  76         <<c e g bes des' f' as'>>
  77         <<c e g bes d' fis'>>
  78         <<c e g b d'>>
  79         <<c e g bes d' f' as'>>\break
  80         <<c e g bes des' f' as'>>
  81         <<c e g bes des' f' a'>>
  82         <<c e g b d'>>
  83         <<c e g b d' f' a'>>\break
  84         <<c e g b d' fis'>>
  85         <<c e g bes des' f ' a'>>
  86         <<c f g>>
  87         <<c f g bes>>\break
  88         <<c f g bes d'>>
  89         <<c e g d'>>
  90         <<c es g f'>>
  91 }
  92
  93
  94 \score{
  95     <
  96         \context ChordNames {
  97         % #(set-chord-name-style 'jazz)
  98         % #(set-chord-name-style 'double-plus-new-banter)
  99         % #(set-chord-name-style 'double-plus-new-jazz)
 100
 101         #(set-chord-name-style 'banter)
 102         \ch
 103         #(set-chord-name-style 'jazz)
 104
 105         \ch
 106     }
 107         \context Staff \notes \transpose c c' { \ch \ch}
 108     >
 109     \paper{
 110         \translator {
 111             \ChordNamesContext
 112             ChordName \override #'word-space = #1
 113         }
 114     }
 115 }