[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Compound time
From: |
Gilles |
Subject: |
Re: Compound time |
Date: |
Thu, 29 Dec 2005 23:06:18 +0100 |
User-agent: |
Mutt/1.5.11 |
> >
> >#(define (compound-time grob one two three four)
> > (interpret-markup
> > (ly:grob-layout grob)
> > '(((baseline-skip . 2)
> > (word-space . 2)
> > (font-family . number)))
> > (markup
> > #:line
> > (#:column (one two)
> > #:lower 1 "+"
> > #:hspace -2.4 #:column (three four)
> > " "))))
> >
> >which makes it even uglier (see the negative "hspace" and the added
> >blank space), and still it will only work for default font size.
> >
>
> You need to use the defaults for the text font,
> try calling
>
> ly:grob-alist-chain
>
>
> with the 'text-font-defaults from the layout returned by (ly:grob-layout
> grob)
>
I don't understand much of it (and that's probably the main problem!), but
this is what I tried, with a rather pitiful result:
#(define (compound-time-2 grob one two three four)
(let* ((layout (ly:grob-layout grob))
(text (interpret-markup
layout
(ly:grob-alist-chain grob (ly:output-def-lookup layout
'text-font-defaults))
(markup
#:line
(#:column (one two)
#:lower 1 "+"
#:hspace -2.4 #:column (three four)
" ")))))
text))
What are the missing parts?
Thanks,
Gilles