flag.rsg

来自「ROBOCUP 仿真3D server 源码」· RSG 代码 · 共 19 行

; -*- mode: lisp; -*-
;
; create a field flag at ($PosX $PosY $PosZ) named $Name with the
; given $Material
;

(RubySceneGraph 0 1)
(
 (template $PosX $PosY $PosZ $Name $Material)

 (node Transform
       (setLocalPos $PosX $PosY $PosZ)
       (importScene rsg/boxspheres/staticsphere.rsg 1 $Material)

       (node ObjectState
	     (setPerceptName $Name)
	     )
       )
 )