lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Lilypond : un livret CD


From: Pierre Perol-Schneider
Subject: Re: Lilypond : un livret CD
Date: Sat, 11 Jul 2020 07:49:43 +0200

J'ai fait un peu le ménage dans les définitions :

\version "2.20.0"

%%%%%%%%%%%%%%%%%%%%%% Defs hirondelles %%%%%%%%%%%%%%%%%%%%%%%%%%%
unit = \markup\with-dimensions-from \null
  \combine\stencil
   #(make-path-stencil
     '(M 202.56  88.45
       C 202.56  99.43 193.66 108.33 182.68 108.34
       C 171.69 108.34 162.79  99.43 162.79  88.45
       C 162.79  77.47 171.69  68.56 182.68  68.56
       C 193.66  68.56 202.56  77.47 202.56  88.45
       Z
       M 153 126 L 267 126 M 182.5 12 L 182.5 114
       M 156 88  L 231 88)
     0.2 .08 .08 #f)
  \combine\stencil
   #(make-path-stencil
     '(M 191.51 88.45
       C 191.51 93.33 187.56 97.29 182.68 97.29
       C 177.79 97.29 173.84 93.33 173.84 88.45
       C 173.84 83.57 177.79 79.61 182.68 79.61
       C 187.56 79.61 191.51 83.57 191.51 88.45
       Z)
     0.2 .08 .08 #t)
   \with-color #white \stencil
   #(make-path-stencil
     '(M 191.5 88 L 174 88 M 182.5 79.5 L 182.5 97)
     0.2 .08 .08 #f)

hirondBD = \markup \combine \rotate #-90 \unit \scale #'(1 . -1) \unit
hirondHD = \markup\rotate #90 \hirondBD
hirondHG = \markup\rotate #180 \hirondBD
hirondBG = \markup\rotate #270 \hirondBD
hirondelles = \markup\concat {
  \override #'(baseline-skip . 0)
  \right-column {
    \translate #'(0 . -20.15)
    \concat { \hspace #-.6 \hirondHG }
    \vspace #16.07 \hirondBG
  }
  \hspace #117.65
  \override #'(baseline-skip . 0)
  \right-column {
    \translate #'(0 . -20.15)
    \concat { \hspace #-.6 \hirondHD }
    \vspace #16.07 \hirondBD
  }
}

gabarit = \markup\with-dimensions-from \null {
  \combine
  \with-color #red
  \stencil #(make-path-stencil
    '(M 0 1 L 137.7 1 L 137.7 -67.3 L 0 -67.3 Z) .2 1 1 #t)
  \combine
  \with-color #white
  \stencil #(make-path-stencil
     '(M 2 -1 L 135.7 -1 L 135.7 -65.3 L 2 -65.3 Z) .2 1 1 #t)
  \with-color #red
    \stencil #(make-path-stencil '(M 69 .5 L 69 -67) .5 1 1 #f)
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Cordialement,
Pierre

reply via email to

[Prev in Thread] Current Thread [Next in Thread]