csr21@59: (cl:in-package "AMUSE-GSHARP")
csr21@59: 
d@168: (defclass gsharp-object ()())
d@168: 
d@168: (defclass gsharp-composition (amuse:standard-composition gsharp-object)
csr21@59:   ((buffer :initarg :buffer :reader buffer)
d@197:    (tempi :initarg :tempi :reader tempi)
d@197:    (key-signatures :initarg :key-signatures
d@197:                    :initform nil
d@197:                    :accessor %gsharp-key-signatures)
d@197:    (time-signatures :initarg :time-signatures
d@197:                     :initform nil
d@197:                     :accessor %gsharp-time-signatures)))
csr21@59: 
d@168: (defclass gsharp-pitched-event (standard-chromatic-pitched-event gsharp-object)
c@61:   ((note :initarg :note :reader note)
c@61:    (slice-index :initarg :slice-index)))
d@162: 
d@169: (defclass gsharp-identifier (composition-identifier gsharp-object)
d@162:   ((pathname :initarg :path
d@162:              :reader %gsharp-identifier-pathname
d@162: 	     :initform 'nil))
d@162:   (:documentation "Identifier for files that can be read in GSharp,
d@162:   containing pathname information"))
d@162: 
d@162: (defclass gsharp-gsh-identifier (gsharp-identifier)
d@162:   ()
d@162:   (:documentation "Identifier for .gsh files for gsharp"))
d@162: 
d@162: (defclass gsharp-mxml-identifier (gsharp-identifier)
d@162:   ()
d@162:   (:documentation "Identifier for MusicXML files for gsharp"))
d@162: 
d@197: (defclass gsharp-import-mixin (gsharp-object)
d@197:   ((gsh-source :initarg :source :accessor gsh-source)))
d@197: (defclass gsharp-key-signature-period (standard-key-signature-period gsharp-import-mixin)
d@197:   ())
d@197: (defclass gsharp-time-signature-period (standard-time-signature-period gsharp-import-mixin)
d@197:   ())