Re: Génération d'un livret

[address@hidden]

On 23 sept. 2012, at 15:56, Jean-Charles Malahieude <address@hidden> wrote:

> Bonjour à tous,
> 
> J'ai ressorti le roi Arthur pour lui adjoindre les partie textuelles de la 
> version sur laquelle je me base (1848).
> 
> Je bloque depuis quelques jours sur la mise en forme du livret.
> Grâce aux deux fichiers de fonctions préparées par Nicolas (livret.ily et 
> livret-columns.ily) je ne m'en sors pas trop mal (c'est fastidieux mais 
> réalisable), à ceci près que je n'arrive pas à adapter l'une de ses fonctions 
> /markup/.
> Les fonctions utilisées sont :
> 
> % hash nombre (décalage), puis vers à la suite de \livretPerseVerse
> #(define-markup-command (livretVerse layout props metric args)
> (number? markup-list?)
>  (let ((margin (* 2 (- 12 (min 12 metric)))))
>    (livret-verse-aux layout props (make-line-markup args) margin)))
> 
> % rôle (\line {..} si complexe) suivi de livretVerse
> #(define-markup-command (livretPersVerse layout props pers verse next)
>    (markup? markup? markup?)
>  (let* ((pers-stencil (interpret-markup
>                        layout props
>                        (markup #:fontsize 0 #:italic pers)))
>         (verse-stencil (interpret-markup layout props verse))
>         (line-stencil (ly:stencil-add pers-stencil verse-stencil)))
>    (interpret-markup layout props
>                      (markup #:column (#:stencil line-stencil
>                                        next)))))
> 
> J'ai modifié livretVerse pour m'affranchir de l'espacement à fournir :
> #(define-markup-command (livretVerse layout props args) (markup-list?)
>  (interpret-markup
>    layout props
>    (markup #:fontsize 0 (make-line-markup args))))
> 
> 
> Mon problème est de « dégoter » la fonction qui, au lieu de superposer les 
> stencils comme le fait ly:stencil-add, en effectuera la concaténation. J'ai 
> bien vu, dans le fichier stencil.scm, la fonction stack-stencils mais 
> n'arrive pas à l'utiliser ou la libeller correctement.
> 
> Une image de l'original est disponible, en privé car trop pesante (50 Ko) 
> pour la liste.
> 
> Cordialement,
> Jean-Charles
> 

(ly:stencil-combine-at-edge stencil1, axis, direction, stencil2, padding)

Cordialement,
~Mike