2 (in-package :tuple-trace
)
5 ((primitives :accessor primitives-of
:initform
(vector))))
7 (defmethod primitive-of ((scene scene
) index
)
8 (aref (primitives-of scene
) index
))
10 (defmethod add-primitive ((scene scene
) primitive
)
11 (adjust-array (primitives-of scene
) (1+ (length (primitives-of scene
))))
12 (setf (aref (primitives-of scene
) (length (primitives-of scene
))) primitive
))
14 (defmethod (setf primitive-of
) (primitive (scene scene
) index
)
15 (setf (aref (primitives-of scene
) index
) primitive
))