Could you please provide links to the emails you have in mind.
I guess that the first one is
http://lists.gnu.org/archive/html/lilypond-user/2007-04/msg00039.html
but I have posted too many "ugly solutions" to different problems to be
able to recall them or find them when searching the mailing list archives.
/Mats
Daniel Leidisch wrote:
I searched the archives in order to find a way to insert bar lines at
the left side of staves and found two interesting threads. In the
newer thread you mentioned that it was not possible (because of
something hardcoded) and there was no reply to your article at the
lilypond-devel archive.
However, I found a thread from last year in which you posted an “ugly
solution” which I tried (2.10.25).
The code works, but unfortunately I can neither use my sectionLetter
nor “\bar "||"” insertions.
Is there now a way to have those bar lines in a “non ugly” way, or to
make your code work with my sectionLetter and “\bar "||"”?
TIA
dhl
,----[ sectionLetter ]
| sectionLetter =
| #(define-music-function (parser location letter) (string?)
| #{
| \once \override Score.RehearsalMark #'extra-offset = #'(-9 . 1)
| \mark \markup{\box{\bold{ $letter }}}
| #})
`----
,----[ your code ]
| #(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
| }
| }
`----
_______________________________________________
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