Re: Imprimer un crochet début et un crochet fin sur un système de portées

[Pierre Perol-Schneider]

Légères modifs afin de limiter les ajustements extra-offset :

\version "2.18.2"

#(define-markup-command (flip layout props myGrob)
  (markup?)
    (interpret-markup layout props
      (markup #:concat (#:null #:scale (cons -1 1) #:line (myGrob)))))

#(define-markup-command (crochet layout props myBracketHeight) (number?)
  (interpret-markup layout props
    (markup #:line (#:with-dimensions (cons -1 0) (cons 0 2)
      (#:path 0.25
        (list (list (quote moveto) 0 1.5)
        (list (quote lineto) -2 1.5)
        (list (quote lineto) -2 (* myBracketHeight -1))
        (list (quote lineto) 0 (* myBracketHeight -1))))))))

global = {
  \key b\minor
  \time 3/4
  \mark\markup\box "M"
}

\score {
  <<
    \new Voice = "Bariton" {
      \global
      \clef F
      <>^\markup\crochet #28
      r4 r c'
      c'-\tweak X-offset #1
      ^\markup\flip\crochet #30 c' s
    }
    \new Lyrics \lyricsto "Bariton" {
      I
    }
    \new Lyrics \lyricsto "Bariton" {
      \markup\italic So
    }
    \new PianoStaff <<
      \new Staff {
        \global
        g''4.( a''8) fis''4-. fis'' fis'' s
      }
      \new Staff {
        \global
        \clef F
        << { r4 <c' d'> q c' c' s } \\ { a2. d } >>
      }
    >>
  >>
  \layout {
    \context {
      \Score
      \omit TimeSignature
    }
  }
}

Pierre