Table Of Contents

This Page

euslisp ROS Launch Files

Description: euslisp

euslisp and irteus

License: BSD

test-euslisp.launch

roslaunch euslisp test-euslisp.launch

Contents

<launch>

  <test args="$(find euslisp)/test/sort.l" pkg="euslisp" test-name="test_sortgc" type="irteusgl" />
  <test args="$(find euslisp)/test/bignum.l" pkg="euslisp" test-name="test_bignum" type="irteusgl" />
  <test args="$(find euslisp)/test/vector.l" pkg="euslisp" test-name="test_vector" type="irteusgl" />
  <test args="$(find euslisp)/test/read-img.l" pkg="euslisp" test-name="test_read_img" time-limit="600" type="irteusgl">

  </test>
  <test args="$(find euslisp)/test/graph.l" pkg="euslisp" test-name="test_graph" time-limit="600" type="irteusgl" />

</launch>

test-irtrobot.launch

roslaunch euslisp test-irtrobot.launch

irteus robot model examples

$ rosrun euslisp irteusgl irteus/demo/demo.l "(full-body-ik)"

Your browser does not support the video element. full_body_ik.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(full-body-ik :use-torso nil)"

Your browser does not support the video element. full_body_ik_no_torso.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(full-body-ik :use-leg t)"

Your browser does not support the video element. full_body_ik_use_leg.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(dual-arm-ik)"

Your browser does not support the video element. dual_arm_ik.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(dual-manip-ik)"

Your browser does not support the video element. dual_manip_ik.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(crank-motion)"

Your browser does not support the video element. crank_motion.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(hand-grasp)"

Your browser does not support the video element. hand_grasp.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(hanoi-arm)"

Your browser does not support the video element. hanoi_arm.mp4

$ rosrun euslisp irteusgl irteus/demo/demo.l "(particle)"

Your browser does not support the video element. particle.mp4

robots and object models

$ rosrun euslisp irteusgl models/irt-all-robots.l "(make-all-robots)"
http://jenkins.jsk.imi.i.u-tokyo.ac.jp:8080//job/jsk-ros-pkg-electric/lastSuccessfulBuild/artifact/doc/euslisp/html/_images/irt_all_robots.png
$ rosrun euslisp irteusgl models/irt-all-objects.l "(make-all-objects)"
http://jenkins.jsk.imi.i.u-tokyo.ac.jp:8080//job/jsk-ros-pkg-electric/lastSuccessfulBuild/artifact/doc/euslisp/html/_images/irt_all_objects.png

Contents

<launch>

  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'full-body-ik) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/full_body_ik.glc" pkg="euslisp" test-name="test_full_body_ik_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (defun\ full-body-ik-no-torso\ nil\ (full-body-ik\ :use-torso\ nil)) (setq\ demo-func\ #\'full-body-ik-no-torso) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/full_body_ik_no_torso.glc" pkg="euslisp" test-name="test_full_body_ik_no_torso_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (defun\ full-body-ik-use-leg\ nil\ (full-body-ik\ :use-leg\ t)) (setq\ demo-func\ #\'full-body-ik-use-leg) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/full_body_ik_use_leg.glc" pkg="euslisp" test-name="test_full_body_ik_use_leg_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'dual-arm-ik) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/dual_arm_ik.glc" pkg="euslisp" test-name="test_dual_arm_ik_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'dual-manip-ik) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/dual_manip_ik.glc" pkg="euslisp" test-name="test_dual_manip_ik_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'crank-motion) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/crank_motion.glc" pkg="euslisp" test-name="test_crank_motion_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'hand-grasp) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/hand_grasp.glc" pkg="euslisp" test-name="test_hand_grasp_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'hanoi-arm) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/hanoi_arm.glc" pkg="euslisp" test-name="test_hanoi_arm_demo" time-limit="600" type="irteusgl" />
  <test args="irteus/demo/demo.l  (setq\ demo-func\ #\'particle) $(find euslisp)/test/irteus-demo.l" launch-prefix="glc-capture --start --out=$(find euslisp)/build/particle.glc" pkg="euslisp" test-name="test_particle_demo" time-limit="600" type="irteusgl" />
  <test args="$(find euslisp)/build/full_body_ik.glc" pkg="jsk_tools" test-name="z_test_full_body_ik" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/full_body_ik_no_torso.glc" pkg="jsk_tools" test-name="z_test_full_body_ik_no_torso" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/full_body_ik_use_leg.glc" pkg="jsk_tools" test-name="z_test_full_body_ik_use_leg" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/dual_arm_ik.glc" pkg="jsk_tools" test-name="z_test_dual_arm_ik" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/dual_manip_ik.glc" pkg="jsk_tools" test-name="z_test_dual_manip_ik" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/crank_motion.glc" pkg="jsk_tools" test-name="z_test_crank_motion" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/hand_grasp.glc" pkg="jsk_tools" test-name="z_test_hand_grasp" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/hanoi_arm.glc" pkg="jsk_tools" test-name="z_test_hanoi_arm" time-limit="1000" type="glc_encode.sh" />
  <test args="$(find euslisp)/build/particle.glc" pkg="jsk_tools" test-name="z_test_particle" time-limit="1000" type="glc_encode.sh" />

  <test args="$(find euslisp)/test/all-robots-objects.l" pkg="euslisp" test-name="zz_test_all_robots_objects" time-limit="600" type="irteusgl" />
</launch>