Hi,
Earlier today I posted some questions about the chord-names.scm file. Well
I figured out the attached file, and while it's not complete it works. So
my next attempt would be to make .ly file with only the chord-defs and
\include that in other files to access the chord names I defined. Will
that work??? Would be great, since I don't have to recompile or mess with
the predefined files...
If there's any interrest here I'd love to post here it when
it get's more polished...
--
Atte Andr� Jensen
%
% Make sure the correct msamxx.tfm is where lily can find it
% (ie cwd or lily's tfm dir).
%
% For normal (20pt) paper, do
%
% cp locate `msam9.tfm` $LILYPONDPREFIX/tfm
%
#(set! chord::names-alist-american
(append
'(
;; any changes here, see scm/chord-names.scm
; half diminished seventh chord = slashed o
(((0 . 0) (2 . -1) (4 . -1) (6 . -1)) . (("o" (type . "super")) ("/" (size .
-2) (offset . (-0.58 . 0.5))) ))
; diminished seventh chord = o
(((0 . 0) (2 . -1) (4 . -1) (6 . -2)) . (("o" (type . "super"))))
; major 6 = 6
(((0 . 0) (2 . 0) (4 . 0) (5 . 0)) . (("6" (type . "super"))))
; major seventh chord = triangle
(((0 . 0) (2 . 0) (4 . 0) (6 . 0)) . (("N" (type . "super") (style . "msam")
(size . -3))))
; minor major seventh chord = m triangle
(((0 . 0) (2 . -1) (4 . 0) (6 . 0)) . (("m") ("N" (type . "super") (style .
"msam") (size . -3))))
; augmented dominant = +7
(((0 . 0) (2 . 0) (4 . +1) (6 . -1)) . (("+7" (type . "super"))))
; dominant flat 5 = 7b5
(((0 . 0) (2 . 0) (4 . -1) (6 . -1)) . (("7" (type . "super"))
("accidentals--1" (font . "feta") (type . "super")) ("5" (type . "super"))))
)
chord::names-alist-american))
chord = \notes\transpose c''\chords{
\property ChordNames.chordNameStyle = "american"
c:m5-.7- % o = diminished seventh chord
c:m5-.7 % slashed o = m7b5
c:maj % triangle = maj
c:m.7+ % m triangle = minor major seventh chord
c:7.5+ % +7 = augmented dominant
c:7.5- % 7b5 = hard diminished dominant
c:6 % 6 = major triad with added sixth
% the rest is just for testing that others look ok
c:m % m = minor triad
c:m.6 % m6 = minor triad with added sixth
}
\score{
<
\context ChordNames \chord
\context Staff \chord
>
\paper
{
\translator { \ChordNameContext chordNameWordSpace = #1 }
\translator { \LyricsContext textScriptWordSpace = #0.3 }
}
}
