Skip to content

Commit

Permalink
[irteus/irtutil.l] Enable to pass integer time-list to interpolator
Browse files Browse the repository at this point in the history
  • Loading branch information
pazeshun committed Oct 14, 2022
1 parent 99f5ca8 commit 729aefa
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions irteus/irtutil.l
Original file line number Diff line number Diff line change
Expand Up @@ -265,6 +265,8 @@
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)
(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)
Expand Down

0 comments on commit 729aefa

Please sign in to comment.