pb de grid

[Daniel Cartron]

J'ai voulu essayer ce truc pour noter la pulsation des morceaux que mon fiston 
travaille mais ça n'est pas facile au niveau mise en page. Après des jours de 
tâtonnement je soumet le pb à votre sagacité. Comment faire pour que le 
fichier joint sorte sur une seule page ?

Merci d'avance pour Mathurin (mon fiston)...

\include "italiano.ly"

\header
{
        title = "Yankee Doodle"
        subtitle = ""
%       meter = ""
        composer = "Traditionnel"
%       arranger = ""
        tagline = "                                                 "
        }

\layout {
 \context {
   \Staff
   \consists "Grid_point_engraver"
   gridInterval = #(ly:make-moment 1 4)
%% lines length
   \override GridPoint #'Y-extent = #'(7 . 0)
 }
 \context {
   \StaffGroup
   \remove "System_start_delimiter_engraver"
 }
}

\layout {
}
\new Score
\with {
 \consists "Grid_line_span_engraver"
%% centers grid lines  horizontally below noteheads
 \override NoteColumn #'X-offset = #-0.5
}

\new ChoirStaff <<
 \new Staff
\relative sol'
 {
        \clef treble
        \key sol \major
        \set Staff.explicitKeySignatureVisibility = #end-of-line-invisible
        \time 4/4

%\tempo 4=100

\partial 4
                r4
\bar "||" 
        sol\segno sol re fad
        sol re fad r
        sol sol re sol
        sol si re,2\break
        sol4 sol fad fa
        mi sol do,2
        re1
        sol2 sol^Fin\break
        \bar "||" 
        mi'4 fad mi re
        mi fad sol2
        re4 mi re do
        si do re2\break
        mi4 fad mi re
        mi fad sol fad
        re sol fad la
        sol r sol8 r r4\segno

\bar "|." 

}
 \new Staff
 {
%% making sure the lines will be placed outside the Staff
   \override Score.GridLine #'extra-offset = #'( 0.0 . -4.0 )

%% hides staff and notes so that only the grid lines are visible
   \override NoteHead #'transparent = ##t
   \override NoteHead #'no-ledgers = ##t
   \override Stem #'transparent = ##t
   \override Beam #'transparent = ##t
   \override Staff.BarLine #'transparent = ##t
   \override Staff.StaffSymbol #'line-count = #0
   \override Staff.TimeSignature #'transparent = ##t
   \override Staff.Clef #'transparent = ##t

% you have to put 'dummy' notes here to force regular grid spacing...
\partial 4
                do4


\repeat unfold 16 
{
%  \once  \override Score.GridLine #'thickness = #3.0
 do4 do do do
%  \once  \override Score.GridLine #'thickness = #0.0
%  shdo4   do4
 }
 }
>>

#(define myStaffSize 14)  % changez cette valeur à votre convenance
#(set-global-staff-size myStaffSize)

\paper {
        paper-width = 171\mm
        paper-height = 95\mm
        line-width = 160\mm
        #(define fonts
                (make-pango-font-tree "Liberation Sans"
                        "Liberation Sans"
                        "Liberation Mono"
                        (/ myStaffSize 20)
                        )
                        )
        }

\version "2.11.59"
-- 
Cordialement, Daniel Cartron
« Le public, c'est les autres. »
François Cavanna - 4 rue Choron