Re: Ecriture d'alternatives

[NOreply]

Bonjour,
J'explique juste mes fonction \m et \M:
C'est pour mélanger du texte et un extrait de partition musicale. On fait
une chaîne et finit toujours par 2 guillemets ("").
La commande \M accepte un \markup { } mais uniquement s'il est dans une
variable.

Exemple ici:
http://lilybin.com/6s9vq4/2

%% le code
\version "2.18.2"


%%%%%%%%
% Quelques fonctions perso:
% \m {musique} + "" ou \M "texte" ""
"m" = #(define-scheme-function (parser location   m1 text2  ) (  ly:music?
markup? ) #{ \markup { \translate #'( 0 . 0.5 ) \score {  $m1   \layout {
indent = 0 } } #text2  } #})
% \M "texte" + \m... ou "texte"
"M" = #(define-scheme-function (parser location   text1 text2 )( markup?
markup? ) #{ \markup  { #text1  #text2 } #})
% \txy réglage x et y
txy = #(define-scheme-function (parser location  x y  text1 )( number?
number? markup? ) #{ \markup \translate  #( cons x y  ) { #text1 } #})
% \REPLACE contexte element \markup {texte ou dessin}
REPLACE = #(define-music-function (  parser location  symb1 symb2 txt ) (
symbol? symbol? markup? ) #{  \override $symb1 . $symb2 .stencil =
#ly:text-interface::print \override $symb1 . $symb2 .text =  $txt #})
%%%%%%%%%%%%%

TXTmarkup = \markup \italic  {un markup dans une variable}

\M "Voici un do:" \m {c'} 
\M \txy 5 0 "plus loin" 
\M \txy  0 5 "plus haut" 
\txy 5 -5 \m { c'^"plus loin et plus bas" } ""

\m { c'} \M "<= un do" ""
\m { c'}  \M \TXTmarkup  ""




--
Sent from: http://lilypond-french-users.1298960.n2.nabble.com/