[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: On popular demand: Free Meter :-)
From: |
Rune Zedeler |
Subject: |
Re: On popular demand: Free Meter :-) |
Date: |
Mon, 17 Sep 2007 15:29:43 +0200 |
User-agent: |
Thunderbird 1.5.0.13 (X11/20070824) |
Valentin Villenave skrev:
OK, it's corrected.
Sorry for the noise.
The snippet did not work with grace notes. (Am I the only one who think
that the representation of grace timing is a bit messy?)
Try with this:
%%% BEGIN %%%
increaseBarNumber = \applyContext
#(lambda (x)
(let ((measurepos (ly:context-property x 'measurePosition)))
; Only increase bar number if not at start of measure.
; This way we ensure that you won't increase bar number twice
; if two parallel voices call increaseBarNumber simultanously:
(if (< 0 (ly:moment-main-numerator measurepos)) ; ugh. ignore grace part
(begin
(ly:context-set-property!
(ly:context-property-where-defined x 'internalBarNumber)
'internalBarNumber
(1+ (ly:context-property x 'internalBarNumber)))
(ly:context-set-property!
(ly:context-property-where-defined x 'currentBarNumber)
'currentBarNumber
(1+ (ly:context-property x 'currentBarNumber)))
; set main part of measurepos to zero, leave grace part as it is:
(ly:context-set-property!
(ly:context-property-where-defined x 'measurePosition)
'measurePosition
(ly:make-moment 0 1
(ly:moment-grace-numerator measurepos)
(ly:moment-grace-denominator measurepos)))))))
hardbar = {
\bar "|"
\increaseBarNumber
}
{
\new Staff \with { \remove Time_signature_engraver } {
\cadenzaOn
#(set-accidental-style 'modern-cautionary)
\key a \major
\repeat unfold 2 {
c'8 dis' eis' eis' \hardbar
c'4 dis' e' eis' \hardbar
c' dis' eis'8 dis' eis' \hardbar
c'1 dis' eis' eis'2 \hardbar
}
}
}
%%% END %%%
A funny detail: to find your snippet in the database, all I have to
do is enter the term: "yeah" :)
:-)
-Rune
- accidental forgetting, c . m . bryan, 2007/09/16
- On popular demand: Free Meter :-), Rune Zedeler, 2007/09/16
- Re: On popular demand: Free Meter :-), Valentin Villenave, 2007/09/16
- Re: On popular demand: Free Meter :-), Rune Zedeler, 2007/09/16
- Re: On popular demand: Free Meter :-), Valentin Villenave, 2007/09/17
- Re: On popular demand: Free Meter :-),
Rune Zedeler <=
- Re: On popular demand: Free Meter :-), Valentin Villenave, 2007/09/17
- Re: On popular demand: Free Meter :-) [sponsorship offer], Kieren MacMillan, 2007/09/17
- Message not available
- Re: On popular demand: Free Meter :-), Valentin Villenave, 2007/09/18
- Re: On popular demand: Free Meter :-), Rune Zedeler, 2007/09/18
- Re: On popular demand: Free Meter :-), Ted Walther, 2007/09/22
Re: On popular demand: Free Meter :-), Ted Walther, 2007/09/17