Re: Creates a glissando stem grob that uses stems' functionality. (issue4777044)

[address@hidden]

On Jul 20, 2011, at 6:27 PM, address@hidden 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