add save-animgif, save-mpeg, save-image functions

[k-okada]

(objects (list (make-cube 10 10 10)))
(load "src/jskeus/irteus/irtviewer.l")

;; to start loggin, pleaes make sure to clear the logged image sequence
(send *irtviewer* :logging :clear)
(send *irtviewer* :logging :start)

;; draw objects...

(send *irtviewe r* :save-mpeg :fname "2020-okada-robot-demo.mpeg") ;; save to mpeg file
OR
(send *irtviewe r* :save-animgif :fname "2020-okada-robot-demo.gif") ;; save to animation gif file

;; make sure to stop the logging, other wise the system put all (draw-objects) to iamge sequence, that will cause memory problem
(send *irtviewer* :logging :stop)

[Affonso-Gui]

Maybe would also be nice to have a with- macro that automatically takes care of stopping the logging for us?

[k-okada]

thank you. added

+(defmacro with-save-mpeg (fname &rest forms)
+(defmacro with-save-animgif (fname &rest forms)

macros