glverticesをもつロボット(euscollada-robotなど)で gl::transparentするにはどうしたらいいでしょうか。
（jskeusのticektだったかもしれませんが) 例えば以下にするとtransparentになりますね。
$ roscd euscollada && ./pr2.sh $ roseus 10.irteusgl$ (load "pr2.l") t 11.irteusgl$ (pr2) #<pr2-robot #X6923858="" pr2="" 0.0="" 0.0="" 0.0="" 0.0="" 0.0="" 0.0=""> 12.irteusgl$ (objects (list *pr2*)) (#<pr2-robot #X6923858="" pr2="" 0.0="" 0.0="" 0.0="" 0.0="" 0.0="" 0.0="">) 13.irteusgl$ (mapcar #'(lambda (x) (if (find-if #'(lambda (y) (substringp "glvertices" (string-downcase (car y)))) (send x :slots)) (send (x . glvertices) :set-color #f(0 0 0) 0.2))) (send *pr2* :bodies))
あとは、glverticesのverticesそれぞれの設定の部分が うまく決められるようにすればよさそうです。
ちなみに、jskglのように、 (gl::transparent pr2 0.2) して全リンクやbodyが透明になったりする 便利関数などはirteusだとサポートされないのでしょうか。
13.irteusgl$ (mapcar #'(lambda (x) (if (find-if #'(lambda (y) (substringp "glvertices" (string-downcase (car y)))) (send x :slots)) (send (x . glvertices) :set-color #f(0 0 0) 0.2))) (send pr2 :bodies))
これは古いモデル用ですね。
(mapc #'(lambda (x) (send x :set-color #f(0 0 0) 0.2)) (send *pr2* :bodies))
でOKになっています。
ありがとうございます。 確かにこれならばgl::transparentなしでも、１行で書くこともできますね。
他に、色を変えないでtransparentだけ指定する方法はありますでしょうか。
Log in to post a comment.
（jskeusのticektだったかもしれませんが)
例えば以下にするとtransparentになりますね。
あとは、glverticesのverticesそれぞれの設定の部分が
うまく決められるようにすればよさそうです。
ちなみに、jskglのように、
(gl::transparent pr2 0.2)
して全リンクやbodyが透明になったりする
便利関数などはirteusだとサポートされないのでしょうか。
13.irteusgl$ (mapcar #'(lambda (x) (if (find-if #'(lambda (y) (substringp "glvertices" (string-downcase (car y)))) (send x :slots)) (send (x . glvertices) :set-color #f(0 0 0) 0.2))) (send pr2 :bodies))
これは古いモデル用ですね。
でOKになっています。
ありがとうございます。
確かにこれならばgl::transparentなしでも、１行で書くこともできますね。
他に、色を変えないでtransparentだけ指定する方法はありますでしょうか。