Mercurial > hg > amuse
diff implementations/viewpointable/viewpointable.lisp @ 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 | 0190c6ad759e |
| children |
line wrap: on
line diff
--- 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))