Audio frequency generator: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
(Added Wren) |
||
Line 857: | Line 857: | ||
$sound stop |
$sound stop |
||
exit</lang> |
exit</lang> |
||
=={{header|Wren}}== |
|||
{{trans|Go}} |
|||
The ability to call external processes such as ''SoX'' is expected to be added to Wren-cli in the next release. In the meantime, we embed the following Wren script in a C host to complete this task. |
|||
<lang ecmascript>/* audio_frequency_generator.wren */ |
|||
class C { |
|||
foreign static getInput(maxSize) |
|||
foreign static play(args) |
|||
} |
|||
var freq = 0 |
|||
while (!freq || !freq.isInteger || freq < 40 || freq > 10000) { |
|||
System.write("Enter frequency in HZ (40 to 10000) : ") |
|||
freq = Num.fromString(C.getInput(5)) |
|||
} |
|||
var freqS = freq.toString |
|||
var vol = 0 |
|||
while (!vol || vol < 1 || vol > 50) { |
|||
System.write("Enter volume in dB (1 to 50) : ") |
|||
vol = Num.fromString(C.getInput(2)) |
|||
} |
|||
var volS = vol.toString |
|||
var dur = 0 |
|||
while (!dur || dur < 2 || dur > 10) { |
|||
System.write("Enter duration in seconds (2 to 10) : ") |
|||
dur = Num.fromString(C.getInput(2)) |
|||
} |
|||
var durS = dur.toString |
|||
var kind = 0 |
|||
while (!kind || !kind.isInteger || kind < 1 || kind > 3) { |
|||
System.write("Enter kind (1 = Sine, 2 = Square, 3 = Sawtooth) : ") |
|||
kind = Num.fromString(C.getInput(1)) |
|||
} |
|||
var kindS = "sine" |
|||
if (kind == 2) { |
|||
kindS = "square" |
|||
} else if (kind == 3) { |
|||
kindS = "sawtooth" |
|||
} |
|||
var args = ["-n", "-V1", "synth", durS, kindS, freqS, "vol", volS, "dB"].join(" ") |
|||
C.play(args)</lang> |
|||
<br> |
|||
We now embed this in the following C program, compile and run it. |
|||
<lang c>#include <stdio.h> |
|||
#include <stdio_ext.h> |
|||
#include <stdlib.h> |
|||
#include <string.h> |
|||
#include "wren.h" |
|||
void C_getInput(WrenVM* vm) { |
|||
int maxSize = (int)wrenGetSlotDouble(vm, 1) + 2; |
|||
char input[maxSize]; |
|||
fgets(input, maxSize, stdin); |
|||
__fpurge(stdin); |
|||
input[strcspn(input, "\n")] = 0; |
|||
wrenSetSlotString(vm, 0, (const char*)input); |
|||
} |
|||
void C_play(WrenVM* vm) { |
|||
const char *args = wrenGetSlotString(vm, 1); |
|||
char command[strlen(args) + 5]; |
|||
strcpy(command, "play "); |
|||
strcat(command, args); |
|||
system(command); |
|||
} |
|||
WrenForeignMethodFn bindForeignMethod( |
|||
WrenVM* vm, |
|||
const char* module, |
|||
const char* className, |
|||
bool isStatic, |
|||
const char* signature) { |
|||
if (strcmp(module, "main") == 0) { |
|||
if (strcmp(className, "C") == 0) { |
|||
if (isStatic && strcmp(signature, "getInput(_)") == 0) return C_getInput; |
|||
if (isStatic && strcmp(signature, "play(_)") == 0) return C_play; |
|||
} |
|||
} |
|||
return NULL; |
|||
} |
|||
static void writeFn(WrenVM* vm, const char* text) { |
|||
printf("%s", text); |
|||
} |
|||
void errorFn(WrenVM* vm, WrenErrorType errorType, const char* module, const int line, const char* msg) { |
|||
switch (errorType) { |
|||
case WREN_ERROR_COMPILE: |
|||
printf("[%s line %d] [Error] %s\n", module, line, msg); |
|||
break; |
|||
case WREN_ERROR_STACK_TRACE: |
|||
printf("[%s line %d] in %s\n", module, line, msg); |
|||
break; |
|||
case WREN_ERROR_RUNTIME: |
|||
printf("[Runtime Error] %s\n", msg); |
|||
break; |
|||
} |
|||
} |
|||
char *readFile(const char *fileName) { |
|||
FILE *f = fopen(fileName, "r"); |
|||
fseek(f, 0, SEEK_END); |
|||
long fsize = ftell(f); |
|||
rewind(f); |
|||
char *script = malloc(fsize + 1); |
|||
fread(script, 1, fsize, f); |
|||
fclose(f); |
|||
script[fsize] = 0; |
|||
return script; |
|||
} |
|||
int main(int argc, char **argv) { |
|||
WrenConfiguration config; |
|||
wrenInitConfiguration(&config); |
|||
config.writeFn = &writeFn; |
|||
config.errorFn = &errorFn; |
|||
config.bindForeignMethodFn = &bindForeignMethod; |
|||
WrenVM* vm = wrenNewVM(&config); |
|||
const char* module = "main"; |
|||
const char* fileName = "audio_frequency_generator.wren"; |
|||
char *script = readFile(fileName); |
|||
WrenInterpretResult result = wrenInterpret(vm, module, script); |
|||
switch (result) { |
|||
case WREN_RESULT_COMPILE_ERROR: |
|||
printf("Compile Error!\n"); |
|||
break; |
|||
case WREN_RESULT_RUNTIME_ERROR: |
|||
printf("Runtime Error!\n"); |
|||
break; |
|||
case WREN_RESULT_SUCCESS: |
|||
break; |
|||
} |
|||
wrenFreeVM(vm); |
|||
free(script); |
|||
return 0; |
|||
}</lang> |
|||
=={{header|ZX Spectrum Basic}}== |
=={{header|ZX Spectrum Basic}}== |