\version "2.16"

%%%% Commandes %%%%%

#(define-markup-command (melo-text layout props linewidth text)
  (number? string?)
  (interpret-markup layout props
    (markup #:override '(font-name . "Didot")
            #:override `(line-width . ,linewidth)
            (make-column-markup (list (make-justify-markup (string-split text #\space)))))))

meloText =
#(define-music-function
(parser location Largeur Hauteur Texte)
(number? number? string?)
(define myOffset
  (cons 0 Hauteur))
#{
  \once \override TextScript #'whiteout = ##t
  \once \override TextScript #'outside-staff-priority = ##f
%  \once \override TextScript #'Y-offset = 
%    #(lambda (grob) (cdr (ly:stencil-extent (ly:grob-property grob 'stencil) Y)))
  \once \override TextScript #'extra-offset = $myOffset
  \once \override TextScript #'Y-extent = #'(0 . 0)
  \once \override TextScript #'X-extent =
    #(lambda (grob)
      (coord-translate
        (ly:stencil-extent (ly:grob-property grob 'stencil) X)
        '(0 . 1.0)))
  \once \override Staff.TimeSignature #'stencil = ##f
  \time 4/4
  s1-\markup \melo-text #Largeur #Texte
  \once \override Staff.TimeSignature #'stencil = ##f
  \time 4/4
  %\once \revert Staff.TimeSignature #'stencil
#}
)


stopBass = {
  \once \override Staff.TimeSignature #'stencil = ##f
  \time 4/4
  s1
  \once \override Staff.TimeSignature #'stencil = ##f
}


%%%% Textes %%%%

textAt = \meloText #20 #4 #"Insensé, rentre en toi-même, gémis sur toi ; vois ton erreur, vois ta folie..."

textAu = \meloText #40 #4 #"Mais non...
  Non, je n’ai point perdu le sens, non, je n’extravague point, non, je ne me reproche rien."

textAv = \meloText #30 #5 #"En quelque lieu que soit cette figure adorable, quelque corps qui la porte et quelque main qui l’ait faite, elle aura tous les vœux de mon cœur."




%%%% Notes des parties %%%%%

dessus = \relative c'' {
  \textLengthOn
  \key c \major
  \time 3/4
  r4 <a c>( <fis a>) |
  <e g> <g e'> <fis dis'> |
  <g e'> r r |
  \textAt
  
  \tempo "Allegro" 4 = 120
  \once \revert Staff.TimeSignature #'stencil
  \time 2/2
  <g b>8 <g b>4 <g b>8 <g b f'> <g b f'>4 <g b f'>8 |
  <g c e>4 r r2 |
  \textAu \time 2/2
  <c e>8 <c e>4 <c e>8 <c e bes'>8 <c e bes'>4 <c e bes'>8 |
  <c f a>4 r r2 |
  \textAv
}

basse = \relative a {
  \time 3/4
  \key c \major
  a2 r4 |
  b4 r b, |
  e r r |
  \stopBass
  
  %\tempo "Allegro"
  \once \revert Staff.TimeSignature #'stencil
  \time 2/2
  e4 e d d |
  c r r2 |
  \stopBass \time 2/2
  a'4 a g g |
  f r r2 |
  \stopBass \time 2/2
}


\header {
  title = "Pygmalion"
  subtitle = "Scène lyrique ou mélodrame"
  composer = "Georg Benda"
  poet = "Jean-Jacques Rousseau"
}

#(set-global-staff-size 18)

\score {
  \new PianoStaff
  <<
    \new Staff {
      \accidentalStyle "modern"
      \dessus
    }
    \new Staff {
      \accidentalStyle "modern"
      \clef bass
      \basse
    }
  >>
  \layout { }
}