Re: Faire apparaître le nom d'un système en cours de pièce

[Gilles THIBAULT]

>           | portée 1
> 
>     R    |
>     U    |
>     E    | portée 2
>     O    |
>     H    |
>     C    | portée 3
> 

pour écrire un nom d'instrument de haut en bas, en pouvant régler l'écartement 
entre les caractères, j'utilise la fonction suivante  :


%%%%%%%%%%%%%%%%%
% ATTENTION !!! Non compatible avec des accents ; ê û etc ...

#(define-markup-command (char-column layout props name baseline) (string? 
number?)
  "Print each character of string `name in a centered-column"
  (interpret-markup layout props
   (if (<= (string-length name) 2)
          (markup name)
          (markup (make-override-markup (cons 'baseline-skip baseline)
                (make-center-column-markup (map
                    (lambda(c)
                        (make-line-markup (list
                          (make-hspace-markup 0.3)
                          (make-simple-markup (string c))
                          (make-hspace-markup 0.3))))
                    (string->list name))))))))

%%%%%%%%%%%%%%%%%%%%%%%%
Pour avoir les caractères de bas en haut, il suffit de remplacer
       (string->list name)
par
       (reverse (string->list name))

La fonction s'utilise de la manière suivante :

InstrumentName = \markup  \char-column #"CHOEUR" #2.1

(Notez bien, CHOEUR et non CHŒUR : que des caractères ascii !)

-- 
Gilles