#17 convex-hull-3dでエラーになる

[Kei Okada]

(convex-hull-3d (flatten
(mapcar
#'(lambda (l)
(print l)
(send-all (send l :bodies) :worldcoords)
(send-all (send l :bodies) :vertices)
)
(list (elt (send pr2 :rarm :gripper :links) 0)))))
とすると，
/irteusgl 0 error: float vector expected in (send #:inst31879 :init :faces geometry::faces :edges geometry::edges :vertices geometry::vertices :primitive (list :convex-hull geometry::vertices))
というエラーになります．

条件は詰め切れていないんですが，最終的にconvex-hull-3dの最後の
(setq body (instance body-class :init
:faces faces
:edges edges
:vertices vertices
:primitive (list :convex-hull vertices )))

のedgesでsend e :set-angleしようとしてエラーになります．

[Kei Okada]

[r607]でprimtpatch.l のconvex-hull-3d-oldの一部にアップデートしました．上の例題は解けていますが，どれぐらい解けるかはわかりません．