Shape  {    ## # The shape
  	geometry Sphere { radius 2 }
  	## # we will modify the Material (DEF)
  	appearance Appearance {
  		material DEF MATERIAL Material {
  			diffuseColor 1 0 0
  			}
  		}
    } # 
  
    DEF TIME TimeSensor { loop TRUE cycleInterval 5 } #
    ## # We use a simple ColorInterpolator (analog)
    DEF COLORS ColorInterpolator {
  	key [ 0 0.5 1 ]
  	keyValue [ 1 0 0,  0 0 1, 1 0 0 ]
  	} #
  
  ROUTE TIME.fraction_changed TO COLORS.set_fraction
  ROUTE COLORS.value_changed TO MATERIAL.diffuseColor