Mercurial > hg > amuse
view implementations/midi/classes.lisp @ 190:725ce7ce77ba
remove DOS line endings in base/classes.lisp
darcs-hash:20090105150355-16a00-972232fbb3eb8030c3e0c6d3788ba6f389183d8c.gz
author | j.forth <j.forth@gold.ac.uk> |
---|---|
date | Mon, 05 Jan 2009 15:03:55 +0000 |
parents | a74494a94be9 |
children | 4e0a5c7026ca 619194befdd4 |
line wrap: on
line source
(cl:in-package #:amuse-midi) (defclass midi-object (amuse-object) () (:documentation "MIDI base class")) (defclass midi-composition (standard-composition midi-object) ((time-signatures :initarg :time-signatures :initform 'nil :accessor %midi-time-signatures) (tempi :initarg :tempi :initform 'nil :accessor %midi-tempi) (key-signatures :initarg :key-signatures :initform 'nil :accessor %midi-key-signatures) (misc-controllers :initarg :controllers :initform 'nil :accessor %midi-misc-controllers)) (:documentation "Class for midi compositions, with time signatures, tempi, key signatures and other controllers as lists in slots")) (defclass midi-monody (amuse:standard-monody midi-composition) ()) (defclass midi-message (midi-object) ;? ((channel :accessor %midi-message-channel :initarg :channel) (track :accessor %midi-message-track :initarg :track))) (defclass midi-pitched-event (standard-chromatic-pitched-event midi-message) ((velocity :initarg :velocity :accessor %midi-pitched-event-velocity) (patch :initarg :patch :accessor %midi-pitched-event-patch)) (:documentation "Adds MIDI information to chromatic-pitched-event")) (defclass midi-percussive-event (standard-percussive-event midi-message) ((velocity :initarg :velocity :accessor %midi-percussive-event-velocity) (patch :initarg :patch :accessor %midi-percussive-event-patch) (sound :initarg :sound :accessor %midi-percussive-event-sound)) (:documentation "Adds MIDI information to percussive-event"))