I don't know Scheme, so I'm following blindly here. I tried it and got:

Backtrace:
In /Users/spamguy/violink/flauti.ly:
19: 0* [ly:export ...
19: 1* [mmrest-of-length #<Music RelativeOctaveMusic>]
13: 2 (let ((skip #)) (ly:music-compress skip (ly:music-length mus)) skip)
17: 3* (ly:music-compress skip (ly:music-length mus))


/Users/spamguy/violink/flauti.ly:17:4: In expression (ly:music-compress skip (ly:music-length mus)):
/Users/spamguy/violink/flauti.ly:17:4: Unbound variable: ly:music-compress


On Mar 31, 2004, at 6.08 PM, Han-Wen Nienhuys wrote:

[EMAIL PROTECTED] writes:
OK, pretty sure this is a bug in 2.1.35 (as opposed to StemUp :P).

If the Devnull context is supposed to discard all musical info given to
it, it doesn't.


Assume myMusic = \notes {...} has polyphony on a single staff in it.
Naturally, calling \myMusic works fine. BUT, doing this:

try this


****************

\header {
    texidoc = "A second staff can be aligned to
a fragment (say, a cadenza), using a Scheme function: the
function creates a skip of the same length as the cadenza. "

}

\version "2.1.37"

cadenza = \notes \relative c' {
    c4 d8 << { e f g } \\ { d4. } >>
    g4 f2 g4 g
}


#(define (skip-of-length mus) "Create a skip of exactle 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 (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
))


\score { \notes \relative c' \new GrandStaff << \new Staff { \cadenza c4 \bar "|." } \new Staff { #(ly:export (mmrest-of-length cadenza)) c4 \bar "|." }


\paper {} }

--

Han-Wen Nienhuys | [EMAIL PROTECTED] | http://www.xs4all.nl/~hanwen


Will Oram
spamguy ^^AT^^ foxchange.com // william.oram ^^AT^^ cwru.edu // AIM spamguy21




_______________________________________________
Bug-lilypond mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-lilypond

Reply via email to