Mercurial > hg > amuse

view implementations/gsharp/classes.lisp @ 203:23b97270de8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changes to gsharp import to accommodate mensural notation. N.B. This won't work without my branch of GSharp committer: David Lewis <d.lewis@gold.ac.uk>
author David Lewis <david@localhost.localdomain>
date Wed, 08 Sep 2010 13:06:57 +0100
parents 4a0e15e2829a
children 22ac5ec1733c
line wrap: on
line source
(cl:in-package "AMUSE-GSHARP")

(defclass gsharp-object ()())

(defclass gsharp-composition (amuse:standard-composition gsharp-object)
  ((buffer :initarg :buffer :reader buffer)
   (tempi :initarg :tempi :reader tempi)))

(defclass gsharp-pitched-event (standard-chromatic-pitched-event gsharp-object)
  ((note :initarg :note :reader note)
   (slice-index :initarg :slice-index)))

(defclass gsharp-identifier (composition-identifier gsharp-object)
  ((pathname :initarg :path
             :reader %gsharp-identifier-pathname
	     :initform 'nil))
  (:documentation "Identifier for files that can be read in GSharp,
  containing pathname information"))

(defclass gsharp-gsh-identifier (gsharp-identifier)
  ()
  (:documentation "Identifier for .gsh files for gsharp"))

(defclass gsharp-mxml-identifier (gsharp-identifier)
  ()
  (:documentation "Identifier for MusicXML files for gsharp"))