One ugly solution is to add the following at the top of your
file:
#(define-public (index-cell cell dir)
(if (equal? dir 1)
(cdr cell)
(car cell)))
#(define-public (bar-line::my-calc-glyph-name grob)
(let* (
(glyph (ly:grob-property grob 'glyph))
(dir (ly:item-break-dir grob))
(result (assoc glyph
'((":|:" . (":|" . "|:"))
("||:" . ("||" . "|:"))
("|" . ("|" . "|"))
("||:" . ("||" . "|:"))
("|s" . (() . "|"))
("|:" . ("|" . "|:"))
("|." . ("|." . ()))
;; hmm... should we end with a bar line here?
(".|" . ("|" . ".|"))
(":|" . (":|" . ()))
("||" . ("||" . ()))
(".|." . (".|." . ()))
("" . ("" . ""))
(":" . (":" . ""))
("." . ("." . ()))
("empty" . (() . ()))
("brace" . (() . "brace"))
("bracket" . (() . "bracket")) )))
(glyph-name (if (= dir CENTER)
glyph
(if (and result (string? (index-cell (cdr
result) dir)))
(index-cell (cdr result) dir)
#f)))
)
(if (not glyph-name)
(ly:grob-suicide! grob))
glyph-name))
\layout{
\context{
\Score
\override BarLine #'glyph-name = #bar-line::my-calc-glyph-name
}
}
I don't know if there's any simpler method.
/Mats
Jennifer Clark wrote:
Mats Bengtsson wrote:
If you read in "Common Tweaks" in the manual, you can
learn about the property called transparent. However, in
this case, I don't think you want the removed clefs and
key signatures to occupy any space. Then, you can instead
add
\override Score.KeySignature #'stencil = ##f
\override Score.Clef #'stencil = ##f
somewhere after the first note (since you don't want it
to apply to the first line) in one of the voices.
That's really cool Mats, I just tried it and it is ideal for jazz
leadsheets. Is there a way of doing it that would add a vertical bar
line at the start of each line though, rather than leaving it "blank"
as it is at the moment?
Cheers!
Jennifer
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
--
=============================================
Mats Bengtsson
Signal Processing
Signals, Sensors and Systems
Royal Institute of Technology
SE-100 44 STOCKHOLM
Sweden
Phone: (+46) 8 790 8463
Fax: (+46) 8 790 7260
Email: [EMAIL PROTECTED]
WWW: http://www.s3.kth.se/~mabe
=============================================
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-user
