[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Saisie des notes dans les tonalités chargées en # ou en b ?
From: |
Valentin Villenave |
Subject: |
Re: Saisie des notes dans les tonalités chargées en # ou en b ? |
Date: |
Fri, 25 Jan 2019 23:02:07 +0000 |
On 1/25/19, Christophe Pochon <address@hidden> wrote:
> Et comment feriez-vous si au lieu d'un bécarre, c'est un dièse ou un bémol
> "accidentel" qui survient ?
On peut tout faire évidemment… Mais bon, c’est moche.
%%%%%%%%%%%%%%%
\version "2.19.82" % obligatoire (pas 2.18)
sloppy =
#(define-music-function (music) (ly:music?)
(let ((alts '()))
#{ \applyContext
#(lambda (c)
(set! alts
(ly:context-property c 'keyAlterations))
(music-map
(lambda (m)
(let ((p (ly:music-property m 'pitch))
(force (ly:music-property m 'force-accidental)))
(if (and
(not (eq? force #t))
(not (null? p)))
(let* ((note (ly:pitch-notename p))
(alt (ly:assoc-get note alts)))
(if alt
(ly:music-set-property! m 'pitch
(ly:make-pitch
(ly:pitch-octave p)
note
alt)))))
m))
music))
#music
#}))
{\key es \major
\sloppy {
bes1 b!1 c' b' cis' e''
}
}
%%%%%%%%%%%%%%%
V.