capoTranspose eingebaut
This commit is contained in:
parent
57bcf94167
commit
34c9c5a932
@ -225,9 +225,9 @@ cue =
|
||||
#{
|
||||
\tag #'cues {
|
||||
\tweak self-alignment-X #LEFT
|
||||
\mark
|
||||
\mark
|
||||
#(make-on-the-fly-markup
|
||||
(lambda (layout props m) (interpret-markup layout (prepend-alist-chain 'cues zahlen props) (ly:output-def-lookup layout 'cueMarkup)))
|
||||
(make-null-markup))
|
||||
}
|
||||
#})
|
||||
#})
|
||||
|
@ -68,6 +68,18 @@ altChord =
|
||||
#mainchord
|
||||
#}))
|
||||
|
||||
% Akkorde werden so transponiert, dass sie passen, wenn man mit Kapo im angegebenen Bund spielt
|
||||
capoTranspose =
|
||||
#(define-music-function (fret chords) (number? ly:music?)
|
||||
(define semi->pitch
|
||||
(make-semitone->pitch
|
||||
(music-pitches
|
||||
#{ h b a gis g fis f e es d cis c #})))
|
||||
(transpose
|
||||
(ly:pitch-transpose (semi->pitch fret) (ly:make-pitch 0 0))
|
||||
(ly:make-pitch 0 0)
|
||||
chords))
|
||||
|
||||
% kleine Mollakkorde und Alteration ausgeschrieben
|
||||
#(define (note-name->german-markup-nosym pitch lowercase?)
|
||||
(define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))
|
||||
|
Loading…
x
Reference in New Issue
Block a user