Fw: CrescMolto in Scheme

[Vivian Barty-Taylor]

Now with the code...

%%%%% BEGIN CODE

hairpinMolto = {
\override Voice.Hairpin #'stencil = #(lambda (grob) (ly:stencil-combine-at-edge (ly:hairpin::print grob) 1 -1 (ly:text-interface::print grob) ))
\override Voice.Hairpin #'text = \markup { \smaller \italic "molto" }
}

\new Staff {
\hairpinMolto c'2\< c'2\f
}

%%%%% END CODE

----- 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.

---

New Yahoo! Mail is the ultimate force in competitive emailing. Find out more at the Yahoo! Mail Championships. Plus: play games and win prizes.