diff implementations/gsharp/classes.lisp @ 197:22ac5ec1733c

Basic key and time signature support

--- a/implementations/gsharp/classes.lisp	Thu Jul 23 11:31:19 2009 +0100
+++ b/implementations/gsharp/classes.lisp	Wed Feb 16 09:19:12 2011 +0000
@@ -4,7 +4,13 @@
 
 (defclass gsharp-composition (amuse:standard-composition gsharp-object)
   ((buffer :initarg :buffer :reader buffer)
-   (tempi :initarg :tempi :reader tempi)))
+   (tempi :initarg :tempi :reader tempi)
+   (key-signatures :initarg :key-signatures
+                   :initform nil
+                   :accessor %gsharp-key-signatures)
+   (time-signatures :initarg :time-signatures
+                    :initform nil
+                    :accessor %gsharp-time-signatures)))
 
 (defclass gsharp-pitched-event (standard-chromatic-pitched-event gsharp-object)
   ((note :initarg :note :reader note)
@@ -25,3 +31,9 @@
   ()
   (:documentation "Identifier for MusicXML files for gsharp"))
 
+(defclass gsharp-import-mixin (gsharp-object)
+  ((gsh-source :initarg :source :accessor gsh-source)))
+(defclass gsharp-key-signature-period (standard-key-signature-period gsharp-import-mixin)
+  ())
+(defclass gsharp-time-signature-period (standard-time-signature-period gsharp-import-mixin)
+  ())
\ No newline at end of file