Re: percent repeats bug

[Rune Zedeler]

Han-Wen wrote:

> opps. Try again now?

Yes, now the reported bug is fixed, but instead a new one is introduced.
My exam is in less than 8 hrs from now so I need to get some sleep, but 
I attach a (big) file that is causing problems.
Ofcourse I would like the file to compile when I wake up so that the 
musicians can get instrument parts with percent repeats instead of 
written out repeats - BUT it is NOT urgent - I DO have working print 
outs (with unfolded repeats) for all musicians.


simple-spacer.cc:339: void Simple_spacer::solve (Column_x_positions *, 
bool) const: Forudsætningen (assertion) 'l >= 0' fejlede.



-Rune

\include "deutsch.ly"
marks = \lyrics {
  "\large\framebox{\bf{INTRO}}"1*12
  "\large\framebox{\bf{VERS}}"1*7/8*16 ""2 ""1
  "\large\framebox{\bf{OMKVÆD}}"1*26
  "\large\framebox{\bf{OUTRO}}"1
}

ned = \downbow
op = \upbow

#(define meter '(rows (music "noteheads-2" ((kern . -0.1) "flags-stem")) " = 
125"))

global = \notes {
    s8
    \mark #meter
    s2..
    s1*11
%    \property Score.repeatCommands = #'((volta "1"))
%    s1
%    \property Score.repeatCommands = #'((volta #f)(volta "2"))
%    \bar ":|"
%    s1
%    \property Score.repeatCommands = #'((volta #f))
    \mark #'(music "scripts-segno")
    \bar "|:"
    s4*54
    \property Score.repeatCommands = #'((volta "1"))
    s1
    \property Score.repeatCommands = #'((volta #f)(volta "2, 3"))
    \bar ":|"
    s1
    \property Score.repeatCommands = #'((volta #f))
    \bar ".|"
    % OMKVÆD
    s1*11
    \property Score.repeatCommands = #'((volta "1"))
    s1*4 s2..
    \mark #'(rows "D. S.  " (music "scripts-segno"))
    %\mark "D. S."
    s8
    \bar "|."
    \property Score.repeatCommands = #'((volta #f)(volta "2"))
    s1*9
    \property Score.repeatCommands = #'((volta #f)(volta "3"))
    \bar ":|"
    s1*1
    \property Score.repeatCommands = #'((volta #f))
    \bar ".|"
    s1*11
    \bar "|."
}

akk = \lyrics {
    "Em7"1 "Hm7" "Em7" "Hm7" "Em7" "Hm7"
    "Em7"1 "Hm7" "Em7" "Hm7" "Em7" "Hm7"

    "Gm7"4. "Dm7"2
    "Cm7"4. ""4 "Dm7"4
    "Gm7"4. "Dm7"2
    "Cm7"4. ""4 "Dm7"4
    "Gm7"4. "Dm7"2
    "Cm7"4. ""4 "Dm7"4
    "E$\\flat\\Delta$"4. "F6"2
    "D11"8*7 "D/fis"4
    "G"4. "D"2
    "C$\\Delta$"4. ""4 "D"
    "G"4. "D"2
    "C$\\Delta$"4. ""4 "D"
    "Em7"4. "Hm7"2
    "Am9"4. ""4 "Hm7"
    "C$\\Delta$"2 "Am9"
    "D11"1
    "H+9$\\sharp$"
    
    % OMKVÆD
    "Em7"2  "G$\\Delta$" "A11" "H11"
    "Em7"2  "G$\\Delta$" "A11" "H11"
    "Em7"2  "G$\\Delta$" "A11" "H11"
    "Em7"2  "G$\\Delta$" "A11" "H11"
    "Em7"2  "G$\\Delta$" "A11" "H11"
    "Em7"2  "G$\\Delta$"
    "A11"2 "H11"
    "Em7"  "G$\\Delta$" "Am7"1 "Dsus4" "D"
    "A11"2 "H11"
    "Em7" "G$\\Delta$" "A11" "H11"
    "C$\\Delta$"1  "D6" "Am9" "Hm7" "C$\\Delta$"1  "H9$\\sharp$"
    "A11"2 "H11"

    %OUTRO
    "Em7"2 "G"2 "Hm7"1 "Em7" "Hm7" "Em7" "Hm7"
    "Em7"1 "Hm7" "Em7" "Hm7" "Em7"


}

guitar = \notes \transpose c' {
    \time 2/2
    \key e \minor
    \property Staff.Arpeggio \override #'arpeggio-direction = #1
        g'8-5_"FLANGE" fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
    % VERS
    \relative c' {
        \key g \minor
        \time 7/8
        s1*0_"NO FLANGE"
        \repeat percent 3 {
            [<f8-4_\ned b-5 d-6> <f-4_\op-> b-5 d-6> <f-4_\ned b-5 d-6>] 
[<f-4_\op-> a-5 d-6> <f-4_\ned a-5 d-6>] [<f-4_\op a-5 d-6><f-4_\ned-> a-5 
d-6>]|
            [<es-4_\op g-5 c-6> <es-4_\ned-> g-5 c-6> <es-4_\op g-5 c-6>] 
[<es-4_\ned-> g-5 c-6> <es-4_\op g-5 c-6>][<f-4_\ned-> a-5 d-6> <f-4_\op a-5 
d-6>] |
        }
        [<f8-4_\ned b-5 d-6> <f-4_\op-> b-5 d-6> <f-4_\ned b-5 d-6>] 
[<f-4_\op-> a-5 d-6> <f-4_\ned a-5 d-6>] [<f-4_\op a-5 d-6><f-4_\ned-> a-5 
d-6>]|
        \time 9/8

        <d,4.-2 g-3 h-4 e-5 a-6> r4 [<fis'8-4_\ned-> a-5 d-6> <fis8-4_\op a-5 
d-6>] [<fis8-4_\ned-> a-5 d-6> <fis8-4_\op a-5 d-6>] |
        \time 7/8
        \key g \major
        \repeat percent 3 {
            [<g8-4_\ned h-5 d-6> <g-4_\op-> h-5 d-6> <g-4_\ned h-5 d-6>] 
[<fis-4_\op-> a-5 d-6> <fis-4_\ned a-5 d-6>] [<fis-4_\op a-5 d-6><fis-4_\ned-> 
a-5 d-6>]|
            [<e-4_\op g-5 c-6> <e-4_\ned-> g-5 c-6> <e-4_\op g-5 c-6>] 
[<e-4_\ned-> g-5 c-6> <e-4_\op g-5 c-6>][<fis-4_\ned-> a-5 d-6> <fis-4_\op a-5 
d-6>] |
        }
        \time 4/4
        \repeat unfold 2 <c2-3 e-4 g-5 h-6>


        <d,2-2 g-3 h-4 e-5 a-6> r2 |
    }
    r4 e8-2 < a-3 d'-4> e-2 < ais-3 dis'-4> e-2 < h-3 e'-4> |
    % OMKVÆD
    \key e \minor
    \time 4/4
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    e-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
    e8-2 < d'-4 g'-5> e-2 e-2 < e'8-4 a'-5> e-2 r8 <g-3_\ned h-4 d'-5 g'-6> ~  |
    <g4.-3 h-4 d'-5 g'-6> <a8-3_\ned cis'-4 e'-5 a'-6> ~<a2-3 cis'-4 e'-5 a'-6> 
|
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    e-2 e-2 e-2 < a-3 d'-4> e-2 < ais-3 dis'-4> e-2 < h-3 e'-4> |
     e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    % volte1
    e-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 e-2 <g8-3 c'-4 e'-5 a'-6> ~ |
    <g1-3 c'-4 e'-5 a'-6>
    <a1-3 d'-4 e'-5 a'-6> ~
    <a2-3 d'-4 fis'-5 a'-6> r |
    %volte2
    e8-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
    e8-2 < d'-4 g'-5> e-2 e-2 < e'-4 a'-5> e-2 < d'-4 g'-5> e-2  |
    e-2 e-2 < a-3 d'-4> e-2 e-2 e-2 < h-3 e'-4> e-2 |
    s1*0_"FLANGE"
    \repeat unfold 2 {
        r8 d'-4 <h'-6 g'-5> d'-4 a'-5 d'-4 e'-4 d'-4
        r8 d'-4 <h'-6 fis'-5> d'-4 a'-5 d'-4 e'-4 d'-4
    }
    r8 d'-4 <h'-6 g'-5> d'-4 a'-5 d'-4 e'-4 d'-4
    <h4-3_"NO FLANGE" dis'-4 a'-5 cisis''-6> r8 < a-3 d'-4> e-2 < ais-3 dis'-4> 
e-2 < h-3 e'-4> |
    %volte3
    e8-2 e-2 < a-3 d'-4> e-2 e-2 < a-3 d'-4> e-2 < h-3 e'-4> |
    % OUTRO
    \time 2/2
    \key e \minor
    r2 <d'_"FLANGE"-4 g'-5 h'-6> |
    \property Staff.Arpeggio \override #'arpeggio-direction = #1
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 fis'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        a8-3( d'-4 a'-5 a-3 d'-4 a'-5 a-3 )d'-4 |
        <e1-\arpeggio-2 a-3 d'-4 g'-5 h'-6>
        g'8-5 fis'4-5 d'8-4 r8 h4.-3 |
        <e,1-\arpeggio-1 e-2 a-3 d'-4 g'-5 h'-6>


}




\include "paper20.ly"
 \header {
    title = "Søndag Morgen"
    composer = "Van Morrison / Rune Zedeler"
    arranger = "Arrangmentseksamen, juni 2002,\\\\Rune Zedeler, 19990160"
    piece = "Guitar"
    tagline = "\\Large{Form: Intro Vers$_1$ Vers$_2$ Omkvæd Vers$_1$ Omkvæd 
Omkvæd Outro  }"
}
\score {
    \notes 
    \apply #unfold-repeats
    <
        \property Score.automaticMelismata = ##t
        \property Score.TimeSignature \override #'style = #'()
        \context Lyrics=marks \lyrics { \marks }
        \context GrandStaff = gui <
         %   \property GrandStaff.instrument = "Guitar    "
         %   \property GrandStaff.instr = "gt    "
            \context SmallStaff=gui <
                \property Staff.Fingering = \turnOff
                \clef "G_8"
         % { s1*3 \break }
                \global
                \guitar
            >
        \context Lyrics = akk \akk
            \context TabStaff=gui <
                \guitar
            >
        >
    >
    \paper {
        % linewidth = 26.5\cm
        % textheight = 38.0\cm
        linewidth = 18.8\cm
        indent = 1.0\cm
        interscoreline = 0.5\cm
        
        \translator {
            \TabStaffContext
            \remove "Key_engraver"
            \consists "Rest_engraver"
        }
        \translator {
            \GrandStaffContext
            \accepts "TabStaff"
            \accepts SmallStaff
            \consists "Instrument_name_engraver"
            verticalExtent = #'(-0.0 . 0.0)
            
        }
        \translator {
            \ScoreContext
            \accepts SmallStaff
            % BarNumber \override #'padding = #2.0
        }
        \translator {
            \StaffContext
            minimumVerticalExtent = #'(-0.0 . 0.0)
        }
        \translator {
            \LyricsContext
            minimumVerticalExtent = #'(-0.0 . 0.0)
        }

        \translator {
            \PianoStaffContext
            \accepts SmallStaff
            VerticalAlignment \override #'forced-distance = #11
        }
     \translator {
        \StaffContext
    \name SmallStaff
            minimumVerticalExtent = #'(-0.0 . 0.0)
    \alias Staff
    StaffSymbol \override #'staff-space = #(/ 13 20)
    NoteHead \override #'font-relative-size = #-2
    Stem \override #'font-relative-size = #-2
    Beam \override #'font-relative-size = #-2
    TextScript \override #'font-relative-size = #-2
    Slur \override #'font-relative-size = #-2
    Accidentals \override #'font-relative-size = #-2

    Beam \override #'thickness = #(* 0.48 (/ 13 20))

    Beam \override #'space-function = #(lambda (x y) (* (/ 13 20) 
(Beam::space_function x y)))
    Clef \override #'font-relative-size = #-2
    TimeSignature \override #'font-relative-size = #-2

    KeySignature \override #'font-relative-size = #-2
    Script \override #'font-relative-size = #-2
    Rest \override #'font-relative-size = #-2
    MultiMeasureRest \override #'font-relative-size = #-2
    Dots \override #'font-relative-size = #-2
    } 
  }
   
}