From fac5abd784312fd59cbbe0448fdf072083e6a65d Mon Sep 17 00:00:00 2001 From: Kei Okada Date: Wed, 26 Oct 2022 15:01:12 +0900 Subject: [PATCH 1/2] add jsk_2022_10_semi --- jsk_2022_10_semi/CMakeLists.txt | 11 +++++++++++ jsk_2022_10_semi/README.md | 1 + jsk_2022_10_semi/package.xml | 19 +++++++++++++++++++ 3 files changed, 31 insertions(+) create mode 100644 jsk_2022_10_semi/CMakeLists.txt create mode 100644 jsk_2022_10_semi/README.md create mode 100644 jsk_2022_10_semi/package.xml diff --git a/jsk_2022_10_semi/CMakeLists.txt b/jsk_2022_10_semi/CMakeLists.txt new file mode 100644 index 0000000000..6356a1156c --- /dev/null +++ b/jsk_2022_10_semi/CMakeLists.txt @@ -0,0 +1,11 @@ +cmake_minimum_required(VERSION 2.8.3) +project(jsk_2022_10_semi) + +find_package(catkin REQUIRED COMPONENTS) + +catkin_package() + +install(DIRECTORY euslisp + DESTINATION ${CATKIN_PACKAGE_SHARE_DESTINATION} + ) + diff --git a/jsk_2022_10_semi/README.md b/jsk_2022_10_semi/README.md new file mode 100644 index 0000000000..0cc94b6baa --- /dev/null +++ b/jsk_2022_10_semi/README.md @@ -0,0 +1 @@ +# jsk_2022_10_semi diff --git a/jsk_2022_10_semi/package.xml b/jsk_2022_10_semi/package.xml new file mode 100644 index 0000000000..38807a102c --- /dev/null +++ b/jsk_2022_10_semi/package.xml @@ -0,0 +1,19 @@ + + + jsk_2022_10_semi + 0.0.5 + The jsk_2022_10_semi package + + Kei Okada + + BSD + + catkin + + fetcheus + jsk_maps + pr2eus + + + + From 3120233e8120905ede4ef76986ce2a56f1bceb65 Mon Sep 17 00:00:00 2001 From: Kei Okada Date: Wed, 26 Oct 2022 16:24:39 +0900 Subject: [PATCH 2/2] add initial demo sample code --- jsk_2022_10_semi/euslisp/demo.l | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 jsk_2022_10_semi/euslisp/demo.l diff --git a/jsk_2022_10_semi/euslisp/demo.l b/jsk_2022_10_semi/euslisp/demo.l new file mode 100644 index 0000000000..2ea2df0a3a --- /dev/null +++ b/jsk_2022_10_semi/euslisp/demo.l @@ -0,0 +1,12 @@ +(load "package://fetcheus/fetch-interface.l") + +(unless (boundp '*ri*) (fetch-init)) +(objects (list *fetch*)) + +(send *fetch* :reset-pose) +(send *irtviewer* :draw-objects) + +(send *fetch* :rarm :shoulder-y :joint-angle 30) +(send *fetch* :rarm :shoulder-r :joint-angle -120) +(send *fetch* :rarm :elbow-r :joint-angle -30) +(send *irtviewer* :draw-objects)