Mercurial > hg > amuse

view implementations/gsharp/classes.lisp @ 116:b4f4df48337d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Addition of viewpointable classes and methods These may be in the wrong place, but are designed to facilitate pluggability of viewpoints for well-behaved implementations darcs-hash:20070726160347-f76cc-6e6da5d488b3f252d0575e42daa566130481f955.gz
author David Lewis <d.lewis@gold.ac.uk>
date Thu, 26 Jul 2007 17:03:47 +0100
parents c911d65ae94d
children fd85f52d9f9d
line wrap: on
line source
(cl:in-package "AMUSE-GSHARP")

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

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