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

From: Pierre Perol-Schneider <[email-masked]>
Date: Sat, 1 Nov 2014 13:05:50 +0100

Bonjour Daniel,

Le 30 octobre 2014 17:54, Daniel Bernair <[email-masked]> a
écrit :

> Je ne trouve pas comment programmer l’impression d’un crochet de début de
> sélection et celui de fin à travers un système. Voir un extrait d’image de
> début de croceht.
>

Je pense que le plus simple dans ce cas précis est d'utiliser un markup.
Par ex.:

\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 1) (cons 0 1)
      (#:path 0.25
        (list (list (quote moveto) 0 0)
        (list (quote lineto) -2 0)
        (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
      <>-\tweak extra-offset #'(1 . 1) %=> affine le réglage de position
      ^\markup\crochet #28 %=> définit la hauteur du crochet
      r4 r c'
      <>-\tweak extra-offset #'(1 . 1)
      ^\markup\flip\crochet #28
      s
    }
    \new Lyrics \lyricsto "Bariton" {
      I
    }
    \new Lyrics \lyricsto "Bariton" {
      \markup\italic So
    }
    \new PianoStaff <<
      \new Staff {
        \global
        g''4.( a''8) fis''4-. s
      }
      \new Staff {
        \global
        \clef F
        << { r4 <c' d'> q s } \\ { g2. } >>
      }
  \layout {
    \context {
      \Score
      \omit TimeSignature
    }
  }
}

Cordialement,
Pierre

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Sat, 1 Nov 2014 15:47:06 +0100

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

\version "2.18.2"

#(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

---

From: "Daniel Bernair" <[email-masked]>
Date: Sat, 1 Nov 2014 18:07:17 +0100

Merci Pierre. J’essayerai cela dans ma partition dès que possible.
Amicalement
Daniel Bernair

From: Daniel Bernair 
Sent: Thursday, October 30, 2014 5:54 PM
To: [email-masked] 
Subject: Imprimer un crochet début et un crochet fin sur un système de portées

Bonjour,
Je ne trouve pas comment programmer l’impression d’un crochet de début de sélection et celui de fin à travers un système. Voir un extrait d’image de début de croceht.
Merci à tous.
Daniel Bernair  

--------------------------------------------------------------------------------
_______________________________________________
liste de diffusion lilypond-user-fr
[email-masked]
https://lists.gnu.org/mailman/listinfo/lilypond-user-fr

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Sun, 2 Nov 2014 10:21:46 +0100

Juste au cas où, peut-être que ce bout de code pourrait également
t'intéresser :
http://lsr.di.unimi.it/LSR/Item?id=953
Bon dimanche !

Amicalement,
Pierre

---

From: Pierre Perol-Schneider <[email-masked]>
Date: Sun, 2 Nov 2014 10:53:58 +0100

Ajouté à la LSR : http://lsr.di.unimi.it/LSR/Item?id=957
Pierre

---

From: "Daniel Bernair" <[email-masked]>
Date: Fri, 7 Nov 2014 17:56:21 +0100

Merci Pierre,
Je viens de modifier ma partition avec satisfaction. Cela marche super bien !
Daniel Bernair

From: Pierre Perol-Schneider 
Sent: Sunday, November 2, 2014 10:53 AM
To: Daniel Bernair 
Cc: lilypond-user-fr 
Subject: Re: Imprimer un crochet début et un crochet fin sur un système de portées