aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Metronome/REXX/metronome-1.rexx Normal file
View file

@ -0,0 +1,18 @@
/*REXX program simulates a visual (textual) metronome (with no sound).*/
parse arg bpm bpb dur .
if bpm=='' | bpm==',' then bpm=72 /*number of beats per minute. */
if bpb=='' | bpb==',' then bpb= 4 /*number of beats per bar. */
if dur=='' | dur==',' then dur= 5 /*duration of run in seconds. */
call time 'R' /*reset the REXX elapsed timer. */
bt=1/bpb /*calculate a tock-time interval.*/
do until et>=dur; et=time('E') /*process tick-tocks for duration*/
say; call charout ,'TICK' /*show the first tick for period.*/
es=et+1 /*bump the elapsed time limiter. */
ee=et+bt
do until time('E')>=es; e=time('E')
if e<ee then iterate /*time for tock?*/
call charout ,' tock' /*show a "tock".*/
ee=ee+bt /*bump tock time*/
end /*until time('E')≥es*/
end /*until et≥dur*/

22
Task/Metronome/REXX/metronome-2.rexx Normal file
View file

@ -0,0 +1,22 @@
/*REXX program simulates a metronome (with sound), Regina REXX only. */
parse arg bpm bpb dur tockf tockd tickf tickd .
if bpm=='' | bpm==',' then bpm=72 /*number of beats per minute. */
if bpb=='' | bpb==',' then bpb= 4 /*number of beats per bar. */
if dur=='' | dur==',' then dur= 5 /*duration of run in seconds. */
if tockf==''|tockf==',' then tockf=400 /*frequency of tock sound in HZ. */
if tockd==''|tockd==',' then tockd= 20 /*duration of tock sound in msec*/
if tickf==''|tickf==',' then tickf=600 /*frequency of tick sound in HZ. */
if tickd==''|tickd==',' then tickd= 10 /*duration of tick sound in msec*/
call time 'R' /*reset the REXX elapsed timer. */
bt=1/bpb /*calculate a tock-time interval.*/
do until et>=dur; et=time('E') /*process tick-tocks for duration*/
call beep tockf,tockd /*sound a beep for the "TOCK". */
es=et+1 /*bump the elapsed time limiter. */
ee=et+bt
do until time('E')>=es; e=time('E')
if e<ee then iterate /*time for tock?*/
call beep tickf,tickd /*sound a tick.*/
ee=ee+bt /*bump tock time*/
end /*until time('E')≥es*/
end /*until et≥dur*/

22
Task/Metronome/REXX/metronome-3.rexx Normal file
View file

@ -0,0 +1,22 @@
/*REXX program simulates a metronome (with sound), PC/REXX only. */
parse arg bpm bpb dur tockf tockd tickf tickd .
if bpm=='' | bpm==',' then bpm=72 /*number of beats per minute. */
if bpb=='' | bpb==',' then bpb= 4 /*number of beats per bar. */
if dur=='' | dur==',' then dur= 5 /*duration of run in seconds. */
if tockf==''|tockf==',' then tockf=400 /*frequency of tock sound in HZ. */
if tockd==''|tockd==',' then tockd=.02 /*duration of tock sound in secs*/
if tickf==''|tickf==',' then tickf=600 /*frequency of tick sound in HZ. */
if tickd==''|tickd==',' then tickd=.01 /*duration of tick sound in secs*/
call time 'R' /*reset the REXX elapsed timer. */
bt=1/bpb /*calculate a tock-time interval.*/
do until et>=dur; et=time('E') /*process tick-tocks for duration*/
call sound tockf,tockd /*sound a beep for the "TOCK". */
es=et+1 /*bump the elapsed time limiter. */
ee=et+bt
do until time('E')>=es; e=time('E')
if e<ee then iterate /*time for tock?*/
call sound tickf,tickd /*sound a tick.*/
ee=ee+bt /*bump tock time*/
end /*until time('E')≥es*/
end /*until et≥dur*/