|
From: | Pierre Perol-Schneider |
Subject: | Re: Outliner markup command |
Date: | Tue, 12 Jan 2016 18:40:14 +0100 |
Hi PierreVery nice! Ideal for those more light-hearted musical items.LSR?Trevor----- Original Message -----From: Pierre Perol-SchneiderTo: lilypond-userSent: Tuesday, January 12, 2016 2:37 PMSubject: Outliner markup commandHi,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
[Prev in Thread] | Current Thread | [Next in Thread] |