[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Small notes in chords
From: |
Michael Welsh Duggan |
Subject: |
Re: Small notes in chords |
Date: |
Thu, 09 Jun 2011 19:58:51 -0400 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/24.0.50 (gnu/linux) |
Peter Crighton <address@hidden> writes:
> How can I make some notes of a chord (for example background vocals)
> smaller than the lead melody? I know of tweaking the font-size, but I
> don't want to do this for every single noteā¦ Is there an easier way?
I wrote the following trying to do the same thing. Here's s snippet
example:
\include "english.ly"
t = #(define-music-function (parser location x) (ly:music?)
(music-map (lambda (x)
(if (eq? (ly:music-property x 'name) 'EventChord)
(let ((copy (ly:music-deep-copy x)))
(let ((elements (cdr (ly:music-property copy 'elements))))
(while (pair? elements)
(set! (ly:music-property (first elements) 'tweaks)
(acons 'font-size -3 (ly:music-property (car elements)
'tweaks)))
(set! elements (cdr elements))))
copy) x))
x))
\relative f' {
\clef treble
\key bf \major
\t { r4 r8 <bf g ef bf> <ef bf g g'>4 <d bf f! f'!> |
<c bf f f'>2 ~ <c a f f'>4 <a f c' f> |
<bf d f>1 ~ | }
}
The function will make all but the first note head mentioned in the
chord be displayed normally, with any other note heads in the chord
using font-size -3.
Here is the output:
--
Michael Welsh Duggan
(address@hidden)