Re: alignement opus et piece

[Gilles]

> Si on veut mettre des titres, on faut changer manuellement Y-extend et  
> mettre '(0 . 4) par exemple :
> (ly:make-stencil [...] '(0 . 0) '(0 . 4))
> Peut-être que quelqu'un de plus calé que moi saurait le faire  
> automatiquement.
Bon, en fait, on peut "additionner" les 2 stencils et calculer les  
dimensions des 2 réunis.
%%%%%%%%%%%
#(define-markup-command (my-hymn layout props label arg1 arg2)
      (symbol? markup? markup?)
(let* ((space (+ (ly:output-def-lookup layout 'hymn-hspace 0)
                 (ly:output-def-lookup layout 'indent 0)))
       (stencil-even (interpret-markup layout props
           ;(markup #:line (arg1 #:hspace space #:tiny arg2))))
           (markup #:fill-line ("" arg2 arg1))))
       (stencil-odd (interpret-markup layout props
           ;(markup #:fill-line (#:line (#:hspace space #:tiny arg2) arg1))
           (markup #:fill-line (arg1 arg2 ""))))
       (stencil-both (ly:stencil-add stencil-even stencil-odd)))
  (ly:make-stencil
    `(delay-stencil-evaluation
       ,(delay (ly:stencil-expr
          (let* ((table (ly:output-def-lookup layout 'label-page-table))
                 (page-number (if (list? table)
                   (assoc-get label table)
                   #f)))
            (if (even? page-number) stencil-even stencil-odd)))))
    (ly:stencil-extent stencil-both X)(ly:stencil-extent stencil-both Y))))
%%%%%%%%%%%
Mais le titre est un peu près de notre ligne. On peut sûrement régler ça  
avec je ne sais quelle propriété.

--
Gilles