Here's something simpler :
\version "2.17.20"
%#(set-default-paper-size "a4" 'landscape)
#(set-global-staff-size 16)
myTimeSig =
#(define-music-function (parser location num denom)
(string? string?)
#{
\override Staff.TimeSignature.text =
\markup {
\abs-fontsize #13 \override #'(baseline-skip . 1)
\center-column {
\line { #num }
\line { #denom }
}
}
#})
timeSignatures =
{
\override Staff.TimeSignature.font-family = #'typewriter
\override Staff.TimeSignature.font-shape = #'italic
\override Staff.TimeSignature.stencil = #ly:text-interface::print
\myTimeSig "3" "4"
\override Staff.TimeSignature.extra-offset = #'(1 . 0)
\time 1/4
s4
\repeat unfold 3 s4
\once\override Staff.BarLine.transparent = ##f
\myTimeSig "16" "4"
\time 1/4
s4
\repeat unfold 2 s4
}
SkipedMesForMidFile =
{
\tag #'Scor { s4 }
\tag #'Mid { }
}
MelodyOne =
{
\omit Staff.TimeSignature
\override Staff.BarLine.transparent = ##t
\clef F
\time 1/4
\SkipedMesForMidFile
\repeat unfold 3 s4
\once\override Staff.BarLine.transparent = ##f
\time 1/4
\SkipedMesForMidFile
\repeat unfold 2 s4
}
MelodyTwo =
{
\omit Staff.TimeSignature
\override Staff.BarLine.transparent = ##t
\clef F
\time 1/4
\SkipedMesForMidFile
\stemUp
\override TupletBracket.bracket-visibility = ##t
\repeat unfold 3 {
\once\override TupletNumber.text = #tuplet-number::calc-fraction-text
\tuplet 7/8 { des!32 [des! des! des! des! des! des! ] }
}
\once\override Staff.BarLine.transparent = ##f
\once\override Score.BarLine.hair-thickness = #4.0
\time 1/4
\tupletDown
\SkipedMesForMidFile
\tuplet 7/8 { des!32 a,! g! f! des! aes! f,! }
\tuplet 7/8 { ees!32 b! g,! des!-\parenthesize^> a,! a! f! }
}
\score {
<<
\new StaffGroup
\with { \override StaffGrouper.staff-staff-spacing.basic-distance =
#5 }
<<
\new Staff \keepWithTag #'Scor \MelodyOne
\new Staff
\with {
\remove "Staff_symbol_engraver"
\remove "Clef_engraver"
}
\timeSignatures
\new Staff \keepWithTag #'Scor \MelodyTwo
>>
>>
\layout {
%ragged-right = ##f
indent = 0
\context {
\StaffGroup
\override SystemStartBracket.extra-offset = #'(1 . 0)
\override SystemStartBracket.style = #'bar-line
\override SystemStartBracket.thickness = #4
}
\context {
\Staff
%
}
}
}
\score {
<<
\new StaffGroup
<<
\new Staff \keepWithTag #'Mid \MelodyOne
\new Staff \keepWithTag #'Mid \MelodyTwo
>>
>>
\midi { }
}
Pierre
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
