input/test/banter-chords.ly

   1 \version "1.7.6"
   2
   3
   4 \header{
   5 texidoc =  "banter  chords
   6
   7
   8 FIXME
   9
  10 "
  11 }
  12
  13 % test German (Banter) naming
  14 % for more conventional naming, comment scm stuff out
  15
  16 % urg,
  17 % this shows a serious shortcoming with our guile approach:
  18 % we can't (easily) display banter/non banter chords alongside
  19 % eachother.  These guile lists are fixed in the guile environment
  20 % when this file has been parsed...
  21
  22 %{
  23
  24
  25 %% FIXME:
  26
  27 #;(define chord::names-alist-banter '())
  28 #(set! chord::names-alist-banter
  29       (append
  30       '(
  31         (((0 . 0) (2 . -1) (4 . -1)) . (("m" ("5-" . (type . "super")))))
  32          Co iso Cm5-7-
  33         (((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . ("o" (type "super")))
  34         )))
  35
  36 % German note names:
  37 % Urg, this will break again, in time
  38 % Is this correct, anyway?
  39
  40 #(define (pitch->text pitch)
  41   (if (and (= (modulo (cadr pitch) 7) 6)
  42               (= (caddr pitch) -1))
  43       (cons (make-string 1 (integer->char 66)) '())
  44       (cons
  45        (if (= (modulo (cadr pitch) 7) 6)
  46            (make-string 1 (integer->char 72))
  47            (make-string 1 (integer->char (+ (modulo (+ (cadr pitch) 2) 7) 65))))
  48        (if (= (caddr pitch) 0)
  49            '()
  50            (list (list (string-append "accidentals-"
  51                                       (number->string (caddr pitch)))
  52                        '(font . "feta")))))))
  53
  54 %}
  55
  56 chord =  \notes\transpose c' c''\chords{
  57         % dim modifier means: lower all implicit additions
  58         c:dim9
  59         c:dim
  60         c:dim7
  61         % explicit additions are taken as entered:
  62         c:m5-.7-
  63         % note that 7 is a special case: it's always lowered by 1...
  64         c:dim7-.9
  65         c:dim9-.11
  66
  67         % test German names
  68         b:dim7
  69         bes:m5-
  70
  71         \break
  72
  73         c:sus2  %?
  74         c:sus4
  75         c^3
  76         c^3.5
  77         c:2.6^5
  78         c:dim^5-
  79         c:dim7^5-
  80         cis:m5-
  81 }
  82
  83 \score{
  84         <
  85                 \context ChordNames \chord
  86                 \context Staff \chord
  87         >
  88 }
  89
  90 %% new-chords-done %%