Mercurial > hg > amuse

comparison implementations/gsharp/classes.lisp @ 136:fd85f52d9f9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 c911d65ae94d
children 110e957a7e3c
comparison
equal deleted inserted replaced
135:188fe5ea837f 136:fd85f52d9f9d
1 (cl:in-package "AMUSE-GSHARP") 1 (cl:in-package "AMUSE-GSHARP")
2 2
3 (defclass gsharp-composition (amuse:composition) 3 (defclass gsharp-composition (amuse:standard-composition)
4 ((buffer :initarg :buffer :reader buffer) 4 ((buffer :initarg :buffer :reader buffer)
5 (tempi :initarg :tempi :reader tempi))) 5 (tempi :initarg :tempi :reader tempi)))
6 6
7 (defclass gsharp-pitched-event (chromatic-pitched-event) 7 (defclass gsharp-pitched-event (standard-chromatic-pitched-event)
8 ((note :initarg :note :reader note) 8 ((note :initarg :note :reader note)
9 (slice-index :initarg :slice-index))) 9 (slice-index :initarg :slice-index)))