m@25: (cl:in-package #:amuse-midi)
m@25: 
m@25: (defun make-midi-pitched-event (pitch-number velocity patch
m@25: 				channel track onset duration)
m@25:   (make-instance 'midi-pitched-event
m@25: 		 :number pitch-number
m@25: 		 :velocity velocity
m@25: 		 :patch patch
m@25: 		 :channel channel
m@25: 		 :track track
m@25: 		 :time onset
m@25: 		 :interval duration))
m@25: 
m@25: (defun make-midi-percussive-event (pitch-number velocity patch
m@25: 				   channel track onset duration)
m@25:   (make-instance 'midi-percussive-event
m@25: 		 :sound pitch-number
m@25: 		 :velocity velocity
m@25: 		 :patch patch
m@25: 		 :channel channel
m@25: 		 :track track
m@25: 		 :time onset
m@25: 		 :interval duration))
m@25: 
m@25: (defun make-midi-key-signature (sharp-count mode onset duration)
m@25:   (make-instance 'midi-key-signature
m@25: 		 :sharp-count sharp-count
m@25: 		 :mode mode
m@25: 		 :time onset
m@25: 		 :interval duration))
m@25: