Is this code supposed to work?
common =
\relative c'' {
\tag #'part {c e g}
\tag #'score {d f a}
e g b
}
\score {
\simultaneous {
\new Staff {
\common
}
\new Staff {
\keepWithTag #'part \common
}
\new Staff {
\removeWithTag #'part \common
}
}
}
the 1st staff should print all notes, the 2nd "c e g e g b" and the 3rd
"d f a e g b", but if I run it I get:
--------------------------------------------------------------------------
Backtrace:
In unknown file:
?: 0* [lilypond-main ("tag-filter")]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
302: 1* (let* ((failed #) (handler #)) (for-each (lambda # # ...) files) ...)
304: 2* [for-each #<procedure #f (f)> ("tag-filter")]
In /usr/share/guile/1.6/srfi/srfi-1.scm:
663: 3 (if (null? rest) (letrec ((lp #)) (lp list1)) ...)
...
667: 4 (begin (f (car l)) (lp (cdr l)))
668: 5* [#<procedure #f (f)> "tag-filter"]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
306: 6* [catch ly-file-failed #<procedure #f ()> #<procedure #f (key arg)>]
In unknown file:
?: 7* [#<procedure #f ()>]
In /home/kroger/devel/lilypond/lilypond/share/lilypond/scm/lily.scm:
306: 8* [ly:parse-file "tag-filter"]
In unknown file:
?: 9* [#<procedure #f #> # # part ...]
In
/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:
26: 10* (music-filter (lambda (m) (let* (# #) (not res))))
/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:26:3:
In expression (music-filter (lambda # #)):
/home/kroger/devel/lilypond/lilypond/share/lilypond/ly/music-functions-init.ly:26:3:
Wrong number of arguments to #<procedure music-filter (pred? music)>
--------------------------------------------------------------------------
The following code is working and yeld the result the previous one
should yeld, but in some ocasions removeWithTag is necessary:
\score {
\simultaneous {
\new Staff {
\common
}
\new Staff {
\keepWithTag #'part \common
}
\new Staff {
\keepWithTag #'score \common
}
}
}
Cheers,
Pedro
_______________________________________________
lilypond-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-devel
