2008/12/13 Nick Payne <nick.pa...@internode.on.net>:
> I get the repeat barlines without having to explicitly specify them.
Hehe, I almost posted the same thing, until I realized I'd left out
the \layout block. :)
Mark, there are two options here:
1. amend bar-glyph-alist in output-lib.scm;
2. copy the above and bar-line::calc-glyph-name to a .ly file, and
override 'glyph-name:
#(define my-bar-glyph-alist
'((":|:" . (":|" . "|:"))
(":|.|:" . (":|" . "|:"))
(":|.:" . (":|" . "|:"))
("||:" . ("||" . "|:"))
("dashed" . ("dashed" . '()))
("|" . ("|" . ()))
("||:" . ("||" . "|:"))
("|s" . (() . "|"))
; amended this entry
("|:" . ("||" . "|:"))
("|." . ("|." . ()))
;; hmm... should we end with a bar line here?
(".|" . ("|" . ".|"))
(":|" . (":|" . ()))
("||" . ("||" . ()))
(".|." . (".|." . ()))
("|.|" . ("|.|" . ()))
("" . ("" . ""))
(":" . (":" . ""))
("." . ("." . ()))
("empty" . (() . ()))
("brace" . (() . "brace"))
("bracket" . (() . "bracket"))
))
#(define (my-bar-line::calc-glyph-name grob)
(let* (
; inlined this from lily-library.scm, since it isn't public
(index-cell (lambda (cell dir)
(if (equal? dir 1)
(cdr cell)
(car cell))))
(glyph (ly:grob-property grob 'glyph))
(dir (ly:item-break-dir grob))
(result (assoc glyph my-bar-glyph-alist))
(glyph-name (if (= dir CENTER)
glyph
(if (and result (string? (index-cell (cdr result)
dir)))
(index-cell (cdr result) dir)
#f)))
)
glyph-name))
{
\override Staff.BarLine #'glyph-name = #my-bar-line::calc-glyph-name
b'1 \break
\repeat volta 2 { b' }
}
Regards,
Neil
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
