annotate implementations/tabcode/classes.lisp @ 136:fd85f52d9f9d
Class revolution
* PITCH-DESIGNATOR -> PITCH (PITCH removed)
* MOMENT-DESIGNATOR -> MOMENT , MOMENT -> STANDARD-MOMENT
* PERIOD-DESIGNATOR -> PERIOD , PERIOD -> STANDARD-PERIOD
* ANCHORED-PERIOD-DESIGNATOR -> ANCHORED-PERIOD , ANCHORED-PERIOD -> STANDARD-ANCHORED-PERIOD
* FLOATING-PERIOD removed
* TIME-SIGNATURE-DESIGNATOR -> TIME-SIGNATURE & TIME-SIGNATURE-PERIOD
* TIME-SIGNATURE -> STANDARD-TIME-SIGNATURE & STANDARD-TIME-SIGNATURE-PERIOD
* KEY-SIGNATURE-DESIGNATOR -> KEY-SIGNATURE (& ...-PERIOD)
* KEY-SIGNATURE -> STANDARD-KEY-SIGNATURE (& ...-PERIOD)
* TEMPO now abstract (& TEMPO-PERIOD)
* STANDARD-TEMPO AND STANDARD-TEMPO-PERIOD
* COMPOSITION, CONSTITUENT & TIME-ORDERED-CONSTITUENT all have STANDARD- forms
make-x methods and specialisers changes appropriately
darcs-hash:20070831142943-f76cc-7be0d08963de06d87b36e4922076287d565c7ee2.gz
| author |
David Lewis <d.lewis@gold.ac.uk> |
| date |
Fri, 31 Aug 2007 15:29:43 +0100 |
| parents |
48661eb2da71 |
| children |
88089258e08d |
| rev |
line source |
|
c@43
|
1 (cl:in-package #:amuse-tabcode)
|
|
c@43
|
2
|
|
d@136
|
3 (defclass tabcode-composition (amuse:standard-composition)
|
|
c@43
|
4 ())
|
|
c@43
|
5
|
|
d@136
|
6 (defclass tabcode-pitched-event (standard-chromatic-pitched-event)
|
|
c@43
|
7 ((course :initarg :course :reader course)
|
|
csr21@58
|
8 (fret :initarg :fret :reader fret)
|
|
c@43
|
9 (word :initarg :word :reader word)))
|
