Re: Génération d'un livret

[Jean-Charles Malahieude]

Le 23/09/2012 16:08, address@hidden disait :
> On 23 sept. 2012, at 15:56, Jean-Charles Malahieude
> <address@hidden> wrote:
>
> > 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.
>
> (ly:stencil-combine-at-edge stencil1, axis, direction, stencil2,
> padding)

Merci Mike pour cette lecture compréhensible de

(define-public (stack-stencils axis dir padding stils)
  "Stack stencils @var{stils} in direction @var{axis}, @var{dir}, using
@var{padding}."
  (cond
   ((null? stils) empty-stencil)
   ((null? (cdr stils)) (car stils))
   (else (ly:stencil-combine-at-edge
          (car stils) axis dir (stack-stencils axis dir padding (cdr stils))
          padding))))

qui me donnait des indigestions, entre autres.

Le libellé

(ly:stencil-combine-at-edge pers-stencil X RIGHT verse-stencil 1)

donne le résultat escompté et allège d'autant les tâtonnements initiaux.

@+
Jean-Charles