Anomalies-2.1.31.hwn1

[David Bobroff]

Extra weird stuff going on here.  I'm getting different strange things
depedending on what font size I use.  If I use

#(set-global-staff-size 15)

I get phantom beams under bars 65, 66, and 112-13.


If I use #(set-global-staff-size 18)

I get phantom beamns under measure 112, and a phantom slur in bar 36
below (and touching) the b.

If I use #(set-global-staff-size 20)

I get phantom beams under bars 63, 106, and 112.  I also get an extra
set of staff lines (!!) below system 4 on page two.

Other sizes produce similar type anomalies but not necessarily the same
ones.

Also, in bar 48 the tie between beats one and two seems to be arched
quite a bit more than the tie between beats two and three at any font
size.  There should be a trill extender from bar 33 to 34.

I was not getting any of these problems before v2.1.31.hwn1 (or maybe
v2.1.31).  Here is the *.ly code.  Sorry it is so lengthy.

-David

\version "2.1.31"


TimeSigs = \notes \context Voice {
    \time 4/4 s1
    \time 3/4 s2.
    \time 4/4 s1
    \time 3/4 s2.
    \time 4/4 s1
    \time 5/4 s1*5/4
    \time 3/4 s2.*4
    \time 4/4 s1*3
    \time 3/4 s2.
    \time 4/4 s1*2
    \time 3/4 s2.
    \time 4/4 s1*12
    \time 5/4 s4*5
    \time 4/4 s1*2
    \time 5/4 s4*5
    \time 4/4 s1*3
    \time 3/4 s2.
    \time 4/4 s1
    \time 3/2 s1.
    \time 4/4 s1
    \time 5/4 s1*5/4
    \time 4/4 s1
    \time 3/4 s2.
    \time 4/4 s1*2
    \time 3/4 s2.
    \time 2/4 s2
    \time 3/4 s1*3/4*3
    \time 2/4 s2
    \time 3/4 s2.*3
    \time 4/4 s1*2
    \time 5/8 s1*5/8 \bar "||"
    \time 3/4 s2.*4
    \time 4/4 s1*5
    \time 3/4 s2.*4
    \time 4/4 s1*4 \bar "||" s1*3
    \time 7/8 s8*7
    \time 4/4 s1
    \time 5/8 s8*5
    \time 4/4 s1*2
    \time 3/2 s1.
    \time 4/4 s1*6
    \time 3/4 s2.
    \time 2/4 s2
    \time 5/8 s1*5/8
    \time 4/4 s1
    \time 3/4 s2. \bar "||" s2.*6
    \time 4/4 s1
    \time 3/4 s2.*4
    \time 4/4 s1*4
    \time 3/4 s2.*5
}

contraNotes = \notes \context Voice \relative c {
    #(override-auto-beam-setting '(end * * * *) 1 4)
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    \clef F
    R1
    R1*3/4
    r4-\mf f-\< ~ \times 2/3 { f8-\! g, cis  e'8-( b-) dis,->  }
    r16 \grace {a'8-\f} a8.-> bes,8.-[-> d16-]-> ~ d8 fis, ~
    fis1-\> ~ \noBreak
    fis8-\! r r4 r2 r4
    R1*3/4
    r4 f'2-\mf-\<
    f16->-\f e'8-- cis,16-- ~ \times 2/3 { cis8 b'-- dis, g,!8 fis'
ais,-> }
    r16 a'8.---\f ais,8.--_\markup{\italic "dim."} \acciaccatura cis8
d16 ~ d8 gis,, ~
    gis1-\mp ~
    gis8 r r4 r2
    r2 \times 2/3 { a8---\mp bes'-- d,-- des'-\<^\markup{\italic
"gliss."} \glissando es-\!-\> \glissando des-\! }
    \set tupletNumberFormatFunction = #fraction-tuplet-formatter    
    \set tupletSpannerDuration = #(ly:make-moment 1 2)
    r4 \times 8/7 { r16-\< b'! c,_\markup{\italic \large "poco"} e! bes
d,!-\! fis' ~ }
    \unset Voice.tupletNumberFormatFunction    
    fis4:32^\markup{\italic "fl."} ~ fis8 r8 r4 c,!4-\f ~
    c8 es' ~  es16 r fis,8 f'!4 ~ \times 2/3 { f8-\> d b'}
    \times 2/3 { c,8 gis'^\markup{ \italic "gliss." } \glissando fis }
r8 a,,---\mf ~ a16 bes'8.--
    cis,8.-- es'16-\< ~ es8_\markup{\italic "molto"}^\markup{\italic
\large "gliss."} \glissando d-\! r4 r8 fis,,-\f ~
    fis2-\> ~ fis8-\!-\p r r r16 a'->-\mp
    \set tupletNumberFormatFunction = #fraction-tuplet-formatter
    \set tupletSpannerDuration = #(ly:make-moment 3 4)
%    \override Voice.TupletBracket #'bracket-visibility = ##t
    c,!4--_> \times 12/10 { a''16_\markup{\italic "cresc."} bes, d
cis'-( f,!-) fis, b! c,! e gis,-\mf ~ } 
    \unset Voice.tupletNumberFormatFunction
    \revert Voice.TupletBracket #'bracket-visibility
    gis4 ~ gis8 r r4 dis''4---\mp ~
    dis8 d,!4-- fis8-- ~ fis g,! cis_\markup{\italic "cresc."} b'! ~    
    \override TextSpanner #'style = #'trill
    \override TextSpanner #'edge-height = #'(1 . 1)
    \override TextSpanner #'edge-text = #'((line (music "scripts-trill")
" ") . "")
    b16 r gis'4 f!8 e'2^\trill-\mf-\startTextSpan ~    
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    e8-\stopTextSpan r \times 2/3 {  b,4---\mf dis,8 f'!8-( cis'-)
d,!-\> }  fis,8 a,16-.-\! r
    #(set-octavation -1)
    c,1-\mp-\> ~
    c8-\! #(set-octavation 0) r r4 r2
    R1*3
    R1*5/4
    R1*2
    R1*5/4
    R1
    r4 b''!2---\p gis'4-- ~
    gis16 fis-( d'-) fis,! ais b, e f,!-( \times 2/3 { cis'8-) g!--
gis'--_\markup{\italic "espr."}-> ~ }  \times 2/3 { gis8 b,4-- } 
    \times 2/3 {d!8-. fis,4--_>} \times 2/3 { f'!-- c!8-( ~} \times 2/3
{ c es,-) a,-\> ~ }
    a8 gis'-- ~ gis2-\! r4
    f!8-.-\p es4.-> es_\markup{\italic "cresc."} cis-- d!8-. r
    \set tupletSpannerDuration = #(ly:make-moment 2 4)
    \times 2/3 {r4 d!-\mp fis,->-( ~ } fis8 fis'-) ais,4 ~
    ais2_\markup{\italic "dim."} g'!2.--
    b,!2.---\p r4
    R1*3/4 \unset tupletSpannerDuration
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    \times 2/3 { b'8-.-\mp dis,4->  dis'->_\markup{\italic "cresc."} 
gis,8 ~ } gis8 d'!-. cis,4->
    r8 a'4---\mf a,8-> ~ a4-\> c!-\!-\mp ~ 
    c8 r r a''32-\p-( gis-) a-. f!-. b4 ~
    b8 cis,4->_\markup{\italic "cresc."} g8-.
    \slurDown
    f'!8-- gis16-. d->-( ~ \times 2/3 { d8 e-) f,! ~ } f8 es16 r
    \slurBoth
    r8 a!8-(-\mf ~ a4. g!8-)
    r4 \times 2/3 { f4-\< es2-\!-\>}
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    \set subdivideBeams = ##t
    \set Staff.beatLength = #(ly:make-moment 1 8)
    g'32-(-\!_\markup{\dynamic "mp" \italic "sub"} fis-) g-. e!-. c'16 r
b,-.-\mf cis,8.--_>
    \set subdivideBeams = ##f
    \unset Staff.beatLength
    cis16-.-[ r f,!8-] ~ \times 2/3 { f8 es'-\<-( d'-)  as des'-(
g,!-)-\! }
    r8 as,,4---\f a'!8-> ~ a16 cis,-. d'!-. f,!-.
    a,!4.-( bes16-) r f!4-\mf ~     
    \set tupletSpannerDuration = #(ly:make-moment 1 2)
    \times 2/3 { f4 f'!-- a,--_\markup{\italic "dim."} b!-- fis2 ~ }
    fis2-\mp r
    R1*5/8
    R1*3/4*4
    r4 \repeat "tremolo" 12 {gis''32-\p-(-\<  b32-)-\!} \breathe
    gis16^\markup{\italic "a piacere"}-\mp b g! gis c! a c gis! g e g es
g d cis a-\<^\markup{\italic "gliss."} \glissando    
    \set tupletSpannerDuration = #(ly:make-moment 1 4)
    \times 2/3 {c!8-\! e,! bes' as d,^\markup{\italic "gl."}-\<
\glissando f-\! } r8 fis,-\<^\markup{\italic "gl."} \glissando a-\! es'
    as8.---[_\markup{\italic "cresc."} f'!---] c!-- a'!-- fis8-. d'!->--
~ 
    d16 fis,8.-- as4.-- f'4.-\trill-\mf ~ 
    f4 r r
    \set tupletSpannerDuration = #(ly:make-moment 1 2)
    r4 \times 2/3 { d,,---\mp e'-- fis,--}
    a,4.-- es'--_>
    dis8-. c'-> ~ c \acciaccatura b! fis'4 ais,8
    cis8.---\< gis16-- ~ gis8 g-- ~ g-\! r d!4--
    f,!1_\markup{\italic "dim."} ~
    f2 ~ f8-\p r r4
    R1 \breathe
    e''4.-(-\p g,8_\markup{\italic "espr."}-) e'4 \acciaccatura a8 fis4
~
    fis8-[ \breathe a, bes-( e-)-] b'4.-(-\< d,8_\markup{\italic
"poco"}-)-\!
    es8-( f!-) as,4 \breathe des8 d,!4-\> g8
    es!-( fis-)-\! r a,!4-\p d!8-(-[ gis-)-]
    fis4 dis'4.-- \breathe fis,!8 c'8-( f!-)
    d!4 \acciaccatura b'8 gis4._\markup{\italic "cresc."} ~
    gis8 \breathe e c'-( bes-) es4.---\mp es8
    g,!-( a-) r b,! e!_\markup{\italic "dim."} f,!4 cis'8 ~
    cis4 \breathe c,!4 as'8-( ges-) r4 r as,4
    g'2.-(-\p a!4-)
    cis,8-( d-) cis2. ~
    cis8 r c'!4_\markup{\italic "pi\`u" \dynamic "p"} e,!8-( fis-) bes,4
~
    bes8 r es4-- g,2--
    r4 a2.-\> ~
    a8-\!-\pp r r4 r2
    \set subdivideBeams = ##t
    \set Staff.beatLength = #(ly:make-moment 1 8)
    r4 a''32-.-\pp a-. a-. a-. a-. a-. a16-. r4
    r4 es32-.-\pp es-. es-. es-. r8
    r16 es32-. es-. es-( a-) e e bes4-( d,!8-)
    r8 fis4.---\< f,!2-\p-\> ~
    f16-\!-\pp^\markup{\italic "molto rit."} r r8 r16-\fermata
r16^\markup{\bold \large "A Tempo"} r8 r c''32-.-\p c-. c-. c-.
    R1*3/4
    a'8^\markup{\italic "gliss."}-\p-\<-( \glissando fis-)-\! a,-\<-(
\glissando  b-)-\! e-(-\< \glissando cis-)-\!
    r4 as4^\markup{\italic "gl."}_\markup{\italic "cresc."}-\p-(
\glissando f!-) ~ 
    f8 \breathe a,4.---\mp-\> es'4--
    fis,2-\!-\p ~ fis8 r
    r4 g'8-[-\mp e! es' a!-]-\<-( \glissando
    c-)-[ b,!-\mf-> gis'-> f'!->-] r2
    \unset Staff.beatLength
    r8 gis,-(-\mp-\<-[ \glissando b-) dis,-\!-] a16-.-\> a-. a-. a-.-\!
    a2:32^\markup{\italic "fl."}-\< r4-\mf-\!
    r4 r a!16->-\mf bes-> es-> b!->
    gis'->-( c!-) gis!-. g-. d-> as-> d-( g-) r4
    r4 e,---\p g,-( cis-)
    gis'16-\< e' a-( f!-\!-) \times 2/3 { b,4-- des,-- r } c'16-\mp
gis'-\< b-( dis,-)-\!
    \times 2/3 {d,!4-- g!-- fis,-> ~ } fis2-\> ~
    fis4-\! r r8 d'''8-\mf-(-[ \glissando b-) fis16 fis-]
    es-( as-) es d-( a'-) cis, f! b,! r4
    R1*3/4
    es8-\mp a,! es'!-( as-) b,!-( f!-)
    r8 cis-(-\< \glissando bes-)-\! g'-> fis'-> cis
    f!-(-\< \glissando as-)-\! es-> es,-> r4
}

contra = \notes \context Voice {
    <<
        \TimeSigs
        \contraNotes
    >>
}

#(set-global-staff-size 15)
%#(set-global-staff-size 16)
%#(set-global-staff-size 18)
%#(set-global-staff-size 20)
\score {
    \notes \relative c { 
        \set Score.skipBars = ##t
        <<
            \contra
            \TimeSigs
        >>
    }
    \paper { }
}