Mercurial > hg > amuse
diff base/constructors.lisp @ 33:d1010755f507
Large upload of local changes. Many additions, such as harmony and piece-level objects
darcs-hash:20070413100909-f76cc-a8aa8dfc07f438dc0c1a7c45cee7ace2ecc1e6a5.gz
author | David Lewis <d.lewis@gold.ac.uk> |
---|---|
date | Fri, 13 Apr 2007 11:09:09 +0100 |
parents | 8d2b1662f658 |
children | 5bec705db9d6 |
line wrap: on
line diff
--- a/base/constructors.lisp Mon Dec 18 13:23:31 2006 +0000 +++ b/base/constructors.lisp Fri Apr 13 11:09:09 2007 +0100 @@ -11,6 +11,8 @@ (defun make-floating-period (interval) (make-instance 'floating-period :interval interval)) + +;; Should this take a moment and/or a period too? (defun make-anchored-period (onset interval) (make-instance 'anchored-period :time onset