Mercurial > hg > amuse
comparison 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 |
comparison
equal
deleted
inserted
replaced
32:5e705b6f94b6 | 33:d1010755f507 |
---|---|
9 ;; floating or anchored or some other subclass. | 9 ;; floating or anchored or some other subclass. |
10 | 10 |
11 (defun make-floating-period (interval) | 11 (defun make-floating-period (interval) |
12 (make-instance 'floating-period :interval interval)) | 12 (make-instance 'floating-period :interval interval)) |
13 | 13 |
14 | |
15 ;; Should this take a moment and/or a period too? | |
14 (defun make-anchored-period (onset interval) | 16 (defun make-anchored-period (onset interval) |
15 (make-instance 'anchored-period | 17 (make-instance 'anchored-period |
16 :time onset | 18 :time onset |
17 :interval interval)) | 19 :interval interval)) |
18 | 20 |