From 09a2b5504eab3bd2e7531c0845607e8a6da47b31 Mon Sep 17 00:00:00 2001 From: Shun Hasegawa Date: Mon, 17 Oct 2022 13:59:36 +0900 Subject: [PATCH] [irteus/irtutil.l] Optimize float conversion of time-list in interpolator Reflect @Affonso-Gui's offline comment --- irteus/irtutil.l | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/irteus/irtutil.l b/irteus/irtutil.l index d9499ace..7ce01ca1 100644 --- a/irteus/irtutil.l +++ b/irteus/irtutil.l @@ -264,9 +264,7 @@ position-list: list of control point time-list: list of time from start for each control point, time in first contrall point is zero, so length of this list is length of control point minus 1" (setq position-list pl) - (setq time-list tl) - (dotimes (i (length time-list)) - (setf (elt time-list i) (float (elt time-list i)))) ;; to use compiled eps> properly (see https://github.com/euslisp/EusLisp/issues/406) + (setq time-list (mapcar #'float tl)) ;; float conversion is for compiled eps> (see https://github.com/euslisp/EusLisp/issues/406) (if (/= (length position-list) (1+ (length time-list))) (warning-message 1 "length of position-list must be length of time-list + 1")) (setq time 0.0)