On Jul 20, 2011, at 6:27 PM, n.putt...@gmail.com wrote: > > http://codereview.appspot.com/4777044/diff/7001/input/regression/glissando-stem.ly > File input/regression/glissando-stem.ly (right): > > http://codereview.appspot.com/4777044/diff/7001/input/regression/glissando-stem.ly#newcode10 > input/regression/glissando-stem.ly:10: \xenakisStem #(ly:make-duration > 3) #32 > This should be a music function, possibly incorporating the \glissando > for the initial note. > > Something like this, perhaps: > > #(define-public (note-to-gliss-stem music) > "Replace @code{NoteEvent}s and @code{SkipEvent}s by > @code{GlissandoStemEvent}s." > (if (or (music-has-type music 'skip-event) > (music-has-type music 'note-event)) > (make-music 'GlissandoStemEvent > 'origin (ly:music-property music 'origin) > 'duration (ly:music-property music 'duration)) > music)) > > xenakisStems = > #(define-music-function (parser location music) (ly:music?) > (music-map note-to-gliss-stem music)) > > \relative c' { > c4:32\glissando > \xenakisStems { > s8:32\f\> s s16 c s8:64 > } > a''\p > } >
Great idea! Done. > http://codereview.appspot.com/4777044/diff/7001/scm/define-grobs.scm > File scm/define-grobs.scm (right): > > http://codereview.appspot.com/4777044/diff/7001/scm/define-grobs.scm#newcode960 > scm/define-grobs.scm:960: (duration . ,(grob::calc-property-by-copy > 'duration-log)) > remove > Done (have no clue why that was in there...). > http://codereview.appspot.com/4777044/diff/7001/scm/define-grobs.scm#newcode961 > scm/define-grobs.scm:961: (duration-log . ,(grob::calc-property-by-copy > 'duration-log)) > ,stem::calc-duration-log Done. New patch set uploaded. The new patch has script support. I'll be tinkering with beams in the next few days. Cheers, MS _______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel
