Mercurial > hg > amuse

view implementations/midi/constructors.lisp @ 203:23b97270de8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changes to gsharp import to accommodate mensural notation. N.B. This won't work without my branch of GSharp committer: David Lewis <d.lewis@gold.ac.uk>
author David Lewis <david@localhost.localdomain>
date Wed, 08 Sep 2010 13:06:57 +0100
parents 70c716a6eb72
children 1f3873585a5d 819277b20b98
line wrap: on
line source
(cl:in-package #:amuse-midi)

(defun make-midifile-identifier (pathname)
  (make-instance 'midifile-identifier :path pathname))

(defun make-midi-pitched-event (pitch-number velocity patch
				channel track onset duration)
  (make-instance 'midi-pitched-event
		 :number pitch-number
		 :velocity velocity
		 :patch patch
		 :channel channel
		 :track track
		 :time onset
		 :interval duration))

(defun make-midi-percussive-event (pitch-number velocity patch
				   channel track onset duration)
  (make-instance 'midi-percussive-event
		 :sound pitch-number
		 :velocity velocity
		 :patch patch
		 :channel channel
		 :track track
		 :time onset
		 :interval duration))