input/test/jazz-chords.ly

   1 \version "1.3.96"
   2 %% This should only be necessary if your kpathsea setup is broken
   3 %%
   4 %% Make sure the correct msamxx.tfm is where lily can find it
   5 %% (ie cwd or lily's tfm dir).
   6 %%
   7 %% For normal (20pt) paper, do
   8 %%
   9 %%   cp locate `msam9.tfm` $LILYPONDPREFIX/tfm
  10
  11 #(set! chord::names-alist-american
  12       (append
  13       '(
  14          ;; any changes here, see scm/chord-names.scm
  15
  16
  17          ;(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (super "o7"))
  18          ;jazz: the delta, see jazz-chords.ly
  19          (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) .  (super ((family . "math") "N")))
  20
  21          ;(((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (super "x7"))
  22          ; slashed o
  23          (((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (rows (super "o") ((kern . -0.5) ((size . "-3") "/")) "7"))
  24         )
  25       chord::names-alist-american))
  26
  27 chord = \notes\transpose c''\chords{
  28         \property ChordNames.ChordNames \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                 \ChordNamesContext
  42                 ChordNames \push #'word-space = #1
  43           }
  44     }
  45 }
  46