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

Basic key and time signature support

 
 (defclass gsharp-object ()())
 
 (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)
    (slice-index :initarg :slice-index)))
 

 
 (defclass gsharp-mxml-identifier (gsharp-identifier)
   ()
   (: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)
+  ())