その場足踏みのfootsteps

gistfile1.lisp

(defun sonoba (n)
  (let ((footsteps nil))
    (dotimes (i n)
      (push (make-coords :name :lleg) footsteps)
      (push (make-coords :name :rleg :pos (float-vector 0 -200 0)) footsteps))
    (reverse footsteps))
  )

(send *ri* :set-foot-steps (sonoba 8))