input/test/chords.ly

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