Mercurial > hg > amuse
comparison base/classes.lisp @ 48:cace0cf82aee
make basic-time-signature a subclass of time-signature
darcs-hash:20070615122018-aa3d6-eaed6e10f34a7de1aa4af1bb3f57b3c4d29d09ad.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 15 Jun 2007 13:20:18 +0100 |
| parents | 085c1728480c |
| children | f308c2b7b796 |
comparison
equal
deleted
inserted
replaced
| 47:e3d86a0f25b3 | 48:cace0cf82aee |
|---|---|
| 58 ;; events. As such, they can be regarded as anchored-periods with | 58 ;; events. As such, they can be regarded as anchored-periods with |
| 59 ;; properties. | 59 ;; properties. |
| 60 | 60 |
| 61 (defclass time-signature (anchored-period) ()) | 61 (defclass time-signature (anchored-period) ()) |
| 62 | 62 |
| 63 (defclass basic-time-signature (anchored-period) | 63 (defclass basic-time-signature (time-signature) |
| 64 ;; N.B. Can only deal with numeric signatures | 64 ;; N.B. Can only deal with numeric signatures |
| 65 ((numerator :accessor %basic-time-signature-numerator | 65 ((numerator :accessor %basic-time-signature-numerator |
| 66 :initarg :numerator) | 66 :initarg :numerator) |
| 67 (denominator :accessor %basic-time-signature-denominator | 67 (denominator :accessor %basic-time-signature-denominator |
| 68 :initarg :denominator))) | 68 :initarg :denominator))) |