rollout unnamedRollout "Untitled" width:162 height:300
(
radiobuttons rdo1 "漫反射颜色" pos:[22,20] width:65 height:62 labels:#("red", "yellow", "orange")
on rdo1 changed stat do
(
diffusecolor = #(red, yellow, orange)
for a in selection do a.material=standard diffuse:(diffusecolor[stat])
)
)
createdialog unnamedRollout