flag.rsg

来自「rcssserver3d Robocup 3D比赛官方指定平台」· RSG 代码 · 共 19 行

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

(RSG 0 1)
(
 (templ $PosX $PosY $PosZ $Name $Material)

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

       (nd ObjectState
	     (setPerceptName $Name)
	     )
       )
 )