Re: Aide pour une fonction Scheme

[Jean Abou Samra]

Bonjour,


Le 17/11/2022 à 00:50, Simon Martineau a écrit :
>   * Comment faire pour avoir une sortie différente si pas d’argument
>     |$key| (pour les partitions en Ut) ?


D'abord, il faut rendre l'argument key optionnel en remplaçant string?
par (string? ""), où "" est la valeur par défaut s'il n'est pas fourni.

Ensuite, utiliser (if (string-null? key) ...) pour tester si key vaut "".



>   * Comment faire pour insérer le titre et le numéro de page dans
>     cette fonction (|\fromproperty #'header:title| et
>     |#'page:page-number-string|) ?
>   * Comment changer la taille du texte (|\fontsize #-5.5|) ?



Avec \fromproperty #'header:title, \fromproperty #'page-page-number-string
et \fontsize #-5.5 :-)  Qu'est-ce qui vous questionne ? C'est exactement la
même syntaxe que dans le code développé.


>   * Comment supprimer l’espace autour de l’argument |$key| ?



Avec \concat. Voir ici :
https://lilypond.org/doc/v2.22/Documentation/notation/formatting-text#selecting-font-and-font-size

En tout, cela donne :


\version "2.22.2"

myBook =
#(define-void-function
  (key music)
  ((string? "") ly:music?)
  (print-book-with-defaults
    #{
    \book {
      #(if (not (string-null? key))
           #{ \bookOutputSuffix $key #})
    \paper {
      oddHeaderMarkup = \markup {
        \on-the-fly \first-page {
          \circle \pad-around #2 $key
        }
        \on-the-fly \not-part-first-page {
          \fontsize #-5.5 \fromproperty #'header:title
          #(if (not (string-null? key))
               #{ \markup \concat { "[" $key "]"  } #}
               "")
          "- p." \fromproperty #'page:page-number-string
        }
      }
      evenHeaderMarkup = \markup {
          \fontsize #-5.5 \fromproperty #'header:title
          #(if (not (string-null? key))
               #{ \markup \concat { "[" $key "]"  } #}
               "")
          "- p." \fromproperty #'page:page-number-string
      }
    }
      $music
    }
    #}))



\header {
  title = "ABC"
}

musique = { c'1 \pageBreak c'1 }

\myBook \musique % pour les partitions en ut
\myBook "Bb" { \transpose c d \musique } % pour les partitions en Bb
\myBook "Eb" { \transpose c a \musique } % pour les partitions en Eb



Cordialement,
Jean

OpenPGP_signature
Description: OpenPGP digital signature