Hi, 2012/2/2 Xavier Scheuer <[email protected]>: > On 2 February 2012 22:23, Jean-Alexis Montignies <[email protected]> wrote: >> Hi, >> >> I'm trying to write a polychord markup that looks like a mathematical >> fraction. >> >> May be I've overlooked something, but I didn't found a way to draw a >> horizontal line between to text lines of a column. >> I'm using: >> >> \markup {\override #`(direction . ,UP) \dir-column >> { "C" >> \draw-line #'(3 . 0) >> "Db" } >> } >> >> But then I have too many vertical space between Db and the separator >> and I have to hardcode the length of the line. >> >> Any suggestion? > > Why not simply > > \chords { > c1:/des > } > > ? > > Cheers, > Xavier > > -- > Xavier Scheuer <[email protected]> > > _______________________________________________ > lilypond-user mailing list > [email protected] > https://lists.gnu.org/mailman/listinfo/lilypond-user
an idea:
\version "2.14.2"
#(define-markup-command (custom-column layout props args)
(markup-list?)
;#:properties ((direction)
;(baseline-skip))
(let* ((args-length-ls (sort (map (lambda (x)
(interval-length
(ly:stencil-extent
(interpret-markup layout props x)
X)))
args)
>))
; baseline-skip is hard-coded!
; if you change this don't forget to change 0.65
; in: #:translate (cons 0 (* 0.65 baseline-skip))
(baseline-skip 1.2)
(ln-mrkp (markup #:translate (cons 0 (* 0.65 baseline-skip))
#:draw-line (cons (car args-length-ls) 0)))
(new-args (list (car args) ln-mrkp (cadr args))))
; direction is hard-coded!
(stack-lines -1 ;(if (number? direction) direction -1)
0.0
baseline-skip
(interpret-markup-list layout props new-args))))
\markup {
\custom-column { "C" "Db" }
\custom-column { "Ees" "Disis" }
\custom-column { "a" "Whatsever" }
}
HTH,
Harm
<<attachment: atest-09.png>>
_______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
