Mercurial > hg > amuse

view implementations/mtp/constructors.lisp @ 154:edf2322ea33f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added copy key and time sigs and tempo. Need to do general version. Only midi-type currently darcs-hash:20071119173147-40ec0-779ffe4dc4bbc356cc6decf6d0f50cb42f943b83.gz
author d.lewis <d.lewis@gold.ac.uk>
date Mon, 19 Nov 2007 17:31:47 +0000
parents ce4a90427366
children
line wrap: on
line source
(cl:in-package #:amuse-mtp) 

(defun make-mtp-dataset-identifier (dataset-id)
  (make-instance 'mtp-dataset-identifier :dataset-id dataset-id))

(defun make-mtp-composition-identifier (dataset-id composition-id)
  (make-instance 'mtp-composition-identifier 
                 :dataset-id dataset-id :composition-id composition-id))

(defun make-mtp-dataset (&rest args)
  (apply #'make-instance 'mtp-dataset args))

(defun make-mtp-composition (&rest args) 
  (apply #'make-instance 'mtp-composition args))

(defun make-mtp-event (&rest args) 
  (apply #'make-instance 'mtp-event args))