Metronome: Difference between revisions

no edit summary
(Added 11l)
No edit summary
Line 64:
delay pauseBetweenBeeps
end repeat</lang>
 
=={{header|Arturo}}==
<lang arturo>startMetronome: function [bpm,msr][
freq: 60000/bpm
i: 0
while [true][
loop msr-1 'x[
prints "\a"
pause freq
]
inc 'i
print ~"\aAND |i|"
pause freq
]
]
 
tempo: to :integer arg\0
beats: to :integer arg\1
 
startMetronome tempo beats
</lang>
 
=={{header|AutoHotkey}}==
1,532

edits