\version "2.24.1"
\language "italiano"

\paper {
  %#(set-paper-size "b3")
  #(set-paper-size '(cons (* (* 1.5 210) mm) (* (* 1.5 297) mm)))
  %line-width = 325\mm
  %ragged-right = ##f
  %line-width = #(- line-width (* mm 3.000000) (* mm 1))
}

\header {
  %title = \markup { \huge \larger "Symphonie IV" }
  %subtitle = \markup { \huge \larger \larger  "I. Toccata" }
  title = \markup { 
    \center-column {
      \line { \larger \larger \larger \bold \caps "Symphonie iv"  }
      \line { " " }
      \line { \larger \larger \larger "I. Toccata" }
      %\line { " " }
      %\line { \medium "G.P.R. Fonds et Anches 4.8.16 _PED. Basse et Anches 8.16.32" }
    }
  }
  %instrument = "pour orgue - for organ"
  composer =  \markup { 
    \right-column {
      \line { \larger \larger \bold "Charles-Marie WIDOR"  }
      \line { \larger \larger \larger "(1844 — 1937)" }
    }
  }
  
  %opus = "Op.13 No.4"
  
  copyright = ""
  tagline = ""
  %tagline = "© Hautbois Editions"
}


global = {
  \key fa \minor
  \time 4/4
  \override Score.BarNumber.break-visibility = ##(#f #f #f)
}

%%%%%% All bar numbers need to -1 %%%%%%

rightOne = \relative si'' {
  \global
  \override Score.MetronomeMark.extra-offset = #'(-10 . 2)
  \tempo "" 4 = 60
  % bar 1 - 5
  \partial 4 s4^\markup { 
    \column {
      \line { " " }
      \line { \huge \larger \bold "GPR" }
    }
  } |
  do4\staccato do4\staccato s2 |
  fa,4\staccato <mib fa>\staccato s2 |
  reb4\staccato do\staccato sib\staccato sib\staccato |
  sib8. do16 lab4 sol2\rest |
  
  % bar 6 - 10
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 11 - 15
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 16 - 20
  sol4\rest mib'8. re!32 mib do4 sol8\rest sol16\rest si!16 |
  mib4 <do fa> sol2\rest |
  \once \override MultiMeasureRest.staff-position = 0
  R2*2 |
  s8 s16 sib16 do8. re!16 mib8. re16 <do lab'!>8. <do sol'>16 |
  <do fa>8. <do mib>16 <lab re!>8\staccato <lab do>8\staccato do8. si32 la \afterGrace si4\trill { la16 si } |
  
  % bar 21 - 25
  do8. s64 reb32\rest_\markup { \huge \larger \bold R } do32 sib!8_~[ sib64 do reb! sib lab sol] \once\stemDown \once\autoBeamOff fa64 \once\stemDown mi!8. s64 reb'32\rest do32 sib!8_~[ sib64 do reb! sib lab sol] \once\stemDown fa64 |
  \once \stemDown mi!8. reb'32*2\rest do32 sib!8_~[ sib64 do reb! sib lab sol] \once\stemDown \once\autoBeamOff fa64 \once\stemDown mi8~ mi64[ sol sib sol fa mi] \once\stemDown reb64 \once \stemDown do4~ |
  \once \stemDown do8. s64 reb'32\rest_\markup { \huge \larger \bold R } fa32 mib8_~[ mib64 fa solb! mib reb do] \once\stemDown \once\autoBeamOff sib64 \once\stemDown la!8. s64 reb32\rest fa32 mib8_~[ mib64 fa solb mib reb do] \once\stemDown sib64 |
  \once \stemDown la!8. reb32*2\rest fa32 mib8_~[ mib64 fa solb! mib reb do] \once\stemDown \once\autoBeamOff sib64 \once\stemDown la8~ la64[ do mib do sib la] \once \stemDown solb64 s4 |
  s1 |
  
  % bar 26 - 27
  s1 | s1 |
  
  % bar 28
  s1 |
  
  % bar 29 - 33
  si8\rest si16\rest re16 dod8 \tuplet 3/2 { dod16 mi sol } fad2 |
  si,8\rest si16\rest red16 mi8 si'8 fa8\rest fa16\rest red16 mi4 |
  \stemNeutral re16\rest sol16\pp mi re dod! re mi fad! fad,! mid! fad8_~ fad16 sol fad8_~ |
  fad16 <dodd' mid>16 \once \set doubleSlurs = ##t <red! fad!>8( <red fad>16) <mi! sol>16 <red fad>8 re2\rest |
  re16\rest si'16 sol fad! mi fad sol si si, lad! si8~ si16 do si8~ |
  
  % bar 34 - 38
  si16 <red! fad!> \once \set doubleSlurs = ##t <mi sol>8( <mi sol>16) <fad la> <mi sol>8 red2\rest |
  red16\rest mi16^\markup { \huge \larger \bold PR } red! mi sib\rest la sib! mi32 sib sol4 sib4\rest |
  red16\rest <mi sol>16 <red! fad!> <mi sol> sib\rest la sib! mi32 sib sol4 sib4\rest |
  reb16\rest fa!16 mi fa reb\rest dob! reb! lab'!32 reb, dob4 sib4\rest |
  reb16\rest <fa lab!>16 <mi sol> <fa lab> reb\rest dob! reb! lab'!32 reb, dob4 sol4\rest^\markup { \huge \larger \bold GPR } \bar "||"
  
  % bar 39 - 44
  \key fa \minor \stemUp
  s16 do'8. s16 do8. s2 |
  s16 fa8. s16 fa8. s2 |
  reb,4-. do\staccato sib\staccato sib\staccato |
  sib16\rest sib16 lab sol lab4 sib2\rest |
  sib4\rest sib16\rest lab16 sol lab sib2\rest |
  sib16\rest mi,!16 fa sol_\markup { \column { \line { " " } \line { " " } } } lab16\noBeam fa'8. sib,2\rest |
  
  % bar 45 - 48
  sib4\rest <sib fa'>4 reb16\rest la!16 sib do reb\rest do reb fa32 mib |
  reb4 reb4\rest reb16\rest do16 reb sib' reb,\rest mib! reb fa32 mib |
  reb4_\markup { \normalsize \large \larger \larger \italic "    dimin." } sib4\rest sib2\rest |
  s1^\markup { \normalsize \large \larger \larger \larger \italic "   cresc." } |
  
  % bar 49 - 53
  \once \stemDown do'8 reb,16\rest mi!16 fa8. sol16 lab8. sol16 <fa reb'>8. <fa do'>16 |
  <fa sib>8. <fa lab>16 <sol reb>8^. <fa reb>8^. fa8. mi!32 re \afterGrace mi4\trill { re16 mi } |
  fa4 sib,4\rest sib2\rest |
  sol4\rest sol16\rest fa16 sol fa fa8 mi!16 re! \afterGrace mi4\trill { re16 mi } | |
  fa1\fermata | \bar "|."
}

rightTwo = \relative si'' {
  \global
  % bar 1 - 5
  \partial 4 si8.\fff do16 |
  lab4 sol4 sol8. sib16 lab8. sol16 |
  sib,4 la!4 mib'8. solb!16 fa8. mib16 |
  fa,4 fa fa mi! |
  mi!4 fa s2 |
  
  % bar 6 - 10
  sol4\rest <fa' lab, fa>4 sol,2\rest |
  sol4\rest <fa' lab, fa>4 sol,2\rest |
  sol2\rest sol8\rest sol16\rest fa'16 si,!8. re!16 |
  do8. si!16 do4 sol2\rest |
  sol4\rest <do, mib do'>4 sol'2\rest |
  
  % bar 11 - 15
  sol4\rest <do, mib do'>4 sol'2\rest |
  sol2\rest sol'8\rest sol16\rest re'!16 fad,!8. la!16 |
  sol8. fad16 sol4 sol16\rest sol16 fad sol mib32\rest re!32 mib fa! mib64 re mib re do re s32 |
  mib8. sol32 mib do4 mib16\rest sol16 fad sol mib32\rest mib32 fa! sol fa64 mib fa mib re! mib s32 |
  fa8. sol32 fa re!4 mib16\rest sol16 fad sol mib32\rest fa!32 sol lab sol64 fa sol fa mib fa s32 |
  
  % bar 16 - 20
  \once\stemUp sol8. \once\stemUp do32 \once\stemUp sol sol,8\rest sol16\rest lab16 sol4 s8 s16 lab16 |
  sol4 fa s2 |
  s1 |
  sol8\rest sol16\rest la!16 sol8. sib16 do8. do16 la8. sol16 |
  fa8. mib16 re!8 fa sol2 |
  
  % bar 21 - 25
  s1 | s1 | s1 | s2 s4 fa4^~ | fa4 sol4\rest sol4\rest sol8\rest <la fa' la>8^\markup { \huge \larger \bold GPR } |
  
  % bar 26 - 27
  <sib fa' sib>8 si16\rest fa'16 mib8. \tuplet 3/2 { mib32 fa solb } la,!8. fa'16 mib4 |
  si8\rest si16\rest reb16 dob!8. \tuplet 3/2 { dob32 reb mib } fa,8. reb'16 dob4 \bar "||"
  
  % bar 28
  \key do \major
  sol8\rest sol16\rest_\markup { \huge \larger \bold R \larger \larger \larger "{" } si lad8. \tuplet 3/2 { lad32 si dod } sol4 fad4^\markup { \normalsize \large \larger \larger \italic "dimin." } |

  % bar 29 - 33
  s8 s16 si16 lad2 si4 |
  s8 s16 do!16 si4 mi,8\rest mi16\rest do'16 si4 |
  s1 |
  s1 |
  s1 |

  % bar 34 - 38
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 39 - 44
  \key fa \minor
  reb16\rest lab'16 sol fa reb16\rest sol16 fa mi! sib2\rest | 
  reb16\rest sib'16 la! sol reb16\rest la'16 sol fa mib8. solb!16 fa8. mib16 |
  fa,4 fa fa mi! |
  s16 sol16 fa mi!_\markup { \column { \line { "   " } \line { "   " } } } fa4 s2 |
  s4 s16 fa16 mi! fa s2 |
  s4 fa16 lab sol lab s2 |
  
  % bar 45 - 48
  s4 fa4 s4 s16 la16 sib do |
  sib4_\markup { \column { \line { " " } \line { " " } } } s4 s16 la!16\noBeam sib8 s16 do16 sib la |
  sib4 s4 s2 |
  s1 |
  
  % bar 49 - 53
  s8 s16 reb!16 do8. mib16 fa8. fa16 reb8. do16_\markup { \column { \line { " " } \line { " " } \line { " " } } } |
  sib8. lab16 sol8 sib do4 sib |
  lab4_\markup { \column { \line { " " } \line { " " } } } s4 s2 |
  s1 |
  do,1 |
}

leftOne = \relative si' {
  \global
  % bar 1 - 5
  \partial 4 si8.\fff do16 |
  <lab do>4 <sol do>4 sol8. sib16 lab8. sol16 |
  fa4^\staccato fa4^\staccato mib8. solb!16 fa8. mib16 |
  reb4_. do_. sib_. do_. |
  reb4 do8.\noBeam fa,16 do'4 do4 |
  
  % bar 6 - 10
  do8. si!16 si8.\noBeam fa16 do'4 do4 |
  do8.\prall si!16 si8.\noBeam fa16 do'4 do4 |
  do8. si!16 sol'2._~ |
  sol4. sol16\rest do,16 sol'4 sol |
  sol8. fad!16 fad8.\noBeam do16 sol'4 sol |
  
  % bar 11 - 15
  sol8.\prall fad!16 fad8.\noBeam do16 sol'4 sol |
  sol8. fad!16 \once \stemDown re'!2._~ |
  \once \stemDown re4. si16\rest fad!16 sol2_~ |
  sol4 si8\rest si16\rest fad!16 sol2_~ |
  sol4 sol8\rest sol16\rest fad!16 sol2_~ |
  
  % bar 16 - 20
  sol4 sol8\rest sol16\rest fa!16 mib8. do'32 sol32 mib8. re!32 mib32 |
  do8. sib!32 do32 lab8. sol32 lab fa4 sol'4\rest |
  \once \override MultiMeasureRest.staff-position = 0
  R2*2 |
  sol8\rest sol16\rest re!16 mib8. fa16 sol8. do,16 do8. do16 |
  do8. do16 do8_. re!8_. re16 re32 do32 re8_~ re4 |
  
  % bar 21 - 25
  do4 sol'4\rest sol2\rest |
  sol2\rest sol4\rest sol8\rest <mi! do' mi!>8_\markup { \huge \larger \bold GPR } |
  \once \stemDown <fa do' fa>4_. sol4\rest sol2\rest |
  sol2\rest si4\rest si8\rest <la! fa' la!>8_\markup { \huge \larger \bold GPR } |
  <fa' sib>4 s4 la,4 sol4\rest |
  
  % bar 26 - 27
  sol4\rest sib4 la!4 sol4\rest |
  sol4\rest solb4 fa4 sol4\rest \bar "||"
  
  % bar 28
  \key do \major
  r4 fad4_~ fad16 mi fad mi re dod re si |
  
  % bar 29 - 33
  mi4 mi4_~ mi16 re mi dod! re dod re si |
  sol'4.. fad!16 sol4.. fad16 |
  sol4 lad,!4.. red!16 mi8. dod!16 |
  red!8. si'16 la!8. do!16 fad,!16 si lad! si si, la'! sol fad |
  sol4 si,4.. sol'16 la8. fad!16 |
  
  % bar 34 - 38
  sol8.\< lad!16 si8. do16\! si16\mf sol fad! sol si, la'!_\markup { \huge \larger \bold PR } sol fad |
  sol4 do,4 mi16\rest_\markup { \huge \larger \bold GPR } la,16 sib! mi32 sib sol16 mi'16\rest mi8\rest |
  sol4_\markup { \huge \larger \bold PR } do,4 mi16\rest_\markup { \huge \larger \bold GPR } do16 reb! sol32 reb sib!16 mi16\rest mi8\rest |
  si'!4_\markup { \huge \larger \bold PR } reb,!4 sol16\rest_\markup { \huge \larger \bold GPR } dob,!16 reb lab'!32 reb, \once\stemDown dob16 sol'16\rest sol8\rest |
  si4_\markup { \huge \larger \bold PR } reb,!4 sol16\rest mi16_\markup { \huge \larger \bold GPR } fa dob'!32 fa, \once\stemDown reb16 sol16\rest sol8\rest |
  
  % bar 39 - 44
  \key fa \minor
  \once \stemDown do!4 do, sol'8. sib16 lab8. sol16 |
  fa4 fa4 mib8. solb!16 fa8. mib16 |
  reb4_. do_. sib_. sib_. |
  sol'16\rest reb16 do sib_\markup { \column { \line { " " } \line { " " } } } do8. s16 s2 |
  s1 |
  s1 |
  
  % bar 45 - 48
  s4 s16 \clef "treble" reb16 mib fa sol4 sol4_~ |
  sol16_\markup { \column { \line { " " } \line { " " } } } sol fa sol32 lab sol16. lab32 sib32 do reb fad, sol4 sol4_~ |
  %% Crazy coda
  sol16 sol fa! sol32 lab sol16. lab32 sib32 do reb fad,! \stemDown sol32[ lab sib do] \stemUp reb mib fa! reb64\rest \once \stemDown reb,!64
  do32 re! mi! fa \change Staff = "right" \stemDown sol la! sib \change Staff = "left" \stemUp red,! mi[ fa sol la!
  \change Staff = "right" \stemDown sib do reb! mib! reb sib sol \change Staff = "left" \stemUp fad!]
  sol[ la sib do \change Staff = "right" \stemDown re! red! mi! \change Staff = "left" \stemUp la,] sib[ do re! red! mi fa
  \change Staff = "right" \stemDown fad! sol sold! la! sib si!] |
  
  % bar 49 - 53
  \change Staff = "left" \stemUp
  si,8\rest^\markup { \huge \larger \bold "  GPR" \larger \large \larger \larger "{" } si16\rest sol16 lab!8. sib16 do8. fa,16 fa8. fa16_\markup { \column { \line { " " } \line { " " } } } |
  fa8. fa16 fa8_. sol8_. sol16 sol32 fa sol8_~ sol4 |
  fa4_\markup { \column { \line { " " } \line { " " } } } sol4\rest sol2\rest |
  s1 |
  s1 |
}


leftTwo = \relative do' {
  \global
  % bar 1 - 5
  \partial 4 s4 |
  do4\staccato do\staccato s2 |
  reb4 do s2 |
  s1 |
  s1 |
  
  % bar 6 - 10
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 11 - 15
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 16 - 20
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 21 - 25
  s1 | s1 | s1 | s1 |
  sib'8. la!16 sib8. \tuplet 3/2 { do32 reb mib } s2 |
  
  % bar 26 - 27
  s4 solb,!4~ solb8 fa s4 |
  s4 mib4~ mib8 reb s4 \bar "||"
  
  % bar 28
  s1 |
  
  % bar 29 - 33
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 34 - 38
  s1 | s1 | s1 | s1 | s1 |
  
  % bar 39 - 44
  \key fa \minor
  s1 |
  s1 |
  s1 |
  s4 s8. do32\rest \clef "bass" mi,!32 fa8^~ fa64 sol lab sib si! do s64 s64 reb8^. do^. |
  do8.^\prall si!16 si4 fa8^~ fa64 sol lab sib si! do s64 s64 reb8^. do^. |
  do8.^\prall si!16_\markup { \column { \line { "   " } \line { "   " } } } si4 fa8^~ fa64 sol lab sib! dob reb mib! s64 fa8^. dob^. |
  
  % bar 45 - 48
  dob!8.^\prall sib16 sib16\noBeam^\markup { \huge \larger \bold "   R" \larger \larger \larger \larger \larger \larger "{" } \clef "treble" s16 s s s2 |
  s1 |
  s1 |
  s1 |
  
  % bar 49 - 53
  s1 |
  s1 |
  s1 |
  sol'4\rest \clef "bass" re,16\rest lab' sib lab sol4 sib^~ |
  sib8 lab16 sol lab2.\fermata |
}

pedalOne = \relative fa {
  \global
  % bar 1 - 5
  \partial 4 reb4\rest |
  fa4_.\fff mi!_. reb2\rest |
  reb4_. do\staccato reb2\rest |
  sib4\staccato lab\staccato sol\staccato do,\staccato |
  fa2 reb'2\rest |
  
  % bar 6 - 10
  reb4\rest fa reb2\rest |
  r4 fa reb2\rest |
  reb4\rest reb8\rest reb16\rest sol,16 sol'4 fa |
  mib8. re!16 mib4 reb2\rest |
  reb4\rest mib reb2\rest |
  
  % bar 11 - 15
  reb4\rest mib reb2\rest |
  reb4\rest reb8\rest reb16\rest re!16 re'4 do |
  sib8. la!16 sib4 reb,4\rest si!\staccato |
  do4\staccato reb\rest reb\rest do\staccato |
  re!4\staccato re\rest re\rest re\staccato |
  
  % bar 16 - 20
  mib4\staccato re4\rest re2\rest |
  r2 r8 r16 si!16 do sol lab mi! |
  fa16 lab' mi! fa re!8 do16 re si!8. do32 re32 sol,4~ |
  sol8. fa'16 mib8. re!16 do8. re16 do8. sib!16 |
  lab8. sol16 fa8\staccato re!\staccato sol2 |
  
  % bar 21 - 25
  do,4 reb'4\rest reb2\rest |
  reb2\rest reb4\rest reb16\rest sib16 do sib |
  la!4 reb4\rest reb2\rest |
  reb2\rest reb4\rest reb16\rest do16 fa mib |
  reb4 solb!4~ solb16 fa fa, fa' mib reb  mib do |
  
  % bar 26 - 27
  reb4 solb!4 do,4~ do16 sib do la! |
  sib4 mib4 lab,4~ lab16 solb! lab fa \bar "||"
  
  % bar 28
  \key do \major
  solb4 re'4\rest re2\rest |
  
  % bar 29 - 33
  \override MultiMeasureRest.staff-position = -2
  R2*2 | R2*2 | R2*2 | R2*2 | R2*2 |

  % bar 34 - 38
  R2*2 |
  re2\rest re4\rest re16\rest fad!16 sol do, |
  red2\rest red4\rest red16\rest red!16 mi sol, |
  reb'2\rest reb4\rest reb16\rest sol lab! reb,! |
  reb2\rest reb4\rest reb16\rest sol lab! si, | \break
  
  % bar 39 - 44
  \key fa \minor
  reb16\rest do16 sib lab reb\rest sib lab sol reb'2\rest |
  reb16\rest reb16 do sib reb\rest do sib la! reb2\rest |
  reb16\rest sib16 reb sol, lab8 fa'8~ fa16 sol, sib fa sol8 do |
  fa,4 fa'4 reb2\rest |
  reb4\rest fa4 reb2\rest |
  reb4\rest mib!4 reb2\rest |
  
  % bar 45 - 48
  reb4\rest reb4 reb2\rest |
  \override MultiMeasureRest.staff-position = -2
  R2*2 |
  R2*2 |
  R2*2 |
  
  % bar 49 - 53
  reb8\rest reb16\rest sib'16 lab!8. sol16 fa8. sol16 fa8. mib!16 |
  reb8. do16 sib8_. sol8_. do4 do,4 |
  reb8. do16  reb'4^~ reb16 do reb la! sib8 reb |
  do16 si! do8 do,2. |
  fa1_\fermata |
}


right = <<
\magnifyMusic 1.2 \rightOne \\
\magnifyMusic 1.2 \rightTwo 
>>

left = <<
\magnifyMusic 1.2 \leftOne \\
\magnifyMusic 1.2 \leftTwo 
>>

pedal = \magnifyMusic 1.2 \pedalOne


\score {
  \new StaffGroup \with {
    instrumentName = ""
  } <<
    \new Staff = "right" \with {
      \magnifyStaff #5/4
    } { \right }
    \new Staff = "left"  \with {
      \magnifyStaff #5/4
    } { \left }
    \new Staff = "pedal" \with {
      \magnifyStaff #5/4
  } { \clef bass \pedal }
    >>
  \layout {
    indent = 0
  }
}