Re: accordion push/pull symbols

[Karol Majewski]

David, are you sure that your code is OK? I can't make it work.



Dnia 25-07-2013 o godz. 17:22 David Kastrup napisał(a):
> "Karol Majewski" <address@hidden> writes:
> 
> > I'm trying to make my own acordion push and pull symbols. Current 
> LilyPond symbols are not that common in my part of the world. So what I 
> have is:
> >
> > %%%%%%%%%%%%%%%
> >
> > pull =
> > #(let
> >   ((m
> >       (make-articulation "downbow")))
> >   (set!
> >     (ly:music-property m 'tweaks)
> >     (acons 'stencil
> >       (lambda
> >         (grob)
> >         (grob-interpret-markup grob #{
> >           \markup {
> >             \override #'(box-padding . 0) \override #'(thickness . 0) \box {
> >               \path #0.15
> >                 #'((moveto -0.375 2)
> >                   (rlineto 0.75 0)
> >                   (rlineto 0 -2))
> >             }
> >           }
> >         #}))
> >       (ly:music-property m 'tweaks))) m)
> >
> > push =
> > #(let
> >   ((m
> >       (make-articulation "upbow")))
> >   (set!
> >     (ly:music-property m 'tweaks)
> >     (acons 'stencil
> >       (lambda
> >         (grob)
> >         (grob-interpret-markup grob #{
> >           \markup {
> >             \override #'(box-padding . 0) \override #'(thickness . 0) \box {
> >               \path #0.15
> >                 #'((moveto -0.6 2)
> >                   (rlineto 0.6 -2)
> >                   (rlineto 0.6 2))
> >             }
> >           }
> >         #}))
> >       (ly:music-property m 'tweaks))) m)
> >
> > %%%%%%%%%%%%%%%
> >
> > What I'm trying to do now, is to make those symbols scalable when using:
> >
> > \new Staff \with {
> >   fontSize = #-3
> >   \override StaffSymbol #'staff-space = #(magstep -3)
> > }
> >
> > No Idea how to achieve this. I tried to combine my code with the code 
> given here:
> 
> It's probably easiest to make your own markup commands for the symbols.
> Then you can specify
> #(define-markup-command (push layout props) ()
>   #:properties (font-size 0)
>   (interpret-markup layout props
>     #{ \scale #(cons (magstep font-size) (magstep font-size)) ... #}))
> 
> --
> David Kastrup
> 
> 
> _______________________________________________
> lilypond-user mailing list
> address@hidden
> https://lists.gnu.org/mailman/listinfo/lilypond-user