| I've been searching for a way to customize chord superscript. I found the example for chord-name-major7.ly but would like to customize minor 7th chords too. Also, I have not found a way to print 13th chords (C7/b9/13) without 'add' (C7/9/add13). -Jonathan |
\paper {
indent = 0\mm
raggedlastbottom = ##f
printpagenumber = ##t
oddFooterMarkup = "BOLLING GRYN . Number 33 . 6 July 1992 . Copyright © 1994 Jonathan Townes"
#(define bottommargin (* 17 mm))
}
%%%%%%%%%%%% Some macros %%%%%%%%%%%%%%%%%%%
sl = {
\override NoteHead #'style = #'slash
\override Stem #'transparent = ##t
}
sls = {
\override NoteHead #'style = #'slash
\override Stem #'transparent = ##f
}
nsl = {
\revert NoteHead #'style
\revert Stem #'transparent
}
#(define (parenthesize-callback callback)
(define (parenthesize-stencil grob)
(let* ((fn (ly:get-default-font grob))
(pclose (ly:font-get-glyph fn "accidentals.rightparen"))
(popen (ly:font-get-glyph fn "accidentals.leftparen"))
(subject (callback grob))
; remember old size
(subject-dim-x (ly:stencil-extent subject 0))
(subject-dim-y (ly:stencil-extent subject 1)))
; add parens
(set! subject
(ly:stencil-combine-at-edge
(ly:stencil-combine-at-edge subject 0 1 pclose 0.2)
0 -1 popen 0.2))
; revert old size.
(ly:make-stencil
(ly:stencil-expr subject) subject-dim-x subject-dim-y)))
parenthesize-stencil)
\header {
title = \markup {
\override #'(font-name . "Lucida Grande")
{ "BOLLING GRYN [1]" }
}
composer = \markup {
\override #'(font-name . "Lucida Grande")
{ "JONATHAN TOWNES" }
}
}
\score {
<< \chords {
%\set majorSevenSymbol = \markup { "maj7" }
%A
d,1:maj7.9+.11+^5
e,:maj7.5+
f,:maj7.5-
ees,:7.9+
g,4:maj7.5+ \times 2/3 { r8 e,:maj7.5+ r } c,2:7.9+
r2 \times 2/3 { r4 d,2:7.9+ }
%B
des,1:maj7.5+
ges,/c
b,2:m7 f,:7
bes,1:7.9-
e,:3-.6.9
fis,:7.13-
g,:maj
bes,:7.9+
r
%C
b,:m7.5+
f,:maj7.5+
ges,:maj7.5-
e,:7.9+
des,:7.9+
r
g,:maj7.9+.11+
}
\relative c' {
\set Staff.midiInstrument = "acoustic grand"
\override Score.RehearsalMark #'extra-offset = #'( -1.0 . 2.5 )
\override Score.RehearsalMark #'print-function =
#(make-stencil-boxer .2 .5 Text_interface::print)
\override Glissando #'style = #'zigzag
\override Staff.TimeSignature #'style = #'()
\time 4/4
\key c \major
\mark \markup { \override #'(font-name . "Lucida Grande") { "A" } }
f4 des aes4. des8 |
dis8 e dis e dis c4. |
c'8 \acciaccatura des ees4. r2 | \break
\times 2/3 { c8 des, ees ~ } ees2 \times 2/3 { r8 des ees } |
fis4 \times 2/3 { r8 e b } ees4\glissando c |
r2 \times 2/3 { fis8 e a ~ } \times 2/3 { a fis e }
\bar "||" \break
%\once \override Score.RehearsalMark #'extra-offset = #'( 2.0 . 2.5 )
\mark \markup { \override #'(font-name . "Lucida Grande") { "B" } }
ees1 |
ees |
e?2 a2 | \break
b1 |
b2.. bes8 |
a2 fis4. a8 | \break
b,2 d |
cis2. e8 f ~ |
f2. d'4
\bar "||" \break
\mark \markup { \override #'(font-name . "Lucida Grande") { "c" } }
ges,4 d a4. d8 |
e8 f e f e des4. |
des'8 \acciaccatura d e4. r2 |
\times 2/3 { des8 e, d ~ } d2 \times 2/3 {des'8 e, f ~ } | \break
f1 |
r2.. f8 |
cis'8 e, e e e2 ~ |
e1
\bar "|."
} >>
\midi { \tempo 4=60}
\layout { }
}
\version "2.6.3"_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user
