colorchange_2_00.x3d source
<?xml version="1.0" encoding="UTF-8"?>
<X3D>
<Scene>
<Viewpoint/>
<NavigationInfo
type='
"EXAMINE"'
/>

<Group>
<Shape>
<Appearance>
<Material DEF='Ball-Mt' diffuseColor='1 0 0'/>
</Appearance>
<Sphere/>
</Shape>
<TouchSensor DEF='ThS'/>
</Group>

<Script DEF='Sc'>
<field accessType='inputOnly' type='SFTime' name='colorChange'/>
<field accessType='outputOnly' type='SFColor' name='ballColor'/>
<field accessType='initializeOnly' type='SFColor' name='col' value='0 1 0'/>
<field accessType='initializeOnly' type='SFColor' name='blue' value='0 0 1'/>
<![CDATA[ecmascript:

function initialize () {
col = blue;
}

function colorChange () {
ballColor = col;
}
]]>
</Script>

<ROUTE fromNode='ThS' fromField='touchTime' toNode='Sc' toField='colorChange'/>
<ROUTE fromNode='Sc' fromField='ballColor' toNode='Ball-Mt' toField='diffuseColor'/>
</Scene>
</X3D>