----- Original Message -----
Sent: Tuesday, January 12, 2016 2:37
PM
Subject: Outliner markup command
Hi,
Yesterday night I thought about rewriting this snippet:
http://lsr.di.unimi.it/LSR/Item?id=890
using the new whiteout 'outline' override and finally discovered a funny side
effect:
\version
"2.19.35"
#(set-default-paper-size "a6")
#(define-markup-command
(outliner layout props outln-width outln-clr text-clr text)
(number? string? string? markup?)
"Draw a colored ouline around a
colored text."
(interpret-markup layout props
(markup
(#:combine
(#:override
(cons 'style
'outline)
(#:override
(cons
'thickness outln-width)
(#:whiteout
(#:with-color
(x11-color
outln-clr)
text))))
(#:with-color
(x11-color
text-clr)
text)))))
%%
Example:
some-music = \score {
\relative {
\tempo "Allegro"
c'_( d e f g a b
c)
\bar "|."
}
\layout { indent = 0
}
}
\header {
title = \markup\outliner #3 #'"orange"
#'"yellow" { Some Music }
}
\some-music
\markup
\override
#'(baseline-skip . 7)
\left-column {
"A funny output:"
\outliner #1.3 #'"black" #'"white"
\score { \some-music
}
}
'Hope you'll like it!
Cheers,
~Pierre
_______________________________________________
lilypond-user
mailing
list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user