lilypond-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: n . puttock
Subject: Re: Creates a glissando stem grob that uses stems' functionality. (issue4777044)
Date: Wed, 20 Jul 2011 16:27:34 +0000


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/



reply via email to

[Prev in Thread] Current Thread [Next in Thread]