X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Flsr%2Ftransposing-pitches-with-minimum-accidentals-smart-transpose.ly;h=514fc69fab76e70bd379612121a5a168410bfb28;hb=c6554467b0a9beddf0d7ef12746ae31a25fe36e7;hp=12567198065f40889a6f1059c641eaa219a7aaef;hpb=0546edd7b079d4ab0569ec136d2d6b33e3004075;p=lilypond.git diff --git a/input/lsr/transposing-pitches-with-minimum-accidentals-smart-transpose.ly b/input/lsr/transposing-pitches-with-minimum-accidentals-smart-transpose.ly index 1256719806..514fc69fab 100644 --- a/input/lsr/transposing-pitches-with-minimum-accidentals-smart-transpose.ly +++ b/input/lsr/transposing-pitches-with-minimum-accidentals-smart-transpose.ly @@ -31,6 +31,37 @@ De esta forma se selecciona el mayor número de notas enarmónicas naturales. " + +doctitlede = "Noten mit minimaler Anzahl an Versetzungszeichen transponieren." + +texidocde = "Dieses Beispiel benutzt Scheme-Code, um enharmonische +Verwechslungen für Noten zu erzwingen, damit nur eine minimale Anzahl +an Versetzungszeichen ausgegeben wird. In diesem Fall gelten die +folgenden Regeln: + +@itemize +@item +Doppelte Versetzungszeichen sollen entfernt werden + +@item +His -> C + +@item +Eis -> F + +@item +Ces -> B + +@item +Fes -> E + +@end itemize + +Auf diese Art werden am meisten natürliche Tonhöhen als enharmonische +Variante gewählt. +" + + lsrtags = "pitches" texidoc = "This example uses some Scheme code to enforce enharmonic modifications for notes in order to have the minimum number of @@ -59,6 +90,7 @@ In this manner, the most natural enharmonic notes are chosen. doctitle = "Transposing music with minimum accidentals" } % begin verbatim + #(define (naturalize-pitch p) (let* ((o (ly:pitch-octave p)) (a (* 4 (ly:pitch-alteration p))) @@ -105,10 +137,10 @@ music = \relative c' { c4 d e g } \score { \new Staff { - \transpose c ais \music - \naturalizeMusic \transpose c ais \music - \transpose c deses \music - \naturalizeMusic \transpose c deses \music + \transpose c ais { \music } + \naturalizeMusic \transpose c ais { \music } + \transpose c deses { \music } + \naturalizeMusic \transpose c deses { \music } } \layout { } }