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 } 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 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 http://codereview.appspot.com/4777044/ _______________________________________________ lilypond-devel mailing list lilypond-devel@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-devel
