Now with the code...
\override Voice.Hairpin #'stencil = #(lambda (grob) (ly:stencil-combine-at-edge (ly:hairpin::print grob) 1 -1 (ly:text-interface::print grob) ))
----- Forwarded Message ----
From: Vivian Barty-Taylor <address@hidden>
To: address@hidden
Sent: Wednesday, 28 February, 2007 1:48:09 PM
Subject: CrescMolto in Scheme
I'm trying to make a Scheme construction (my first!) which will automatically center align a piece of text under a Hairpin object. The code I've got so far is below. This would save laboriously individually adjusting the #'extra-offset values of each TextScript.
What I can't find is how to do the center-aligning! Any suggestions?
Many thanks,
Vivian.
Inbox full of unwanted email? Get leading protection and 1GB storage with All New Yahoo! Mail.