Mercurial > hg > amuse
annotate classes.lisp @ 5:db28a877b2b9
package.lisp: really add package definition.
darcs-hash:20061025162428-aa3d6-5f533666429bebc24767be3c97dc97bacb2c643a.gz
author | m.pearce <m.pearce@gold.ac.uk> |
---|---|
date | Wed, 25 Oct 2006 17:24:28 +0100 |
parents | e854a73b0328 |
children | f6c08ad94c8a |
rev | line source |
---|---|
m@3 | 1 (cl:in-package #:amuse) |
m@3 | 2 |
m@1 | 3 ;; basic musical object classes |
m@1 | 4 |
m@1 | 5 (defclass composition () |
m@1 | 6 ()) |
m@1 | 7 |
m@1 | 8 (defclass event () |
m@1 | 9 ()) |
m@1 | 10 |
m@1 | 11 (defclass pitched-event (event) |
m@1 | 12 ()) |
m@1 | 13 |
m@1 | 14 ;; pitch-related classes |
m@1 | 15 |
m@1 | 16 (defclass pitch () |
m@1 | 17 ()) |
m@1 | 18 |
m@1 | 19 (defclass chromatic-pitch (pitch) |
m@1 | 20 ()) |
m@1 | 21 |
m@1 | 22 (defclass diatonic-pitch (pitch) |
m@1 | 23 ()) |
m@1 | 24 |
m@1 | 25 (defclass frequency (pitch) |
m@1 | 26 ()) |
m@1 | 27 |
m@1 | 28 (defclass interval () |
m@1 | 29 ()) |
m@1 | 30 |
m@1 | 31 ;; time-related classes |
m@1 | 32 |
m@1 | 33 (defclass moment () |
m@1 | 34 ()) |
m@1 | 35 |
m@1 | 36 (defclass duration () |
m@1 | 37 ()) |
m@1 | 38 |