Mercurial > hg > amuse
diff base/classes.lisp @ 33:d1010755f507
Large upload of local changes. Many additions, such as harmony and piece-level objects
darcs-hash:20070413100909-f76cc-a8aa8dfc07f438dc0c1a7c45cee7ace2ecc1e6a5.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Fri, 13 Apr 2007 11:09:09 +0100 |
| parents | 8d2b1662f658 |
| children | 1d757c33e00e |
line wrap: on
line diff
--- a/base/classes.lisp Mon Dec 18 13:23:31 2006 +0000 +++ b/base/classes.lisp Fri Apr 13 11:09:09 2007 +0100 @@ -2,9 +2,13 @@ ;; collections of more than one event -(defclass constituent () ()) -(defclass composition (constituent) ()) -(defclass monody (constituent) ()) +(defclass constituent (anchored-period) ()) +(defclass time-ordered-constituent (constituent list-slot-sequence) + ;; this won't work if lisp implementation doesn't support extensible + ;; sequences. + ()) +(defclass composition (time-ordered-constituent) ()) +(defclass monody (time-ordered-constituent) ()) ;; types of information-specifiers