input/test/banter-chords.ly

   1 \version "1.3.2";
   2
   3 \header{
   4 enteredby =      "jcn";
   5 copyright =      "public domain";
   6 TestedFeatures =         "Banter named chords";
   7 }
   8
   9 % test German (Banter) naming
  10 % for more conventional naming, comment scm stuff out
  11
  12 % {
  13 #(set! pitch-names-alist
  14       (append
  15       '(
  16         ; use these for German naming
  17         ((6 . 0) . ("H" ""))
  18         ((6 . -1) . ("B" ("feta-1" . "\12")))
  19         )
  20       pitch-names-alist))
  21
  22 #(set! chord-names-alist
  23       (append
  24       '(
  25         (((0 . 0) (2 . -1) (4 . -1)) . ("m" . ("script" . "5-")))
  26         ; Co iso Cm5-7-
  27         ; urg, niet te pruimen
  28         ; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
  29         (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
  30         )))
  31 % }
  32
  33 chord = \notes\transpose c''\chords{
  34         % dim modifier means: lower all implicit additions
  35         c:dim9
  36         c:dim
  37         c:dim7
  38         % explicit additions are taken as entered:
  39         c:m5-.7-
  40         % note that 7 is a special case: it's always lowered by 1...
  41         c:dim7-.9
  42         c:dim9-.11
  43
  44         % test German names
  45         b:dim7
  46         bes:m5-
  47
  48         \break
  49
  50         c:sus2  %?
  51         c:sus4
  52         c^3
  53         c^3.5
  54         c:2.6^5
  55         c:dim^5-
  56         c:dim7^5-
  57         cis:m5-
  58 }
  59
  60 \score{
  61         <
  62                 \context ChordNames \chord
  63                 \context Staff \chord
  64         >
  65 }
  66