Mercurial > hg > amuse
comparison base/classes.lisp @ 88:8ea75cc8bc2c
Basic geerdes functionality moved to implementations/geerdes from separate package
darcs-hash:20070720161242-f76cc-fd256cbbb81d8c418a6c7c45844264184c5ed932.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Fri, 20 Jul 2007 17:12:42 +0100 |
| parents | 4e1538df0d10 |
| children | 0b4c624910f1 |
comparison
equal
deleted
inserted
replaced
| 87:19a263fb92d1 | 88:8ea75cc8bc2c |
|---|---|
| 35 (defclass frequency () ()) | 35 (defclass frequency () ()) |
| 36 | 36 |
| 37 (defclass pitch (pitch-designator) ()) | 37 (defclass pitch (pitch-designator) ()) |
| 38 (defclass chromatic-pitch (pitch) | 38 (defclass chromatic-pitch (pitch) |
| 39 ((number :accessor %chromatic-pitch-number :initarg :number))) | 39 ((number :accessor %chromatic-pitch-number :initarg :number))) |
| 40 (defclass diatonic-pitch (pitch) | 40 (defclass diatonic-pitch (pitch) |
| 41 ((name :accessor %diatonic-pitch-name :initarg :name) | 41 ((name :accessor %diatonic-pitch-name :initarg :name) |
| 42 (accidental :accessor %diatonic-pitch-accidental :initarg :accidental) | 42 (accidental :accessor %diatonic-pitch-accidental :initarg :accidental) |
| 43 (octave :accessor %diatonic-pitch-octave :initarg :octave)) | 43 (octave :accessor %diatonic-pitch-octave :initarg :octave)) |
| 44 (:documentation "NAME is an integer between 0-6, representing the | 44 (:documentation "NAME is an integer between 0-6, representing the |
| 45 note name A-G; ACCIDENTAL is an integer where negative values indicate | 45 note name A-G; ACCIDENTAL is an integer where negative values indicate |