Piero,
This should be closer to what you want, but I need to emphasize that
it's not finished yet. It *is* possible to randomize the staff-line
tear-lengths; hopefully I'll have time to work on that a little
later. But I figured I'd send off what I have so far. For now, only
the top 2 variables are modifiable:
rightTearWidth = #2
rightTearList = #'(1 3 2 2 0)
Hope this helps!
- Mark
_____________________________________________________________________
\version "2.12.0"
rightTearWidth = #2
rightTearList = #'(1 3 2 2 0) % (any 5 numbers from 0-4)
rTW = #rightTearWidth
qRTW = #(/ rTW 4)
rTL = #rightTearList
rTyE = #'(1.5 . 2.5)
rightTear = {
\once \override Staff.BarLine #'stencil = #ly:text-interface::print
\once \override Staff.BarLine #'text = \markup
\override #'(baseline-skip . 0) \with-color #white
\column {
\filled-box #`(,(* (list-ref rTL 0) qRTW) . ,rTW) \rTyE #0
\filled-box #`(,(* (list-ref rTL 1) qRTW) . ,rTW) \rTyE #0
\filled-box #`(,(* (list-ref rTL 2) qRTW) . ,rTW) \rTyE #0
\filled-box #`(,(* (list-ref rTL 3) qRTW) . ,rTW) \rTyE #0
\filled-box #`(,(* (list-ref rTL 4) qRTW) . ,rTW) \rTyE #0
}
\once \override Staff.BarLine #'X-extent = #`(0 . ,(- rTW 0.1))
\break
}
\score {
\relative {
\repeat unfold 4 { g'4 d' b d } \break \rightTear
\repeat unfold 4 { g,4 d' b d } \break \rightTear
}
\layout {
ragged-right = ##t
}
}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
