Re: Lilypond : un livret CD

[Jean Abou Samra]

Bonjour Pierre,

> @ Jean: attention aux accents dans les titres de fichiers; je me 
> souviens que ça peut faire bugger LP sur certaines machines.
Holà, ce message est tombé dans mes spams. D'accord, je m'y tiendrai 
pour les réponses à la liste.

Le 11/07/2020 à 07:49, Pierre Perol-Schneider a écrit :
> 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

Ce code est assez impressionnant. Il pourrait enrichir la LSR, non ?

Cordialement,
Jean