Compare commits
	
		
			2 Commits
		
	
	
		
			fa1ef3472a
			...
			bce9ffe763
		
	
	| Author | SHA1 | Date | |
|---|---|---|---|
| bce9ffe763 | |||
| 86943b9316 | 
| @@ -17,4 +17,8 @@ | ||||
| LAYOUT = \layout { \generalLayout } | ||||
| HEADER = {} | ||||
| MUSIC = {} | ||||
| TEXT = \markuplist {""} | ||||
| TEXT = \markuplist {""} | ||||
|  | ||||
| verseChords = {} | ||||
| firstVoice = {} | ||||
| global = {} | ||||
|   | ||||
| @@ -145,6 +145,7 @@ lyricsWithChordsLayout = \layout { | ||||
|     \Voice | ||||
|     \remove Stem_engraver | ||||
|     \remove Rest_engraver | ||||
|     \remove Multi_measure_rest_engraver | ||||
|     \remove Phrasing_slur_engraver | ||||
|     \remove Slur_engraver | ||||
|     \remove Tie_engraver | ||||
|   | ||||
| @@ -10,7 +10,12 @@ verselayout = \layout { | ||||
|     \override ChordName.font-size = \songTextChordFontSize | ||||
|   } | ||||
| } | ||||
| TEXT = \markuplist { \override #`(verselayout . verselayout) \TEXT } | ||||
| TEXT = \markuplist { | ||||
|   \override #`(verselayout . verselayout) | ||||
|   \override #`(verse-chords . ,#{ \chords { \verseChords } #}) | ||||
|   \override #`(verse-reference-voice . ,#{ \global \firstVoice  #}) | ||||
|   \TEXT | ||||
| } | ||||
|  | ||||
| % nur Output wenn noStandaloneOutput auf false steht | ||||
| output = #(if (not noStandaloneOutput) | ||||
|   | ||||
| @@ -222,9 +222,9 @@ | ||||
|         (interpret-markup-list layout props lines)))) | ||||
|  | ||||
| #(define-markup-command (chordlyrics layout props lyrics) (ly:music?) | ||||
|    #:properties ((verse-chords #f) | ||||
|                  (verse-reference-voice #f) | ||||
|                  (verse-break-voice #f) | ||||
|    #:properties ((verse-chords #{#}) | ||||
|                  (verse-reference-voice #{#}) | ||||
|                  (verse-break-voice #{#}) | ||||
|                  (verse-line-height songTextLineHeigth) | ||||
|                  (intraverse-vspace 0)) | ||||
|   "Vers mit Akkorden" | ||||
| @@ -236,9 +236,9 @@ | ||||
|         \score-equal-height #verse-line-height \score-lines { | ||||
|           \transposable | ||||
|           << | ||||
|             \new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) } | ||||
|             #(if (ly:music? verse-chords) (music-clone verse-chords) #{ \chords { \verseChords } #}) | ||||
|             \new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice #{ \global \firstVoice #}) } | ||||
|             \new Devnull { #verse-break-voice } | ||||
|             #(music-clone verse-chords) | ||||
|             \new NullVoice { #verse-reference-voice } | ||||
|             \addlyrics { #lyrics } | ||||
|           >> | ||||
|           \layout { | ||||
|   | ||||
		Reference in New Issue
	
	Block a user