RE : notes en bas de page

[Legrand Jean-Marc]

Merci pour cette réponse rapide ! Un peu complexe pour mon niveau, mais bon : 
au moins, je sais que ce n'est pas simple simple !

Je vais voir si je peux faire une inclusion de fichier genre eps...

A bientôt pour une proposition d'exemple !

JMarc

-----Message d'origine-----
De : Nicolas Sceaux [mailto:address@hidden 
Envoyé : vendredi 22 février 2008 14:50
À : Legrand Jean-Marc
Cc : address@hidden
Objet : Re: notes en bas de page


Le 20 févr. 08 à 17:08, Legrand Jean-Marc a écrit :

> XP+lily2.10
>
> Bonjour (re) !
>
> Il m’arrive, dans mes transcriptions, de corriger des erreurs  
> (fréquentes, hélas), et de vouloir, donc, indiquer quelque part ce  
> qui est écrit réellement dans la source.
>
> Deux solutions : soit un petit * qui renvoie à la préface où sont  
> listées les dites erreurs, soit une indication en pied de page avec  
> copie exacte du passage de l’original.
>
> C’est cette solution que j’aimerais mettre en œuvre, si c’est  
> possible sans passer par LaTeX.
>
> Donc question : est-il possible d’insérer des extrait de partition  
> en pied de page, comme une bête note en bas de page classique ?
>
> Merci d’avance (je sens que la réponse est non, …)

Pour les notes de bas de page, il n'existe rien d'automatique, et ce
n'est pas faisable proprement côté user.

En tout manuel, voici comment ça peut être réalisé :

#(define-public add-foot-note #f)
#(define-public page-foot-notes #f)
#(let ((foot-notes (list)))
    (set! page-foot-notes
          (lambda (page-number)
            (reverse! (remove not (map (lambda (page-text)
                                         (if (= (car page-text) page- 
number)
                                             (cdr page-text)
                                             #f))
                             foot-notes)))))
    (set! add-foot-note
          (lambda (page text)
            (set! foot-notes
                  (cons (cons page text) foot-notes)))))

#(define-markup-command (footnotes layout props) ()
    (let* ((page-number (chain-assoc-get 'page:page-number props -1))
           (footnotes (page-foot-notes page-number)))
      (if (not (null? footnotes))
          (interpret-markup layout props (make-column-markup footnotes))
          empty-stencil)))

\paper {
   evenFooterMarkup = \markup \column {
     \footnotes
     \fill-line {
       %% Copyright header field only on first page.
       \on-the-fly #first-page \fromproperty #'header:copyright
     }
     \fill-line {
       %% Tagline header field only on last page.
       \on-the-fly #last-page \fromproperty #'header:tagline
     }
   }
   oddFooterMarkup = \markup \column {
     \footnotes
     \fill-line {
       %% Copyright header field only on first page.
       \on-the-fly #first-page \fromproperty #'header:copyright
     }
     \fill-line {
       %% Tagline header field only on last page.
       \on-the-fly #last-page \fromproperty #'header:tagline
     }
   }
}

#(add-foot-note 1 "1. Foot note A")
\markup \concat { toto \super 1 }
\pageBreak
#(add-foot-note 2 "1. Foot note B")
\markup \concat { titi \super 1 }
\pageBreak
#(add-foot-note 3 "1. Foot note C")
\markup \concat { toto \super 1 }
#(add-foot-note 3 "2. Foot note D")
\markup \concat { titi \super 2 }





L'intégrite de ce message (et toutes ses pièces jointes éventuelles) n'étant 
pas assurée sur internet, ENSPM Formation Industrie - IFP Training ne peut 
être tenu responsable de son contenu. Toute utilisation ou diffusion non 
autorisée est interdite. Si vous n'êtes pas destinataire de ce message, 
merci de le détruire et d'avertir l'expéditeur.

The integrity of this message (and any attachments) cannot be guaranteed on the 
Internet. ENSPM Formation Industrie - IFP Training
can not therefore be considered responsible for the contents. Any 
unauthorized use or dissemination is prohibited. If you are not the intended 
recipient of this message, then please delete it and notify the sender.