Re: RhythmicStaff issues in a snippet

[David Kastrup]

Dominique Faure <address@hidden> writes:

> Hi,
> I released the following snippet in the LSR:
> http://lsr.dsi.unimi.it/LSR/Item?id=848
>
> Sadly, it lacks some features I'd really like to have but couldn't
> manage to provide (I hope some of you could help me to).
>
> Having to give both the melodic and the rhythmic definitions is quite
> cumbersome. Despite the RhythmicStaff is simplifying the process, how
> could I make it display chord of dotted notes as single dotted notes?
> Dots are kept unmerged. Is it a bug?

Calling it a bug seems like a reasonable interpretation of the
behavior.  You might want to pass your music through the following music
function.  It goes to a bit of effort to make sure that accents survive.

thinout =
#(define-music-function (parser location music) (ly:music?)
   (for-some-music
    (lambda (m)
      (and (music-is-of-type? m 'event-chord)
           (let ((elts (ly:music-property m 'elements)))
             (if (pair? elts)
                 (set-cdr!
                  elts
                  (filter!
                   (lambda (m) (not (ly:music-property m 'duration #f)))
                   (cdr elts))))
             #t)))
    music)
   music)

\new RhythmicStaff
\thinout
\relative c  { <d, g d'>4 e f8 g a4 <d b g>2. c4 d4. e8 f4 g }


-- 
David Kastrup