|
From: | address@hidden |
Subject: | Re: Ferneyhough-style flared hairpins? |
Date: | Thu, 7 Mar 2013 08:03:53 +0100 |
On 6 mars 2013, at 20:06, Trevor Bača <address@hidden> wrote:
Here's another way to do it. Cheers, MS \version "2.17.13" #(define (mantenimento grob) (let* ((sten (ly:hairpin::print grob)) (xex (ly:stencil-extent sten X)) (yex (ly:stencil-extent sten Y)) (len (interval-length yex))) (ly:stencil-translate (make-connected-path-stencil `((,(cdr xex) 0) (,(cdr xex) ,(/ len 2))) 0.1 1.0 1.0 #f #f) (cons (car xex) (car yex))))) \relative c'' { \override Hairpin #'stencil = #mantenimento a4\< a a a\f a4\< a a a\p a4\< a a a\sfz } |
[Prev in Thread] | Current Thread | [Next in Thread] |