Re: Comportement étrâne avec \cadenzaOn

[address@hidden]

On Mar 14, 2012, at 8:22 PM, Phil Hézaine wrote:

> Le 14/03/2012 20:11, Phil Hézaine a écrit :
>> Le 14/03/2012 16:25, address@hidden a écrit :
>>> Bonjour à tous,
>>> 
>>> Dans la petite partoche ci-dessous, deux barres de mesure parasites
>>> apparaissent avant la barre de mesure finale. Si on enlève soit
>>> RSFwUEmZYZkAxAaJ et HEZxDsXfwwysHRwW, soit EYZmnqiwEyUCvvhI et
>>> SmfcABCtyTNOqTsv, ces barres ne sont pas imprimées. Je pense que
>>> \cadenzaOn est l'agent provocateur, mais je ne suis pas sûr. Avez-vous
>>> des idées ?
>>> 
>>> Cordialement,
>>> ~Mike
>> 
>> Bonsoir,
>> 
>> J'ai juste essayé de faire le compte des 16th.
>> Ce qui me semble plutôt <<étrâne>> c'est le problème de synchro entre
>> les différentes variables. Mais peut-être que je me trompe.
>> 
>> \version "2.14.0"
>> 
>> \header {
>> title = "the tragedy of intent iv"
>> subtitle = \markup { "Conchita vs. The Philistines — AND HOW!" }
>> composer = "mike solomon"
>> }
>> 
>> RSFwUEmZYZkAxAaJ =
>> << {
>> fis'32\mp ( gis' ais'8-. ) r cis''-. cis''-. r r16 % = 12 16th
>> fis'32 ( gis' ais'8-. ) r cis''-. cis''-. r r16 % = +12 16th
>> ais'32 ( gis' fis'8-. ) r dis'-. dis'-. r r16 % = +12 16th
>> ais'32 ( gis' fis'8-. ) r dis'-. dis'-. r r16 % = +12 16th
>> % == 48 16th
>> } { \time 3/8 \cadenzaOn \tempo "presto" s16 \cadenzaOff \bar "|" s4.
>> s4. s4. s4. s4. s4. s4. % = 42 16th
>> \cadenzaOn s4 s16 \cadenzaOff \bar "||" } >> % = +5 16th
>> % == 47 16th
>> 
>> HEZxDsXfwwysHRwW= { r16 r4. r4. r4. r4. r4. r4. r4. r4 r16 }
>> % == 49 16th
>> 
>> EYZmnqiwEyUCvvhI= {
>> \clef bass \cadenzaOn \ottava #-1 b,,,2~b,,,8^\mf\bar "" b,,,16\bar "" r4.
>> b,,,16\bar "" b,,,16\bar "" b,,,4..\bar ""
>> \cadenzaOff \bar "||" \ottava #0 % == 17 16th
>> }
>> SmfcABCtyTNOqTsv={\clef treble
>> s16*26 % == 26 16th
>> }
>> 
>> HRCJDPMHVhjDaTgd = { \cadenzaOn r1^\fermata \cadenzaOff \bar "||" } % ==
>> 16 16th
>> FPeHmkwRBWtDOfJm = { r1^\fermata } % == 16 16th
>> 
>> \new PianoStaff <<
>> \new Staff = "up" { \clef treble
>> \RSFwUEmZYZkAxAaJ % == {48 16th} // {47 16th}
>> \SmfcABCtyTNOqTsv % == 26 16th
>> \HRCJDPMHVhjDaTgd } % == 16 16th
>> \new Staff = "down" { \clef bass
>> \HEZxDsXfwwysHRwW % == 49 16th
>> \EYZmnqiwEyUCvvhI % == 17 16th
>> \FPeHmkwRBWtDOfJm \bar "|." % == 16 16th
>> }
>> >>
>> \layout {\context {\Score \override NonMusicalPaperColumn
>> #'allow-loose-spacing = ##f
>> \override DynamicText #'extra-spacing-width = #'(-0.15 . 0) }}
>> 
>> Amicalement.
>> Phil.
> 
> Arghh!! Oublié un s16 pour le \time 3/8
> donc \RSFwUEmZYZkAxAaJ % == {48 16th} // {48 16th} !!!!
> 
> Voui! Faut vérifier avant de se précipiter.
> 

Bonsoir,

Merci pour ton aide!

Après avoir lu ton mail, j'ai créé une fonction qui vérifie que les durées des 
bouts de musique dans les variables soient égales (voir `doAssertion' 
ci-dessous).  Je suis donc à peu près certain qu'il n'y a pas de problème avec 
le comptage.  Voici le code complet (avec de différentes variables - le morceau 
est généré à partir d'un algorithme):

\version "2.14.0"

\header {
  title = "the tragedy of intent iv"
  subtitle = \markup { "Conchita vs. The Philistines — AND HOW!" } 
  composer = "mike solomon"
}

doAssertion = #(define-music-function (parser location m1 m2 s1 s2) (ly:music? 
ly:music? string? string?)
      (if (not (equal? (ly:music-property (car (ly:music-property m1 
'elements)) 'duration)
                         (ly:music-property (car (ly:music-property m2 
'elements)) 'duration)))
                               (format #t ">>>>>>>>>>>>>>>>>>>>>>> BAD ~a ~a



" s1 s2))
                                  m1)

MjUifgoyDeqbvCHM = { \cadenzaOn r1^\fermata \cadenzaOff \bar "||" } 
XZyJHzjaLpCoIDWf = { r1^\fermata }
GRanITzMaLSxcacU= << { fis'32\mp ( gis' ais'8-. ) r cis''-. cis''-. r r16 
fis'32 ( gis' ais'8-. ) r cis''-. cis''-. r r16 ais'32 ( gis' fis'8-. ) r 
dis'-. dis'-. r r16 ais'32 ( gis' fis'8-. ) r dis'-. dis'-. r r16
fis'32 ( gis' ais'8-. ) r cis''-. cis''-. r r16 fis'32 ( gis' ais'8-. ) r 
cis''-. cis''-. r r16 ais'32 ( gis' fis'8-. ) r dis'-. dis'-. r r16 ais'32 ( 
gis' fis'8-. ) r dis'-. dis'-. r r16
fis'32 ( gis' ais'8-. ) r cis''-. cis''-. r r16 fis'32 ( gis' ais'8-. ) r 
cis''-. cis''-. r r16 ais'32 ( gis' fis'8-. ) r dis'-. dis'-. r r16 ais'32 ( 
gis' fis'8-. ) r dis'-. dis'-. r r16
 } { \time 3/8 \cadenzaOn \tempo "presto" s16 \cadenzaOff \bar "|" s4. s4. s4. 
s4. s4. s4. s4.s4.*8 s4.*8 \cadenzaOn s4 s16 \cadenzaOff \bar "||"  } >>
TdpYNxtirUOVibVt= { r16 r4. r4. r4. r4. r4. r4. r4. r4 r16
r16 r4. r4. r4. r4. r4. r4. r4. r4 r16
r16 r4. r4. r4. r4. r4. r4. r4. r4 r16
 }

KDvraAcSgMpGWhQW = { \cadenzaOn r1^\fermata \cadenzaOff \bar "||" } 
HQROumBbwjaIbBtz = { r1^\fermata }
OxBjnhQOZwhBpbQE = { \tempo "rubato" \cadenzaOn \clef bass <c g>4 \bar "" r4 
\bar "" c4 \bar "" r4 \bar "" <c g>4 \bar "" r4 \bar "" c4 \bar "" r4 \bar ""  
\cadenzaOff \bar "||" }

TKiexwzyUvjbudor= {\clef treble <c' e' fis' g'>4\f  \bar "" r4 \bar "" <c' e'>4 
\bar "" r4 \bar "" <c' e' fis' g'>4 \bar "" r4 \bar "" <c' e'>4 \bar "" r4 \bar 
"" }

AKDuHtxFBYMezRQt = { \cadenzaOn r1^\fermata \cadenzaOff \bar "||" } 
RPISnCyCoOebQeFe = { r1^\fermata }
\new PianoStaff <<
  \new Staff = "up" { \clef treble \MjUifgoyDeqbvCHM \GRanITzMaLSxcacU 
\KDvraAcSgMpGWhQW \TKiexwzyUvjbudor \AKDuHtxFBYMezRQt }
  \new Staff = "down" { \clef bass \XZyJHzjaLpCoIDWf \TdpYNxtirUOVibVt 
\HQROumBbwjaIbBtz \OxBjnhQOZwhBpbQE \RPISnCyCoOebQeFe \bar "|."}
>>
\layout {\context {\Score \override NonMusicalPaperColumn #'allow-loose-spacing 
= ##f
 \override DynamicText #'extra-spacing-width = #'(-0.15 . 0) }}
\doAssertion #(ly:export (skip-of-length XZyJHzjaLpCoIDWf)) #(ly:export 
(skip-of-length MjUifgoyDeqbvCHM)) #"XZyJHzjaLpCoIDWf" #"MjUifgoyDeqbvCHM"
\doAssertion #(ly:export (skip-of-length TdpYNxtirUOVibVt)) #(ly:export 
(skip-of-length GRanITzMaLSxcacU)) #"TdpYNxtirUOVibVt" #"GRanITzMaLSxcacU"
\doAssertion #(ly:export (skip-of-length HQROumBbwjaIbBtz)) #(ly:export 
(skip-of-length KDvraAcSgMpGWhQW)) #"HQROumBbwjaIbBtz" #"KDvraAcSgMpGWhQW"
\doAssertion #(ly:export (skip-of-length OxBjnhQOZwhBpbQE)) #(ly:export 
(skip-of-length TKiexwzyUvjbudor)) #"OxBjnhQOZwhBpbQE" #"TKiexwzyUvjbudor"
\doAssertion #(ly:export (skip-of-length RPISnCyCoOebQeFe)) #(ly:export 
(skip-of-length AKDuHtxFBYMezRQt)) #"RPISnCyCoOebQeFe" #"AKDuHtxFBYMezRQt"