From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 12 Jan 2006 00:52:29 +0000 (+0000)
Subject: (skip->rest): add skip->rest
X-Git-Tag: release/2.7.28~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=74628ba358f39934545ab9b59f1b53e710dd2d35;p=lilypond.git

(skip->rest): add skip->rest
---

diff --git a/ChangeLog b/ChangeLog
index 2255eaf9d6..b33386d10e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-01-12  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/music-functions.scm (skip->rest): add skip->rest
+
 2006-01-11  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* 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.