PROTO BouncingBall [ field SFFloat bounceHeight 1.0 field SFTime cycleInterval 1.0 ] { . . . DEF Clock TimeSensor { cycleInterval IS cycleInterval . . . } . . . }