1 %% DO NOT EDIT this file manually; it is automatically
2 %% generated from LSR http://lsr.dsi.unimi.it
3 %% Make any changes in LSR itself, or in Documentation/snippets/new/ ,
4 %% and then run scripts/auxiliar/makelsr.py
6 %% This file is in the public domain.
10 %% Translation of GIT committish: bbf8fd2b5a3ebf20a1fdc91613dc49045a53a270
12 Questo esempio usa del codice Scheme per imporre delle modifiche
13 enarmoniche alle note che permettano di avere il numero minimo di
14 alterazioni. In questo caso si applica la seguente regola:
16 Le doppie alterazioni devono essere eliminate
31 In questo modo vengono scelti i suoni enarmonici più semplici.
34 doctitleit = "Trasposizione delle altezze con numero minimo di alterazioni"
40 %% Translation of GIT committish: 6977ddc9a3b63ea810eaecb864269c7d847ccf98
41 doctitlees = "Transportar música con el menor número de alteraciones"
43 Este ejemplo utiliza código de Scheme para forzar las
44 modificaciones enarmónicas de las notas, y así tener el menor
45 número de alteraciones accidentales. En este caso se aplican las
50 Se quitan las dobles alteraciones
66 De esta forma se selecciona el mayor número de notas enarmónicas
72 %% Translation of GIT committish: 0a868be38a775ecb1ef935b079000cebbc64de40
73 doctitlede = "Noten mit minimaler Anzahl an Versetzungszeichen transponieren."
74 texidocde = "Dieses Beispiel benutzt Scheme-Code, um enharmonische
75 Verwechslungen für Noten zu erzwingen, damit nur eine minimale Anzahl
76 an Versetzungszeichen ausgegeben wird. In diesem Fall gelten die
81 Doppelte Versetzungszeichen sollen entfernt werden
97 Auf diese Art werden am meisten natürliche Tonhöhen als enharmonische
102 %% Translation of GIT committish: 3b125956b08d27ef39cd48bfa3a2f1e1bb2ae8b4
104 Cet exemple, grâce à un peu de code Scheme, donne la priorité aux
105 enharmoniques afin de limiter le nombre d'altérations supplémentaires.
106 La règle appliquable est@tie{}:
110 Les altérations doubles sont supprimées
126 Cette façon de procéder aboutit à plus d'enharmoniques naturelles.
129 doctitlefr = "Transposition et réduction du nombre d'altérations accidentelles"
132 This example uses some Scheme code to enforce enharmonic modifications
133 for notes in order to have the minimum number of accidentals. In this
134 case, the following rules apply:
136 Double accidentals should be removed
151 In this manner, the most natural enharmonic notes are chosen.
154 doctitle = "Transposing pitches with minimum accidentals (\"Smart\" transpose)"
157 #(define (naturalize-pitch p)
158 (let ((o (ly:pitch-octave p))
159 (a (* 4 (ly:pitch-alteration p)))
160 ;; alteration, a, in quarter tone steps,
161 ;; for historical reasons
162 (n (ly:pitch-notename p)))
164 ((and (> a 1) (or (eq? n 6) (eq? n 2)))
167 ((and (< a -1) (or (eq? n 0) (eq? n 3)))
171 ((> a 2) (set! a (- a 4)) (set! n (+ n 1)))
172 ((< a -2) (set! a (+ a 4)) (set! n (- n 1))))
173 (if (< n 0) (begin (set! o (- o 1)) (set! n (+ n 7))))
174 (if (> n 6) (begin (set! o (+ o 1)) (set! n (- n 7))))
175 (ly:make-pitch o n (/ a 4))))
177 #(define (naturalize music)
178 (let ((es (ly:music-property music 'elements))
179 (e (ly:music-property music 'element))
180 (p (ly:music-property music 'pitch)))
182 (ly:music-set-property!
184 (map (lambda (x) (naturalize x)) es)))
186 (ly:music-set-property!
191 (set! p (naturalize-pitch p))
192 (ly:music-set-property! music 'pitch p)))
196 #(define-music-function (parser location m)
200 music = \relative c' { c4 d e g }
204 \transpose c ais { \music }
205 \naturalizeMusic \transpose c ais { \music }
206 \transpose c deses { \music }
207 \naturalizeMusic \transpose c deses { \music }