input/test/Cc-chords.ly

   1 \version "1.7.10"
   2 \header {
   3   texidoc="Jazz chord names, but with lower case names for minor chords
   4
   5 BROKEN. FIXME.
   6 "
   7 }
   8
   9
  10 %%%
  11 %%  UGH UH GUG UHGUHGHGH GHG
  12 % -- this is fucking up global name space.
  13 %
  14 % imagine doing
  15 %
  16 %   lilypond Cc-chords.ly ..other-files-testing-chords...
  17 %
  18 % then the other files will get messed up.
  19 %%
  20
  21 %{
  22
  23 FIXME:
  24
  25 %#(assoc-set! chord::names-alist-jazz
  26 %  '((0 . 0) (2 . -1)) '(""))
  27
  28 %#(assoc-set! chord::names-alist-jazz
  29 %   '((0 . 0) (2 . -1) (4 . 0) (6 . -1)) '("7"))
  30
  31 #(define (pitch->chord-name-text-banter pitch additions)
  32   (let ((name (pitch->text-banter pitch)))
  33     (if (member '(2 . -1) (map pitch->note-name additions))
  34         (cons (string-append
  35                (string-downcase (substring (car name) 0 1))
  36                (substring (car name) 1))
  37                (cdr name))
  38         name)))
  39 %}
  40
  41
  42 \score {
  43   <
  44     #(set-chord-name-style 'jazz)
  45     \context ChordNames \chords { c1 c:m c:m7 }
  46   >
  47 }
  48 %% new-chords-done %%