Closed
Description
I'd like to draw objects using :draw-on and draw arrow using :draw-arrow.
Some codes does not work.
For example,
(objects (list (setq *bb* (make-cube 200 200 200))))
;; draw-on => draw-arrow : Work correctly
(progn
(send *irtviewer* :draw-objects :flush nil)
(send-all (send *bb* :vertices) :draw-on :flush nil)
(send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100))
(send *irtviewer* :viewer :viewsurface :flush)
)
;; draw-arrow => draw-on : Does not work (vertices cannot be displayed)
(progn
(send *irtviewer* :draw-objects :flush nil)
(send *irtviewer* :viewer :draw-arrow (float-vector 0 0 -100) (float-vector 0 0 100))
(send-all (send *bb* :vertices) :draw-on :flush nil)
(send *irtviewer* :viewer :viewsurface :flush)
)
Metadata
Metadata
Assignees
Labels
No labels