Re: Fine piano pedals notation

[Kieren MacMillan]

Hi all,

I’ve got a couple of Scheme functions — can’t remember who first wrote them for 
me — which might help, or at least give you some hints on how to solve the 
exact puzzles you’re facing. The “pedalSim” can, of course, be easily be 
adapted to accept any text for the “sim.” marking.

Hope this helps!
Kieren.

____________________

sustainPedalHalfOn = {
  \override Staff.SustainPedal #'stencil =
    #(lambda (grob) (grob-interpret-markup grob
      (markup #:raise 0.1 "½" #:hspace -1 #:musicglyph "pedal.Ped")))
  \override Staff.PianoPedalBracket #'shorten-pair = #'(0.0 . 2.5)
}

pedalSim =
\once \override PianoPedalBracket #'stencil =
  #(lambda (grob)
   (let* (;; have we been split?
         (orig (ly:grob-original grob))
         ;; if yes, get the split pieces (our siblings)
         (siblings (if (ly:grob? orig)
                       (ly:spanner-broken-into orig)
                       '())))
   ;; Modify the unbroken grob-stencil or the first part of the broken
   ;; grob-stencil.
   (if (or (null? siblings)
           (and (>= (length siblings) 2)
                (eq? (car siblings) grob)))
       (let* (;; Get the default-stencil and its x-dimension and x-length.
              (stil (ly:piano-pedal-bracket::print grob))
              (stil-x-extent (ly:stencil-extent stil X))
              (stil-x-length (interval-length stil-x-extent))
              ;; Create a stencil to be added to the default-stencil.
              ;; Gets its x-dimension and x-length.
              (sim-stil
                 (grob-interpret-markup grob
                    (markup #:fontsize -1 #:hspace 1 #:italic "sim.")))
              (sim-stil-x-extent (ly:stencil-extent sim-stil X))
              (sim-stil-x-length (interval-length sim-stil-x-extent))
              (thickness (max (layout-line-thickness grob) 0.1))
              ;; The value to shorten the default-stencil from the right side.
              ;; 0.8 will shorten about 80%.
              ;; Hard-coded, could be turned into a music-function.
              (amount 0.8))
             
         ;; Print a warning if the length of the default-stencil would not
         ;; warrant a sufficient output.
         (if (> sim-stil-x-length stil-x-length)
             (ly:warning "PianoPedalBracket is too short"))
            
         ;; Shorten the default-stencil.
         (ly:grob-set-property!
            grob
            'shorten-pair
            (cons 0 (* amount stil-x-length)))
      
         ;; Calculate the final stencil.
         (let* (;; Get the shortened (default-)stencil
                ;; and its y-dimension.
                (shortened-stil (ly:piano-pedal-bracket::print grob))
                (shortened-stil-y-ext (ly:stencil-extent shortened-stil Y))
                ;; Modify the sim-stil to gain a little gap to the left and
                ;; enlarge it downwards a little (otherwise the 
stencil-whiteout 
                ;; will not work sufficient.
                (new-sim-stil
                  (ly:make-stencil
                    (ly:stencil-expr sim-stil)
                    (interval-widen sim-stil-x-extent (* 2 thickness))
                    (cons (- (car shortened-stil-y-ext) thickness)
                          (cdr shortened-stil-y-ext)))))
      
           (ly:stencil-add
               shortened-stil
               (ly:stencil-translate-axis
                  (stencil-whiteout new-sim-stil)
                  (* (- 1 amount) (- stil-x-length sim-stil-x-length))
                  X))))
       ;; TODO:
       ;; Is there any need to return #f explicitly?
       ;; Deleting it seems to make no difference.
       ;#f
       )))



On Mar 8, 2015, at 10:40 PM, Andrew Bernard <address@hidden> wrote:

> Greetings,
> 
> I have the exact same issue with my contemporary scores (and no good solution 
> I am afraid), so I will be interested in any response.
> 
> Just as a matter of intellectual property, the score you refer to for 
> download is copyright Schott Japan 1982. I am not familiar with Japanese 
> copyright law, but I would venture to say that the copyright is still in 
> place at this time, so if you make a score you cannot distribute it. I am 
> sure it’s fine for your own use.
> 
> Andrew
> 
> 
> 
> On 9 March 2015 at 03:29:11, 良ϖ (address@hidden) wrote:
> 
>> 
>> I'm trying to engrave a free score of Takemistsu's Rain Tree Sketch. You can 
>> found a video with score here on Youtube or you can download a copyrighted 
>> copy on this page.
>> 
>> This piece makes innovative use of all three pedals of the piano. I've tried 
>> to play a bit with this snippet but I'm not convinced by what I've got. I 
>> especially don't know how to symbolize half pedal to the best of my 
>> knowledge. Moreover, I'd like to change « simile » for an arrow →.
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user

_______________________

Kieren MacMillan, composer
www:  <http://www.kierenmacmillan.info>
email:  address@hidden