input/test/jazz-chords.ly

   1 %% This should only be necessary if your kpathsea setup is broken
   2 %%
   3 %% Make sure the correct msamxx.tfm is where lily can find it
   4 %% (ie cwd or lily's tfm dir).
   5 %%
   6 %% For normal (20pt) paper, do
   7 %%
   8 %%   cp locate `msam9.tfm` $LILYPONDPREFIX/tfm
   9
  10 #(set! chord::names-alist-american
  11       (append
  12       '(
  13          ;; any changes here, see scm/chord-names.scm
  14
  15
  16          ;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("o7" (type . "super"))))
  17          ;jazz: the delta, see jazz-chords.ly
  18          (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) .  (("N" (type . "super") (style . "msam") (size . -3))))
  19
  20          ;(((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (("x7" (type . "super"))))
  21          ; slashed o
  22          (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (("o" (type . "super")) ("/" (size . -2) (offset . (-0.58 . 0.5))) ("7" (type . "super"))))
  23
  24         )
  25       chord::names-alist-american))
  26
  27 chord = \notes\transpose c''\chords{
  28         \property ChordNames.ChordName \push #'style = #"american"
  29         c:m5-.7-
  30         c:m5-.7
  31 }
  32
  33 \score{
  34     <
  35         \context ChordNames \chord
  36         \context Staff \chord
  37     >
  38     \paper
  39     {
  40           \translator {
  41                 \ChordNameContext
  42                 ChordName \push #'word-space = #1
  43           }
  44     }
  45 }
  46