metronome-timer ( gadget -- timer )


Vocabulary
rosetta-code.metronome

Inputs
gadgetan object


Outputs
timeran object


Definition
USING: accessors kernel timers ;

IN: rosetta-code.metronome

: metronome-timer ( gadget -- timer )
[ metronome-quot ] [ bpm>> bpm>duration ] bi every ;