Mercurial > hg > amuse
changeset 196:3b36cf79b525
Fix amuse-viewpointing-implementation:make-viewpointable-composition.
Ignore-this: db82c168f04fbcfa001d3db346231bfe
Change to make-standard-viewpointable-composition.
darcs-hash:20090723103119-16a00-40780dad850b7e64fe8acb717192c5959d0ff9df.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 23 Jul 2009 11:31:19 +0100 |
| parents | f0e742e8de06 |
| children | 22ac5ec1733c bff786b723a6 5ff310be4942 984e0b4dfaab |
| files | implementations/viewpointable/package.lisp implementations/viewpointable/viewpointable.lisp |
| diffstat | 2 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/viewpointable/package.lisp Thu Jul 23 09:57:10 2009 +0100 +++ b/implementations/viewpointable/package.lisp Thu Jul 23 11:31:19 2009 +0100 @@ -2,5 +2,5 @@ (:use #:common-lisp #:amuse #:amuse-utils #:amuse-tools) (:export #:viewpointable-composition #:viewpointable-event - #:make-viewpointable-composition + #:make-standard-viewpointable-composition ))
--- a/implementations/viewpointable/viewpointable.lisp Thu Jul 23 09:57:10 2009 +0100 +++ b/implementations/viewpointable/viewpointable.lisp Thu Jul 23 11:31:19 2009 +0100 @@ -12,6 +12,8 @@ (defclass viewpointable-composition (monody) ()) +(defclass standard-viewpointable-composition (standard-monody) ()) + (defmethod timepoint ((event viewpointable-event)) (timepoint (%viewpointable-event-source-event event))) @@ -55,8 +57,8 @@ (%viewpointable-event-source-event event) (%viewpointable-event-source-composition event))) -(defun make-viewpointable-composition (composition) - (let ((new-comp (make-instance 'viewpointable-composition +(defun make-standard-viewpointable-composition (composition) + (let ((new-comp (make-instance 'standard-viewpointable-composition :time (timepoint composition) :interval (duration composition))) (event-list) (i 0))