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: Valentin Villenave
Subject: Re: nom des variables utilisant des chiffres ?
Date: Sun, 10 Nov 2019 12:22:09 +0100

On 11/10/19, address@hidden <address@hidden> wrote:
> J'ai essayé \garderNuances, \enleverNuances , placés avant le premier << ,
> après le premier << , devant ScoreAPiccolo, après \scoreAPiccolo ,
> \enleverNuances et \squelinst entre { } ou << >> rien à faire. Le nom des
> fonctions \enleverNuances et \garderNuances sont reconnus.

À ce stade il vaudrait peut-être mieux poster un fichier entier, ou en
tout cas un bout de code compilable. (Je trouve notamment étrange
d’avoir besoin d’utiliser autant de tags différents, il y a peut-être
moyen de faire plus simple.)

> J'ai peut-être compris à l'enevers garder et enlever, mais rien à faire.

À toutes fins utiles, voici comment je rédigerais la fonction garderNuances :

%%%%

#(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))))

garderNuances =
#(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 'garder tags))
              (null? dir)))))
    m))


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))


garderNuances =
#(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)
              (or (memq 'ici tags)
                  (not (null? dir)))))))
    m))


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

{
  \enleverNuances \musique
}

{
  \garderNuances \musique
}

%%%%

V.



reply via email to

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