Notenbund/lilypond-common-includes
15
0
Fork 0
Code Issues 21 Pull Requests Packages Projects Releases Wiki Activity

switch swingStyle to textMark

Browse Source
This commit is contained in:
žuk
2026-03-31 17:24:11 +02:00
parent f075946777
commit 71c8c0385c
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
private_includes/base/swing_style.ily
View File

@@ -1,4 +1,4 @@
swing = \mark \markup { swing = \textMark \markup {
\line \general-align #Y #DOWN { \line \general-align #Y #DOWN {
\score { \score {
\new Staff \with { \new Staff \with {
@@ -47,7 +47,7 @@ swing = \mark \markup {
} }
} }
swingOff = \mark \markup { swingOff = \textMark \markup {
\line \general-align #Y #DOWN { \line \general-align #Y #DOWN {
\score { \score {
\new Staff \with { \new Staff \with {
@@ -99,7 +99,7 @@ swingOff = \mark \markup {
\include "swing.ly" \include "swing.ly"
swingMusic = swingMusic =
#(define-music-function (parser location music) (ly:music?) #(define-music-function (music) (ly:music?)
(define (partial-duration-length m) (define (partial-duration-length m)
(let ((name (ly:music-property m 'name)) (let ((name (ly:music-property m 'name))
(es (ly:music-property m 'elements)) (es (ly:music-property m 'elements))
@@ -118,4 +118,4 @@ swingMusic =
#{ #{
\swing \swing
\applySwingWithOffset 8 #'(2 1) #(partial-duration-length music) #music \applySwingWithOffset 8 #'(2 1) #(partial-duration-length music) #music
#}) #})

1
private_includes/base/verses_with_chords.ily
View File

@@ -385,6 +385,7 @@ Chord_lyrics_spacing_engraver =
\remove Volta_engraver \remove Volta_engraver
\remove Parenthesis_engraver \remove Parenthesis_engraver
\remove Metronome_mark_engraver \remove Metronome_mark_engraver
\remove Text_mark_engraver
} }
\context { \context {
\Staff \Staff