2014-03-01 11:13 GMT+01:00 Marc Hohl <[email protected]>:
> Hi Harm,
>
> would you mind to share your solution with us? ;-)
>
> Marc
Hi Marc,
I could verify that I've sent my reply to Pierre, Shane _and_ the list!
Though, I can't find it in any archive.
Strange!
Anyway, here again. Hope it works now.
\version "2.18.0"
#(define (make-single-dot-bar-line grob extent)
(ly:font-get-glyph (ly:grob-default-font grob) "dots.dot"))
#(add-bar-glyph-print-procedure "0" make-single-dot-bar-line)
\defineBarLine "0" #'("0" "" "")
\defineBarLine ":|" #'(":|" #f " |")
\defineBarLine "|:" #'("|" "|:" "|")
\defineBarLine ":|0|:" #'(":|" "|:" " | | ")
gittern = \stringTuning <d g b e'>
m =
\new TabStaff
\with {
\remove "Clef_engraver"
stringTunings = #gittern
}
{
\repeat volta 2 { s1 s }
\bar ":|0|:"
\break
\repeat volta 2 { s1 s }
\bar ":|0|:"
s8
}
\paper {
indent = 0
line-width = 60
}
\markup \bold "Single TabStaff"
\m
\markup \bold "StaffGroup"
\new StaffGroup << \m \m >>
Cheers,
Harm
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
