Hi,
2012/2/2 Xavier Scheuer <x.sche...@gmail.com>:
> On 2 February 2012 22:23, Jean-Alexis Montignies <j...@montignies.info> 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 <x.sche...@gmail.com>
>
> _______________________________________________
> lilypond-user mailing list
> lilypond-user@gnu.org
> 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 lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
