lilypond-user-fr
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: nom des variables utilisant des chiffres ?


From: daniel.bernair
Subject: RE: nom des variables utilisant des chiffres ?
Date: Fri, 8 Nov 2019 18:47:31 +0100

Merci Valentin, effectivement, cela facilite grandement le travail.  
Amicalement,
Daniel Bernair

-----Message d'origine-----
De : lilypond-user-fr <lilypond-user-fr-bounces+daniel.bernair=address@hidden> 
De la part de Valentin Villenave
Envoyé : vendredi 8 novembre 2019 14:47
À : address@hidden
Cc : address@hidden
Objet : Re: nom des variables utilisant des chiffres ?

On 11/8/19, address@hidden <address@hidden> wrote:
> J’aimerais pour le repérage facile dire par exemple \tag #’’sqel150 où 
> 150 est le numéro de mesure.

Alors là ce sont des tags, et non des noms de variables. Oui, les chiffres sont 
autorisés (par contre attention à la syntaxe : \tag
#'sqel150 avec une apostrophe).

> Je dois utiliser un nombre important de Tag dans une partition de 
> direction, utilisant \removeWithTag pour éviter l’impression de 
> crescendo, decrescendo , Sf ,FF etc définis dans le squelette de la 
> partition.

Il y a beaucoup plus simple ; voici la fonction que j’utilise ; elle me permet 
d’enlever toutes les nuances sauf celles que j’ai tagguées (ici avec le mot-clé 
'ici) et celles pour lesquelles j’ai indiqué une direction explicite 
(c’est-à-dire avec _\ff ou ^\ff plutôt que \ff tout seul).

Il est également possible de procéder en sens inverse : garder toutes les 
nuances sauf celles préselectionnées (il suffit d’enlever le "not"
dans le code, avec la parenthèse correspondante).

%%%%%%%%%%

#(define (dynamic? x)
   (let ((name (ly:music-property x 'name)))
     (or
      (eq? name 'DynamicEvent)
      (eq? name 'AbsoluteDynamicEvent)
      (eq? name 'CrescendoEvent)
      (eq? name 'DecrescendoEvent)
      (eq? name 'SpanDynamicEvent))))

enleverNuances =
#(define-music-function (m) (ly:music?)
   (music-filter
    (lambda (x)
      (let ((tags (ly:music-property x 'tags))
            (dir (ly:music-property x 'direction)))
        (not (and
              (dynamic? x)
              (not (memq 'ici tags))
              (null? dir)))))
    m))

musique = { c'1\< c'\f c'_\pp c'\fff c' \tag #'ici \sfz }

{
  \enleverNuances \musique
}

%%%%%%%%%%%

V.



This email has been scanned by BullGuard antivirus protection.
For more info visit www.bullguard.com





reply via email to

[Prev in Thread] Current Thread [Next in Thread]