hacklab/strudel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

hot mode + tone synth experiments

Browse source
This commit is contained in:
Felix Roos 2022-02-08 23:01:01 +01:00
parent 89ee94e953
commit 20cbaf913a
9 changed files with 502 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

25
repl/src/parse.ts
View file

@ -1,8 +1,13 @@
import * as krill from '../krill-parser';
import * as strudel from '../../strudel.mjs';
import { Scale, Note, Interval } from '@tonaljs/tonal';
import './tone';
import * as toneStuff from './tone';
const { sequence, stack, silence, Fraction, pure } = strudel;
// even if some functions are not used, we need them to be available in eval
const { pure, stack, slowcat, fastcat, cat, sequence, polymeter, pm, polyrhythm, pr, /* reify, */ silence, Fraction } =
strudel;
const { autofilter, filter, gain } = toneStuff;
function reify(thing: any) {
if (thing?.constructor?.name === 'Pattern') {
@ -99,3 +104,21 @@ export const h = (string: string) => {
// console.log('ast', ast);
return patternifyAST(ast);
};
export const parse: any = (code: string) => {
let _pattern;
let mode;
try {
_pattern = h(code);
mode = 'pegjs';
} catch (err) {
// code is not haskell like
mode = 'javascript';
_pattern = eval(code);
if (_pattern?.constructor?.name !== 'Pattern') {
const message = `got "${typeof _pattern}" instead of pattern`;
throw new Error(message + (typeof _pattern === 'function' ? ', did you forget to call a function?' : '.'));
}
}
return { mode, pattern: _pattern };
};