Re: entering chords

[Thomas Morley]

2014-03-24 0:02 GMT+01:00 MING TSANG <address@hidden>:
>
>
> The sample clr you provide does not output exactly what I am looking.  I am
> looking for a "function" that will tweak the first enter pitch to have color
> for all the <..> entries not all the pitch inside the <..> to have the same
> color.

How about below?
Also, I added an optional argument, which you can use to specify which
chord-note should be colored.
Default is 'first'.
It's possible to switch to 'last'.
Other settings like 'fourth' at own risk:
Ofcourse specifying 'fourth' will result in an error, if any chord has
not enough notes.

\version "2.18.0"

clr =
#(define-music-function (parser location which color music)
    ((procedure? car) color? ly:music?)
  (music-map
    (lambda (mus)
      (if (music-is-of-type? mus 'event-chord)
          (let* ((evt-chrd-nts (event-chord-notes mus)))
           (if (> (length evt-chrd-nts) 1)
               (let ((first-nh (which evt-chrd-nts)))
                 #{ \tweak #'color #color #first-nh #})
               mus)
            mus)
          mus))
    music))

myMusic =
\relative c' {
        <c e g>4-!
        <d e f>^"xy"
        <e-1>
        f---2^"foo"
}

\new Staff \clr #red \myMusic
\new Staff \clr #last #green \myMusic
\new Staff \clr #second #yellow \myMusic

Cheers,
  Harm