2016-03-11 22:58 GMT+01:00 Thomas Morley <thomasmorle...@gmail.com>: > 2016-03-11 11:21 GMT+01:00 tisimst <tisimst.lilyp...@gmail.com>: > >> (though further suggestions for improvement >> are welcome). >> >> Thanks, >> Abraham > > Hi Abraham, > > just had a more thoroughly look at your snippet at > http://lsr.di.unimi.it/LSR/Item?id=1029 > > The biggest issue I see is how to change fontsize. I post my own > commented suggestion below. > Best would be that score-markup would respect \fontsize, not sure how > to do that (if possible at all), though. > > #(define-markup-command (ezscore layout props mus) (ly:music?) > ;; introduce a property to make overriding it possible > #:properties ((size 0)) > (interpret-markup layout props > #{ > \markup { > \score { > ;; work on a copy of music! Hence $ not # > \new RhythmicStaff { $mus } > \layout { > \context { > \RhythmicStaff > \remove Clef_engraver > \remove Time_signature_engraver > ;; Don't remove Staff_symbol_engraver, omit StaffSymbol. > ;; (probably set line-count zero, alternatively) > ;; In order to keep changes for fontSize/staff-space/thickness possible, > ;; Stem/Beam etc rely on it for thickness, length etc > > \omit StaffSymbol > fontSize = #size > \override StaffSymbol.staff-space = #(magstep size) > \override StaffSymbol.thickness = #(magstep size) > } > indent = 0 > } > } > } > #})) > > %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% > > \markup { > Let's try something simple: > \note #"8" #UP + \note #"8" #UP = > % BEFORE USING EZNOTES... > \combine > \combine > %% slightly simplified, here and below > \note #"4" #UP > \translate #'(1.25 . 2.8) \beam #3 #0 #.5 > \concat { > \hspace #3 > \note #"4" #UP > } > . Yikes! Not so easy by hand. > } > > \markup { > Much easier: > \note #"8" #UP + \note #"8" #UP = > % AFTER USING EZNOTES... > \ezscore ##{ { c8[ c] } #}. > % LET'S DO SOMETHING HARDER NOW... > Now try constructing > %% size-override applied > \override #'(size . -6) > \ezscore ##{ > { > %% spacing-incrementadjusted, according to the size-override. > \override Score.SpacingSpanner.spacing-increment = #1 > \override TupletNumber.text = > #(tuplet-number::append-note-wrapper > (tuplet-number::non-default-tuplet-fraction-text 12 7) "8") > \tuplet 12/7 { c4. c c c } > } > #} > manually! > } > > HTH, best > Harm
Approved with the tiny amendments as http://lsr.di.unimi.it/LSR/Item?id=1029 Cheers, Harm _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
