2 (in-package :tuple-trace
)
5 ((primitives :accessor primitives-of
:initform
(make-array 0 :element-type
'primitive
:adjustable t
))))
7 (defmethod primitive-of ((scene scene
) index
)
8 (aref (primitives-of scene
) index
))
10 (defmethod add-primitive ((scene scene
) primitive
)
11 (vector-push-extend primitive
(primitives-of scene
)))
13 (defmethod (setf primitive-of
) (primitive (scene scene
) index
)
14 (setf (aref (primitives-of scene
) index
) primitive
))
16 (defun make-secene (&rest primitives
)
18 ((result (make-instance 'scene
)))
20 (for primitive in primitives
)
21 (add-primitive result primitive
))