Sine wave: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl example) |
(→{{header|REXX}}: added the REXX computer programming language for this task.) |
||
Line 200: | Line 200: | ||
(play (make-tone 440 0.50 (* 5 FRAME-RATE))) |
(play (make-tone 440 0.50 (* 5 FRAME-RATE))) |
||
</lang> |
</lang> |
||
=={{header|REXX}}== |
|||
Note: This REXX program will <u>only</u> work for PC/REXX or Personal REXX. |
|||
<lang REXX>/*REXX program produces a sine wave (of a specified frequency) for N seconds. */ |
|||
parse arg freq time . /*obtain optional arguments from the CL*/ |
|||
if freq=='' | freq=="," then freq= 880 /*Not specified? Then use the default.*/ |
|||
if time=='' | time=="," then time= 5 /* " " " " " " */ |
|||
call sound freq, time /*invoke a BIF to generate a sine wave.*/ |
|||
exit 0 /*stick a fork in it, we're all done. */</lang><br><br< |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |