Re: Chords with smaller note heads

[Marc Hohl]

Am 21.08.2011 20:19, schrieb Alberto Simões:
> Hello
Hello Alberto,

I use the following definition:

opt = #(define-music-function (parser location note) (ly:music?)
   (set! (ly:music-property note 'tweaks)
                   (acons 'font-size -2 (ly:music-property note 'tweaks)))
       note)

< c \opt e g >4 < c  e \opt g > < \opt c e \opt g >

You'll have to mark every note you want to be smaller, though.

HTH,

Marc


> I was looking into a way to write chords with some note heads smaller 
> than others. I found a snippet with some lisp code (see bellow) that 
> works great if only one note of the chord needs to be smaller.
>
> The odds is that I need some chords with two normal heads, and a small 
> head, two small heads, and a normal head, and so on.
>
> Is there a better way than defining a different command (using that 
> lisp code as a base) for all combinations I need? :)
>
> Thank you
> Alberto
>
> The code I am using is:
>
> 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)
>                   (ly:music-set-property! (first elements) 'tweaks
>                    (acons 'font-size -2 (ly:music-property (car elements)
>                                          'tweaks)))
>                   (set! elements (cdr elements))))
>                 copy) x))
>    x))