Compare commits
1 Commits
set-spacin
...
58020caf9b
Author | SHA1 | Date | |
---|---|---|---|
58020caf9b |
@ -38,32 +38,6 @@ shiftChords = #(define-music-function (parser location xshift chords) (number? l
|
|||||||
$chords
|
$chords
|
||||||
#})
|
#})
|
||||||
|
|
||||||
altChord = #(define-music-function (parser location mainchord altchord) (ly:music? ly:music?)
|
|
||||||
(define (chord-namer in-pitches bass inversion context)
|
|
||||||
#{
|
|
||||||
\markup {
|
|
||||||
\translate #'(-0.5 . 0)
|
|
||||||
\score {
|
|
||||||
\chords { #mainchord \klamm #altchord }
|
|
||||||
\layout {
|
|
||||||
\LAYOUT
|
|
||||||
\context {
|
|
||||||
\ChordNames
|
|
||||||
\override ChordName.extra-spacing-width = #'(0 . 0.3)
|
|
||||||
}
|
|
||||||
\context {
|
|
||||||
\Score
|
|
||||||
\override SpacingSpanner.spacing-increment = 0
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
#})
|
|
||||||
#{
|
|
||||||
\once \set chordNameFunction = #chord-namer
|
|
||||||
#mainchord
|
|
||||||
#})
|
|
||||||
|
|
||||||
% kleine Mollakkorde und Alteration ausgeschrieben
|
% kleine Mollakkorde und Alteration ausgeschrieben
|
||||||
#(define (note-name->german-markup-nosym pitch lowercase?)
|
#(define (note-name->german-markup-nosym pitch lowercase?)
|
||||||
(define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))
|
(define (pitch-alteration-semitones pitch) (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))
|
||||||
|
@ -276,7 +276,6 @@
|
|||||||
\context {
|
\context {
|
||||||
\ChordNames
|
\ChordNames
|
||||||
\override VerticalAxisGroup.staff-affinity = ##f
|
\override VerticalAxisGroup.staff-affinity = ##f
|
||||||
\override ChordName.extra-spacing-width = #'(-0.1 . 0.1)
|
|
||||||
}
|
}
|
||||||
\context {
|
\context {
|
||||||
\Score
|
\Score
|
||||||
@ -314,8 +313,8 @@
|
|||||||
\NullVoice
|
\NullVoice
|
||||||
\consists Rest_engraver
|
\consists Rest_engraver
|
||||||
\omit Rest
|
\omit Rest
|
||||||
% \undo \omit NoteHead
|
\undo \omit NoteHead
|
||||||
% \hide NoteHead
|
\hide NoteHead
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user