* input/test/scales-greek.ly: remove.

[lilypond.git] / scm / music-functions.scm

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 554018145bd5b5c28cceb3a3f82d9e7749a90c65..479c28b79f2bc5b2dcba253426fd0db149115d07 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -744,3 +744,29 @@ use GrandStaff as a context. "
       (else
        (ly:warn "Unknown accidental style: ~S" (symbol->string style))
        (make-sequential-music '()))))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(define-public (skip-of-length mus)
+  "Create a skip of exactly the same length as MUS."
+  (let*
+   ((skip
+     (make-music
+      'SkipEvent
+      'duration (ly:make-duration 0 0))))
+
+   (make-event-chord (list (ly:music-compress skip (ly:music-length mus))))
+))
+
+
+(define-public (mmrest-of-length mus)
+  "Create a mmrest of exactly the same length as MUS."
+  
+  (let*
+   ((skip
+     (make-multi-measure-rest
+      (ly:make-duration 0 0) '() )))
+   (ly:music-compress skip (ly:music-length mus))
+   skip
+))
+