input/test/chords.ly

   1
   2 \version "1.7.16"
   3 \score { \notes { c4^"fixme"}}
   4
   5
   6 %{
   7 Would this be acceptable/good enough/convenient for entry?
   8
   9    Convention/Standard    Lily
  10
  11    C#                     cis
  12    Cb                     ces
  13    Cm Cmin               c:3- c:m c:min
  14    Caug                   c:5+ c:aug
  15    Cdim                   c:3-.5- c:dim
  16    Cmaj7                  c:7+ c:maj
  17    C7                     c:7
  18    Csus Csus4            c:4 c:sus
  19
  20 %}
  21
  22 %{
  23
  24 % used to be quarter notes here. Why? --hwn
  25 scales =  \notes \transpose c c' \chords{
  26                 %<<c e g>>1
  27                 c1:m c:min c:dim c:aug c:sus c:maj
  28                 c1:6 c:7 c:9 c:11 c:13
  29                 c:m7 c:m sus c:m7.sus
  30                 c:dim7 c:dim9 c2:7^5
  31                 c:13^5.7.9.11
  32                 % c1:7^5 c:13^5
  33                 c1 g d a e b fis
  34                 c1 f bes es as des ges
  35                 % wierd, multiple :add, ^sub
  36                 c:7+.9-^3.5
  37                 % long
  38                 c\breve c\longa
  39         }
  40
  41 keys =  \notes{
  42                 s1
  43                 s1 s1 s1
  44                 s1 s1
  45                 s1
  46                 \key g \major s1
  47                 \key d \major s1
  48                 \key a \major s1
  49                 \key e \major s1
  50                 \key b \major s1
  51                 \key fis \major s1
  52                 \key c \major s1
  53                 \key f \major s1
  54                 \key bes \major s1
  55                 \key es \major s1
  56                 \key as \major s1
  57                 \key des \major s1
  58                 \key ges \major s1
  59                 \key c \major s1*2
  60                 \key c \major s1*6
  61         }
  62
  63 \score{
  64         <
  65                 \context ChordNames \scales
  66                 \context Staff < \scales \keys >
  67         >
  68         \paper{
  69                 \translator {
  70                         \ChordNamesContext
  71                         ChordName \override #'word-space = #1
  72                 }
  73         }
  74 }
  75 %% new-chords-done %%
  76 %}