changeset 26:8bc3c390cefa

midi-classes-and-constructors.lisp: remove this file.

darcs-hash:20061215162541-aa3d6-93629db34d7bca2aea55d6acbe86bb42ac720bc4.gz

--- a/midi-classes-and-constructors.lisp	Fri Dec 15 16:24:17 2006 +0000
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,52 +0,0 @@
-(cl:in-package #:amuse)
-
-(defclass midi-message () ;?
-  ((channel :accessor %midi-message-channel :initarg :channel)
-   (track :accessor %midi-message-track :initarg :track)))
-
-(defclass midi-pitched-event (chromatic-pitched-event midi-message)
-  ((velocity :initarg :velocity)
-   (patch :initarg :patch)))
-
-(defclass midi-percussive-event (percussive-event midi-message)
-  ((velocity :initarg :velocity)
-   (patch :initarg :patch)
-   (sound :initarg :sound)))
-
-(defclass midi-key-signature (basic-key-signature)
-  ;; Is mode ever used in real life? Is it ever accurately used in
-  ;; real life?
-  ((mode :accessor %midi-key-signature-mode
-	 :initarg mode)))
-
-;;; Constructors
-
-(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))
-
-(defun make-midi-key-signature (sharp-count mode onset duration)
-  (make-instance 'midi-key-signature
-		 :sharp-count sharp-count
-		 :mode mode
-		 :time onset
-		 :interval duration))
-