Mercurial > hg > amuse
comparison implementations/meredith/classes.lisp @ 299:f5734df598f4
add composition slot to event (meredith)
Ignore-this: d6b133f7d17684bf3f7c1ccde28c7d8a
darcs-hash:20090828164631-16a00-1a25e46b8142401466f4a6ec7159a10d8e31de40.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Fri, 28 Aug 2009 17:46:31 +0100 |
| parents | d22c67dac97d |
| children |
comparison
equal
deleted
inserted
replaced
| 298:204d6d1f4f6a | 299:f5734df598f4 |
|---|---|
| 29 (description :initarg :description :reader description))) | 29 (description :initarg :description :reader description))) |
| 30 | 30 |
| 31 (defclass meredith-event (amuse:chromatic-pitched-event | 31 (defclass meredith-event (amuse:chromatic-pitched-event |
| 32 amuse:diatonic-pitched-event | 32 amuse:diatonic-pitched-event |
| 33 amuse:standard-anchored-period | 33 amuse:standard-anchored-period |
| 34 amuse:linked-event | |
| 34 meredith-music-object) | 35 meredith-music-object) |
| 35 ((identifier :initarg :identifier :accessor identifier) | 36 ((identifier :initarg :identifier :accessor identifier) |
| 36 (tatum-on :initarg :tatum-on :accessor tatum-on) | 37 (tatum-on :initarg :tatum-on :accessor tatum-on) |
| 37 (tatum-dur :initarg :tatum-dur :accessor tatum-dur) | 38 (tatum-dur :initarg :tatum-dur :accessor tatum-dur) |
| 38 (tactus-on :initarg :tactus-on :accessor tactus-on) | 39 (tactus-on :initarg :tactus-on :accessor tactus-on) |