Metronome: Difference between revisions
added RPL
(Add C# implementation) |
(added RPL) |
||
Line 2,358:
end /*until et≥dur*/
/*stick a fork in it, we're all done. */</syntaxhighlight>
=={{header|RPL}}==
« .02 0 → pattern duration beat
« -56 CF <span style="color:grey">''@ sound ON'' </span>
60 SWAP / duration - →NUM
'''DO''' "Beat!" 1 DISP
440 'beat' INCR pattern MOD 1 2 IFTE * duration BEEP
CLLCD DUP WAIT
'''UNTIL''' KEY '''END''' DROP2
» » '<span style="color:blue">METRO</span>' STO <span style="color:grey">''@ ( bpm pattern → )'' </span>
=={{header|Ruby}}==
| |||