# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1248345079 -3600
# Node ID 3b36cf79b525d8a454ec26aaf51bf831cd9b6136
# Parent  f0e742e8de06b52b67791f8edf5ccaf8395adda0
Fix amuse-viewpointing-implementation:make-viewpointable-composition.

Ignore-this: db82c168f04fbcfa001d3db346231bfe

Change to make-standard-viewpointable-composition.

darcs-hash:20090723103119-16a00-40780dad850b7e64fe8acb717192c5959d0ff9df.gz

diff -r f0e742e8de06 -r 3b36cf79b525 implementations/viewpointable/package.lisp
--- 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
 	   ))
diff -r f0e742e8de06 -r 3b36cf79b525 implementations/viewpointable/viewpointable.lisp
--- 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))