add jsk_spot_robot/spoteus

[k-okada]

• add color imformation

• add spot-interface.l

• spot.l

[k-okada]

@708yamaguchi to create colored spot model run roseus '(progn (load "spot-utils.l")(objects (list (spot))))'

[YoheiKakiuchi]

eus_assimpが入っていると、daeでテクスチャマッピングしてるファイルを読み込むことができるので、以下のような感じでurdfと同じ表示にできます。
そんなに時間かかってるようでもないので、spot-util.lの最後にいれてもいいかもしれないです。

(when (ros::rospack-find "eus_assimp")
  (load "package://eus_assimp/euslisp/eus-assimp.l")
  (dolist (bd (send *spot* :bodies));; <-
    (let ((nm (send bd :name)))
      (when (substringp "package" nm)
        (setq nm (ros::resolve-ros-path nm))
        (if nm
            (let ((new-glv (load-mesh-file nm :scale 1000.0))
                  (org-glv (bd . gl::aglvertices))
                  )
              (send new-glv :transform (send org-glv :worldcoords))
              (send (send org-glv :parent) :assoc new-glv)
              (send (send org-glv :parent) :dissoc org-glv)
              (setq (bd . gl::aglvertices) new-glv)
              )))))
  )

[sktometometo]

Please don't merge this PR. otherwise #1376 will be broken.