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)
csr21@59:    (tempi :initarg :tempi :reader tempi)))
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: