Mercurial > hg > amuse

comparison implementations/viewpointable/viewpointable.lisp @ 117:0190c6ad759e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes for viewpointable classes darcs-hash:20070726161039-f76cc-e9be0dd8f1ea1366b127547df97b6f55056cd70e.gz
author David Lewis <d.lewis@gold.ac.uk>
date Thu, 26 Jul 2007 17:10:39 +0100
parents b4f4df48337d
children 3b36cf79b525
comparison
equal deleted inserted replaced
116:b4f4df48337d 117:0190c6ad759e
2 2
3 ;; A set of classes and methods such that, if the amuse-form methods 3 ;; A set of classes and methods such that, if the amuse-form methods
4 ;; are implemented, a viewpointable-composition can be made and have 4 ;; are implemented, a viewpointable-composition can be made and have
5 ;; viewpoint operations carried out without loss of context. 5 ;; viewpoint operations carried out without loss of context.
6 6
7 (defclass viewpointable-event (event) 7 (defclass viewpointable-event (amuse::event)
8 ((source-event :initarg :source-event 8 ((source-event :initarg :source-event
9 :accessor %viewpointable-event-source-event) 9 :accessor %viewpointable-event-source-event)
10 (source-composition :initarg :source-composition 10 (source-composition :initarg :source-composition
11 :accessor %viewpointable-event-source-composition))) 11 :accessor %viewpointable-event-source-composition)))
12 12
13 (defclass viewpointable-composition (composition) ()) 13 (defclass viewpointable-composition (monody) ())
14 14
15 (defmethod timepoint ((event viewpointable-event)) 15 (defmethod timepoint ((event viewpointable-event))
16 (timepoint (%viewpointable-event-source-event event))) 16 (timepoint (%viewpointable-event-source-event event)))
17 17
18 (defmethod duration ((event viewpointable-event)) 18 (defmethod duration ((event viewpointable-event))