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

clean up tunes + also load presets.orc

Browse source
This commit is contained in:
Felix Roos 2022-12-01 14:56:50 +01:00
parent f599088cdf
commit 5727c0dc8a
4 changed files with 41 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

7
packages/csound/csound.mjs
View file

@ -1,8 +1,8 @@
import { getFrequency, logger, Pattern } from '@strudel.cycles/core';
import { getAudioContext } from '@strudel.cycles/webaudio';
import csd from './project.csd?raw';
import orc from './livecode.orc?raw';
// import orc from './sounds.orc?raw';
import livecodeOrc from './livecode.orc?raw';
import presetsOrc from './presets.orc?raw';
let csoundLoader, _csound;
@ -76,7 +76,8 @@ async function load() {
await _csound.setOption('-m0'); // see -m flag https://csound.com/docs/manual/CommandFlags.html
await _csound.setOption('--sample-accurate');
await _csound.compileCsdText(csd);
await _csound.compileOrc(orc);
await _csound.compileOrc(livecodeOrc);
await _csound.compileOrc(presetsOrc);
await _csound.start();
return _csound;
}

21
packages/csound/sounds.orc → packages/csound/presets.orc
View file

@ -1,3 +1,4 @@
; TODO add incredibly dope synths
instr organ
iduration = p3
ifreq = p4
@ -37,4 +38,24 @@ instr triangle
asig *= linsegr:a(0, iattack, 1, iduration, 1, irelease, 0)
out(asig, asig)
endin
instr pad
iduration = p3
ifreq = p4
igain = p5
ioct = octcps(ifreq)
asig = vco2(igain, ifreq, 0)
; amp envelope
iattack = .5
irelease = .1
asig *= linsegr:a(0, iattack, 1, iduration, 1, irelease, 0)
idepth = 2
acut = transegr:a(0, .005, 0, idepth, .06, -4.2, 0.001, .01, -4.2, 0)
asig = zdf_2pole(asig, 1000, 2)
out(asig, asig)
endin