2013/7/1 Andrew Bernard <[email protected]>
> To make clearer what I am asking in relation to manually drawing barlines,
> attached is a snippet mocked up in inkscape of what I need to do.
>
>
Dear Andrew,
Well this is certainly not the Scheme code you were looking for but, at
least, it achieves your snippet...
\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"
\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 =
{
\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 =
{
\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 TimeSig \timeSignatures
\new StaffGroup
\with { \override StaffGrouper.staff-staff-spacing.basic-distance =
#15 }
<<
\new Staff \keepWithTag #'Scor \MelodyOne
\new Staff \keepWithTag #'Scor \MelodyTwo
>>
>>
\layout {
%ragged-right = ##f
indent = 0
\context {
\type "Engraver_group"
\consists "Time_signature_engraver"
\consists "Axis_group_engraver"
\name "TimeSig"
\alias "Staff"
\override TimeSignature.break-align-symbol = ##f
%%%%%%%%%%%%%%% here's a week point : %%%%%%%%%%%%%%%%%%
\override TimeSignature.extra-offset = #'(2 . -17)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\override TimeSignature.after-line-breaking =
#shift-right-at-line-begin
}
\context {
\Score
\accepts TimeSig
}
\context {
\StaffGroup
\override SystemStartBracket.extra-offset = #'(1 . 0)
\override SystemStartBracket.style = #'bar-line
\override SystemStartBracket.thickness = #4
}
\context {
\Staff
\remove "Time_signature_engraver"
}
}
}
\score {
<<
\new StaffGroup
<<
\new Staff \keepWithTag #'Mid \MelodyOne
\new Staff \keepWithTag #'Mid \MelodyTwo
>>
>>
\midi { }
}
Hope that helps.
Cheers,
Pierre.
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
