input/test/banter-chords.ly

   1 \version "1.3.4";
   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 % urg,
  13 % this shows a serious shortcoming with our guile approach:
  14 % we can't (easily) display banter/non banter chords alongside
  15 % eachother.  These guile lists are fixed in the guile environment
  16 % when this file has been parsed...
  17
  18 % {
  19 #(set! pitch-names-alist
  20       (append
  21       '(
  22         ; use these for German naming
  23         ((6 . 0) . ("H" ""))
  24         ((6 . -1) . ("B" ("feta-1" . "\12")))
  25         )
  26       pitch-names-alist))
  27
  28 #(set! chord-names-alist
  29       (append
  30       '(
  31         (((0 . 0) (2 . -1) (4 . -1)) . ("m" . ("script" . "5-")))
  32         ; Co iso Cm5-7-
  33         ; urg, niet te pruimen
  34         ; (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("feta-1" . ".")))
  35         (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("" . ("script" . "o")))
  36         )))
  37 % }
  38
  39 chord = \notes\transpose c''\chords{
  40         % dim modifier means: lower all implicit additions
  41         c:dim9
  42         c:dim
  43         c:dim7
  44         % explicit additions are taken as entered:
  45         c:m5-.7-
  46         % note that 7 is a special case: it's always lowered by 1...
  47         c:dim7-.9
  48         c:dim9-.11
  49
  50         % test German names
  51         b:dim7
  52         bes:m5-
  53
  54         \break
  55
  56         c:sus2  %?
  57         c:sus4
  58         c^3
  59         c^3.5
  60         c:2.6^5
  61         c:dim^5-
  62         c:dim7^5-
  63         cis:m5-
  64 }
  65
  66 \score{
  67         <
  68                 \context ChordNames \chord
  69                 \context Staff \chord
  70         >
  71 }
  72