diff options
| author | Richard Knight <q@1bpm.net> | 2021-08-16 02:56:49 +0100 |
|---|---|---|
| committer | Richard Knight <q@1bpm.net> | 2021-08-16 02:56:49 +0100 |
| commit | 2e854bcb40d535957b589ad02e3f280e00b47865 (patch) | |
| tree | 8fe2abbc86130af2d2ff74bbce943a68f2ec4c6d /examples/memson-fltk.csd | |
| download | csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.tar.gz csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.tar.bz2 csound-datacore-2e854bcb40d535957b589ad02e3f280e00b47865.zip | |
pre strip down
Diffstat (limited to 'examples/memson-fltk.csd')
| -rw-r--r-- | examples/memson-fltk.csd | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/examples/memson-fltk.csd b/examples/memson-fltk.csd new file mode 100644 index 0000000..44e80a8 --- /dev/null +++ b/examples/memson-fltk.csd @@ -0,0 +1,44 @@ +<CsoundSynthesizer> +<CsOptions> +-odac +</CsOptions> +<CsInstruments> +sr = 44100 +kr = 441 +nchnls = 2 +0dbfs = 1 +seed 0 + +FLpanel "memread", 640, 640 + gkx, gky, ihx, ihy FLjoy "Memory", 0, 1, 0, 1, 0, 0, -1, -1, 400, 400, 10, 10 + gilabel FLbox "No PID", 1, 11, 14, 600, 50, 10, 450 + gkpv1, ibt FLbutton "PVX", 1, 0, 2, 50, 20, 450, 10, -1 +FLpanelEnd +FLrun + +instr 1 + idata[] memps + ipid = idata[int(random(0, lenarray(idata)-1))] + Sname = sprintf("%s (%d)", mempsname(ipid), ipid) + FLsetText Sname, gilabel + a1 memson ipid, gkx, gky, 44100, 1 + a1 dcblock a1 + if (gkpv1 == 1) then + ir = 512 + kstens = abs(oscil(0.7, 5)) + 1.5 + f1 pvsanal a1, ir, ir/4, ir, 1 + f2 pvstencil f1, 0, kstens, 1 + a1 pvsynth f2 + endif + a1 *= 0.1 + outs a1, a1 +endin + + +</CsInstruments> +<CsScore> +f1 0 512 -43 "noise.pvx" 0 + +i1 0 3600 +</CsScore> +</CsoundSynthesizer> |