input/test/dpncnt.ly

   1
   2 \header {
   3     texidoc = "test file for new-new-chord names, ie, double-plus-new-chord-name
   4 TODO: FIXME.
   5 "
   6 }
   7
   8 \score { \notes { c4^"fixme"}}
   9
  10 %{
  11
  12 efull = \chordnames {
  13
  14     %% ? what 'bout maj7?
  15     %% c:7 = \markup { \normal-size-super "maj7" }
  16
  17     %% Choose your symbol for the fully diminished chord
  18     %% American:
  19     %% c:3-.5-.7- = \markup { "dim" }
  20     %% Jazz:
  21     c:3-.5-.7- = \markup { \super " o" }
  22
  23     %% Hmm
  24     %%             ;;Pick your favorite maj7
  25     %%     ((0) mathm-markup-object)  ;;a white triangle
  26     %%     ;;((0) mathn-markup-object) ;;a black triangle
  27     %% ;;((0) (make-simple-markup "maj7")) ;;good old maj7
  28
  29     %% This ok?
  30     c:7+ = \markup { \normal-size-super \override #'(font-family . math) "N" }
  31     %%c:3.5.7 = \markup { \override #'(font-family . math) "M" }
  32     %%c:3.5.7 = \markup { \normal-size-super "maj7" }
  33 }
  34
  35 epartial = \chordnames {
  36     c:2^3 = \markup { \normal-size-super "2" }
  37     c:3-  = \markup { "m" }
  38     c:4   = \markup { \normal-size-super "sus4" }
  39     c:5^3 = \markup { \normal-size-super "5" }
  40 }
  41
  42
  43 ch = \notes \transpose c' c'
  44 {
  45         <<c e g>>1
  46         <<c es g>>
  47         <<c e gis>>
  48         <<c es ges>> \break
  49         <<c e g bes>>
  50         <<c es g bes>>
  51         <<c e g b>>
  52         <<c es ges beses>>
  53         <<c es ges b>> \break
  54         <<c e gis bes>>
  55         <<c es g b>>
  56         <<c e gis b>>
  57         <<c es ges bes>>\break
  58         <<c e g a>>
  59         <<c es g a>>
  60         <<c e g bes d'>> % ??
  61         <<c es g bes d'>> \break
  62         <<c es g bes d' f' a' >>
  63         <<c es g bes d' f' >>
  64         <<c es ges bes d' >>
  65         <<c e g bes des' >> \break
  66         <<c e g bes dis'>>
  67         <<c e g bes d' f'>>
  68         <<c e g bes d' fis'>>
  69         <<c e g bes d' f' a'>>\break
  70         <<c e g bes d' fis' as'>>
  71         <<c e gis bes dis'>>
  72         <<c e g bes dis' fis'>>
  73         <<c e g bes d' f' as'>>\break
  74         <<c e g bes des' f' as'>>
  75         <<c e g bes d' fis'>>
  76         <<c e g b d'>>
  77         <<c e g bes d' f' as'>>\break
  78         <<c e g bes des' f' as'>>
  79         <<c e g bes des' f' a'>>
  80         <<c e g b d'>>
  81         <<c e g b d' f' a'>>\break
  82         <<c e g b d' fis'>>
  83         <<c e g bes des' f ' a'>>
  84         <<c f g>>
  85         <<c f g bes>>\break
  86         <<c f g bes d'>>
  87         <<c e g d'>>
  88         <<c es g f'>>
  89 }
  90
  91
  92 \score{
  93     <
  94         \context ChordNames {
  95         % #(set-chord-name-style 'jazz)
  96         % #(set-chord-name-style 'double-plus-new-banter)
  97         % #(set-chord-name-style 'double-plus-new-jazz)
  98
  99         #(set-double-plus-new-chord-name-style 'banter
 100            `((separator . ,(make-simple-markup ":"))
 101              (full-exceptions . ,efull)
 102              (partial-exceptions . ,epartial)))
 103         \ch
 104         #(set-double-plus-new-chord-name-style 'jazz
 105            `((separator . ,(make-simple-markup ":"))
 106              (full-exceptions . ,efull)
 107              (partial-exceptions . ,epartial)))
 108
 109         \ch
 110     }
 111         \context Staff \notes \transpose c c' { \ch \ch}
 112     >
 113     \paper{
 114         \translator {
 115             \ChordNamesContext
 116             ChordName \override #'word-space = #1
 117         }
 118     }
 119 }
 120
 121 %}