anchor.diff:  (in-package :tmsmt)
   
   
  -(defun genscene-repeat (scene-graph base-name shape
  +(defun genscene-repeat (scene-graph base-name geometry
                           &key
                             count
                             objects
  
positive.code:                           max-locations
                            (rotation (quaternion nil))
                            (z .001)
                            (resolution *resolution*)
                            (options robray::*draw-options*))
    (let* ((all-locations (scene-locations (scene-graph scene-graph)
                                          resolution
                                          :max-count max-locations
  
negative.code:                             for k in objects
                              for (parent x y) in locations
                              collect (scene-frame-fixed parent (format nil "~A-~D" base-name k)
                                                         :geometry geometry
                                                         :tf (tf* rotation
                                                                  (vec3* x y z)))))))
  
  