Re: function to replace notes by rests

[Malte Meyn]

Am 23.11.2015 um 10:46 schrieb Marc Hohl:
> As the file is a bit lengthy, I think of a way to just redefine
> \xNotes to change every note to its corresponding rest, instead of
> rewriting the whole file (or using sed or any other external script).
>
> Has anyone a scheme routine at hand that does exactly this job?

I wrote this but it doesn’t work well in relative mode:

\version "2.19.30"

notesToRests =
#(define-music-function (music) (ly:music?)
   (music-map
    (lambda (m)
      (if (eq? (ly:music-property m 'name) 'NoteEvent)
          (make-music 'RestEvent
            'duration (ly:music-property m 'duration))
          m))
    music))

\relative {
  c' d e f \notesToRests { g a b2 g8 c } f e c2
}