#  Pelotas 
BouncingBall { bounceTime 2.0 bounceHeight 3.0 } 
Transform { 
    translation  2.0 0.0 -2.0 
    children BouncingBall { bounceTime 2.2 bounceHeight 2.5 } 
} 
. . . 

En archivo bouncingballproto.wrl 

PROTO BouncingBall [ 
    field SFFloat bounceHeight  1.0 
    field SFTime  bounceTime 1.0 
] { 
    DEF Ball Transform { 
        children [ 
            Shape {. . .} 
        ] 
    } 
    DEF Clock TimeSensor { 
        cycleInterval IS bounceTime 
        startTime 1.0 
        stopTime 0.0 
        loop TRUE 
    } 
    DEF Bouncer Script { 
        field    SFFloat bounceHeight IS bounceHeight 
       . . . 
    } 
    ROUTE Clock.fraction_changed TO Bouncer.set_fraction 
    ROUTE  Bouncer.value_changed TO Ball.set_translation 
}