From 74628ba358f39934545ab9b59f1b53e710dd2d35 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Thu, 12 Jan 2006 00:52:29 +0000 Subject: [PATCH] (skip->rest): add skip->rest --- ChangeLog | 4 ++++ scm/music-functions.scm | 11 +++++++++++ 2 files changed, 15 insertions(+) diff --git a/ChangeLog b/ChangeLog index 2255eaf9d6..b33386d10e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2006-01-12 Han-Wen Nienhuys + + * scm/music-functions.scm (skip->rest): add skip->rest + 2006-01-11 Han-Wen Nienhuys * lily/font-config.cc (init_fontconfig): call FcConfigBuildFonts() diff --git a/scm/music-functions.scm b/scm/music-functions.scm index 70fcf0606a..0074d3a1f6 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -583,6 +583,17 @@ of beat groupings " (set! (ly:music-property m 'procedure) checker) m)) + +(define-public (skip->rest mus) + + "Replace MUS by RestEvent of the same duration if it is a +SkipEvent. Useful for extracting parts from crowded scores" + + (if (equal? (ly:music-property mus 'name) 'SkipEvent) + (make-music 'RestEvent 'duration (ly:music-property mus 'duration)) + mus)) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; warn for bare chords at start. -- 2.39.5