2016 Update
This commit is contained in:
Tina Müller
parent
948b86eafa
commit
dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
|
|
@ -1,18 +1,19 @@
|
|||
/*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.*/
|
||||
/*REXX program simulates a visual (textual) metronome (with no sound). */
|
||||
parse arg bpm bpb dur . /*obtain optional arguments from the CL*/
|
||||
if bpm=='' | bpm=="," then bpm=72 /*the number of beats per minute. */
|
||||
if bpb=='' | bpb=="," then bpb= 4 /* " " " " " bar. */
|
||||
if dur=='' | dur=="," then dur= 5 /*duration of the run in seconds. */
|
||||
call time 'Reset' /*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*/
|
||||
do until et>=dur; et=time('Elasped') /*process tick-tocks for the duration*/
|
||||
say; call charout ,'TICK' /*show the first tick for the period. */
|
||||
es=et+1 /*bump the elapsed time "limiter". */
|
||||
$t=et+bt
|
||||
do until e>=es; e=time('Elapsed')
|
||||
if e<$t then iterate /*time for tock? */
|
||||
call charout , ' tock' /*show a "tock". */
|
||||
$t=$t+bt /*bump the TOCK time.*/
|
||||
end /*until e≥es*/
|
||||
end /*until et≥dur*/
|
||||
/*stick a fork in it, we're all done. */
|
||||
|
|
|
|||
|
|
@ -1,22 +1,23 @@
|
|||
/*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.*/
|
||||
/*REXX program simulates a metronome (with sound). Regina REXX only. */
|
||||
parse arg bpm bpb dur tockf tockd tickf tickd . /*obtain optional arguments from the CL*/
|
||||
if bpm=='' | bpm=="," then bpm= 72 /*the number of beats per minute. */
|
||||
if bpb=='' | bpb=="," then bpb= 4 /* " " " " " bar. */
|
||||
if dur=='' | dur=="," then dur= 5 /*duration of the run in secs*/
|
||||
if tockf=='' | tockf=="," then tockf=400 /*frequency " " tock sound " HZ. */
|
||||
if tockd=='' | tockd=="," then tockd= 20 /*duration " " " " " msec*/
|
||||
if tickf=='' | tickf=="," then tickf=600 /*frequency " " tick " " HZ. */
|
||||
if tickd=='' | tickd=="," then tickd= 10 /*duration " " " " " msec*/
|
||||
call time 'Reset' /*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*/
|
||||
do until et>=dur; et=time('Elasped') /*process tick-tocks for the duration*/
|
||||
call beep tockf, tockd /*sound a beep for the "TOCK". */
|
||||
es=et+1 /*bump the elapsed time "limiter". */
|
||||
$t=et+bt
|
||||
do until e>=es; e=time('Elapsed')
|
||||
if e<$t then iterate /*time for tock? */
|
||||
call beep tickf, tickd /*sound a "tick". */
|
||||
$t=$t+bt /*bump the TOCK time.*/
|
||||
end /*until e≥es*/
|
||||
end /*until et≥dur*/
|
||||
/*stick a fork in it, we're all done. */
|
||||
|
|
|
|||
|
|
@ -1,22 +1,23 @@
|
|||
/*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.*/
|
||||
/*REXX program simulates a metronome (with sound). PC/REXX or Personal REXX only.*/
|
||||
parse arg bpm bpb dur tockf tockd tickf tickd . /*obtain optional arguments from the CL*/
|
||||
if bpm=='' | bpm=="," then bpm= 72 /*the number of beats per minute. */
|
||||
if bpb=='' | bpb=="," then bpb= 4 /* " " " " " bar. */
|
||||
if dur=='' | dur=="," then dur= 5 /*duration of the run in secs*/
|
||||
if tockf=='' | tockf=="," then tockf=400 /*frequency " " tock sound " HZ. */
|
||||
if tockd=='' | tockd=="," then tockd= .02 /*duration " " " " " sec.*/
|
||||
if tickf=='' | tickf=="," then tickf=600 /*frequency " " tick " " HZ. */
|
||||
if tickd=='' | tickd=="," then tickd= .01 /*duration " " " " " sec.*/
|
||||
call time 'Reset' /*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*/
|
||||
do until et>=dur; et=time('Elasped') /*process tick-tocks for the duration*/
|
||||
call sound tockf, tockd /*sound a beep for the "TOCK". */
|
||||
es=et+1 /*bump the elapsed time "limiter". */
|
||||
$t=et+bt
|
||||
do until e>=es; e=time('Elapsed')
|
||||
if e<$t then iterate /*time for tock? */
|
||||
call sound tickf, tickd /*sound a tick. */
|
||||
$t=$t+bt /*bump the TOCK time.*/
|
||||
end /*until e≥es*/
|
||||
end /*until et≥dur*/
|
||||
/*stick a fork in it, we're all done. */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue