input/test/chords.ly

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