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" <[email protected]> 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 > [email protected] > https://lists.gnu.org/mailman/listinfo/lilypond-user _______________________________________________ lilypond-user mailing list [email protected] https://lists.gnu.org/mailman/listinfo/lilypond-user
