On Tue, Mar 26, 2013 at 08:12:42PM +0100, Phil Hézaine wrote: > for NoteEvent: > > #(define (format-note engraver event) > (let* ((origin (ly:input-file-line-char-column > (ly:event-property event 'origin)))) > (print-line engraver > "note" > ;; get a MIDI pitch value. > ;(+ 60 (ly:pitch-semitones > (ly:event-property event 'drum-type) ;))
It would be nice if this was abstracted into a separate function: (get-pitch-or-drum which would pick which type of output to produce. Then I think we could accept a patch to this effect without much fuss. > ;; point and click info > ;(ly:format "point-and-click ~a ~a" > ; (caddr origin) > ; (cadr origin)) I'm quite curious about this -- do drum events not have point-and-click info? - Graham _______________________________________________ lilypond-user mailing list lilypond-user@gnu.org https://lists.gnu.org/mailman/listinfo/lilypond-user
