[rtm-ros-robotics] r6970 committed - change hoge->sample

[rtm-ros-...@googlecode.com]

Revision: 6970
Author: kei.okada
Date: Tue Feb 11 08:09:16 2014 UTC
Log: change hoge->sample
http://code.google.com/p/rtm-ros-robotics/source/detail?r=6970

Modified:

/trunk/rtmros_tutorials/hrpsys_ros_bridge_tutorials/euslisp/webotsvrml2openhrp3vrml.l

=======================================
---
/trunk/rtmros_tutorials/hrpsys_ros_bridge_tutorials/euslisp/webotsvrml2openhrp3vrml.l
Mon Jul 1 04:42:58 2013 UTC
+++
/trunk/rtmros_tutorials/hrpsys_ros_bridge_tutorials/euslisp/webotsvrml2openhrp3vrml.l
Tue Feb 11 08:09:16 2014 UTC
@@ -273,7 +273,7 @@
(when sret (push (reverse sret) ret))
(if debug (print (list 'ret-fields (reverse ret))))
(mapcar #'(lambda (x)
- (if debug (print (list 'fuga (car x) (cadr x) x (is-node (cdr x)))))
+ (if debug (print (list 'debug (car x) (cadr x) x (is-node (cdr x)))))
(cond
((is-node (cdr x))
(append (list (car x)) (split-nodes (cdr x) debug)))
@@ -310,7 +310,7 @@
(when sret (push (reverse sret) ret))
(if debug (print (list 'ret-node (reverse ret))))
(mapcar #'(lambda (x)
- (if debug (print (list 'hoge (car x))))
+ (if debug (print (list 'debug (car x))))
(if (eq (car x) 'def)
(append (subseq x 0 3)
(split-fields (elt x 3) (elt x 2) debug))
@@ -482,8 +482,8 @@
(_range (length str)))))
(concatenate string (append (list (char-upcase (car ret2))) (mapcar
#'char-downcase (cdr ret2))))
)))
-;; (print-all-vrml-nodes-fields "hoge.wrl" (split-nodes (append
(list 'aref) cc) nil))
-;; (print-all-vrml-nodes-fields "hoge.wrl" (split-nodes (append
(list 'aref) data2) nil))
+;; (print-all-vrml-nodes-fields "sample.wrl" (split-nodes (append
(list 'aref) cc) nil))
+;; (print-all-vrml-nodes-fields "sample.wrl" (split-nodes (append
(list 'aref) data2) nil))

;;;;;;;;;;;;;;;;;;;;;;;;
;; Webots VRML -> OpenHRP3 VRML Converter
@@ -841,8 +841,8 @@

;; (pprint (append-openhrp3-humanoid (replace-servo->joint (insert-segment
(append-openhrp3-waist-joint (split-nodes c3 nil))))))
;; (append (list '(aref)) (append-openhrp3-humanoid (replace-servo->joint
(insert-segment (append-openhrp3-waist-joint (split-nodes c3 nil))))))
-;; (print-all-vrml-nodes-fields "hoge.wrl" (append (list '(aref))
(append-openhrp3-humanoid (replace-servo->joint (insert-segment
(append-openhrp3-waist-joint (split-nodes c3 nil)))))))
-;; (print-all-vrml-nodes-fields "hoge.wrl" (append (list '(aref))
(append-openhrp3-humanoid (replace-servo->joint (insert-segment
(append-openhrp3-waist-joint (split-nodes (append (list 'aref) cc)
nil)))))))
+;; (print-all-vrml-nodes-fields "sample.wrl" (append (list '(aref))
(append-openhrp3-humanoid (replace-servo->joint (insert-segment
(append-openhrp3-waist-joint (split-nodes c3 nil)))))))
+;; (print-all-vrml-nodes-fields "sample.wrl" (append (list '(aref))
(append-openhrp3-humanoid (replace-servo->joint (insert-segment
(append-openhrp3-waist-joint (split-nodes (append (list 'aref) cc)
nil)))))))

(in-package "USER")
(import '(vrml::convert-webots-vrml->openhrp3-vrml-for-darwin))