Mercurial > hg > amuse

comparison implementations/midi/classes.lisp @ 130:b849c4fc4c26

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
implementation/midi and /geerdes: add midi-object and geerdes-object darcs-hash:20070730164010-f76cc-baca3a289ca6c022c0085177d539e8c5c6fbea4e.gz
author David Lewis <d.lewis@gold.ac.uk>
date Mon, 30 Jul 2007 17:40:10 +0100
parents cf198383852d
children 5e362d998f29
comparison
equal deleted inserted replaced
129:e1afc3fef87b 130:b849c4fc4c26
1 (cl:in-package #:amuse-midi) 1 (cl:in-package #:amuse-midi)
2 2
3 (defclass midi-composition (amuse:composition) 3 (defclass midi-object (amuse:amuse-object) ())
4
5 (defclass midi-composition (amuse:composition midi-object)
4 ((time-signatures :initarg :time-signatures 6 ((time-signatures :initarg :time-signatures
5 :initform 'nil 7 :initform 'nil
6 :accessor %midi-time-signatures) 8 :accessor %midi-time-signatures)
7 (tempi :initarg :tempi 9 (tempi :initarg :tempi
8 :initform 'nil 10 :initform 'nil
12 :accessor %midi-key-signatures) 14 :accessor %midi-key-signatures)
13 (misc-controllers :initarg :controllers 15 (misc-controllers :initarg :controllers
14 :initform 'nil 16 :initform 'nil
15 :accessor %midi-misc-controllers))) 17 :accessor %midi-misc-controllers)))
16 18
17 (defclass midi-message () ;? 19 (defclass midi-message (midi-object) ;?
18 ((channel :accessor %midi-message-channel :initarg :channel) 20 ((channel :accessor %midi-message-channel :initarg :channel)
19 (track :accessor %midi-message-track :initarg :track))) 21 (track :accessor %midi-message-track :initarg :track)))
20 22
21 (defclass midi-pitched-event (chromatic-pitched-event midi-message) 23 (defclass midi-pitched-event (chromatic-pitched-event midi-message)
22 ((velocity :initarg :velocity 24 ((velocity :initarg :velocity