BuboBubo/oldboy
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

oof

Browse Source
This commit is contained in:
Raphaël Forment
2025-11-14 01:53:18 +01:00
parent e7ffcda096
commit 8941ee13bc
29 changed files with 3752 additions and 122 deletions
Download Patch File Download Diff File Expand all files Collapse all files

62
public/system-files/synth.orc
View File

@ -12,7 +12,7 @@ opcode basic_sine_gen, 0, kk
ktrig, kamp xin
kamp = limit:k(kamp, 0, 1)
ktrig = limit:k(ktrig, 0, 1)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("basic_sine", 0, random:k(0.03, 0.1), random:k(50, 80), kamp * ktrig)
endif
endop
@ -35,7 +35,7 @@ opcode pop, 0, kkkk
knote = limit:k(knote, 0, 100) + 27
kdur = to_tempo_dur(limit:k(kdur, 0.01, 1))
ktrig = limit:k(ktrig, 0, 1)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("pop_impl", 0, kdur, knote, kamp * ktrig)
endif
endop
@ -78,7 +78,7 @@ opcode kick, 0, kkO
ktrig = limit:k(ktrig, 0, 1)
ksav = rint:i(1, 5)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("basic_kick", 0, 0.1, kamp * ktrig, 0)
endif
endop
@ -112,7 +112,7 @@ opcode hihat, 0, kkkkO
kdur = to_tempo_dur(limit:k(kdur, 0.001, 100))
kfq = mtof(limit:k(knote, 0, 100) + 27)
ktrig = limit:k(ktrig, 0, 1)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("noisy_hat", 0, kdur, kfq, kamp * ktrig, ksav)
endif
endop
@ -125,7 +125,7 @@ instr bass_impl
aenv = expsegr:a(0.01, 0.05, 1.01, p3 - 0.05, 1.01, p3/16, 0.01) - a(0.01)
imult = rint:i(1, 8)
if(imodspeed >= 0) then
if (imodspeed >= 0) then
imult = imodspeed
endif
kmodfq = gktempo * imult
@ -146,7 +146,7 @@ opcode wah, 0, kkkkJ
kfq = mtof(limit:k(knote, 0, 100) + 20)
ktrigger = limit:k(ktrigger, 0, 1)
kmodspeed = limit:k(kmodspeed, -1, 100)
if(check_trig(ktrigger) == 1) then
if (check_trig(ktrigger) == 1) then
schedulek("bass_impl", 0, kdur, kamp * ktrigger, kfq, kmodspeed)
endif
endop
@ -175,7 +175,7 @@ opcode glide, 0, kkkkO
kamp = limit:k(kamp, 0, 1)
kfq = mtof(limit:k(knote, 0, 100) + 20)
ktrig = limit:k(ktrig, 0, 1)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
kcnt = 0
while kcnt < kdensity do
schedulek("glide_impl", 0, to_tempo_dur(kdur), kamp * ktrig, kfq, ksav)
@ -212,7 +212,7 @@ opcode ping, 0, kkkkO
kamp = limit:k(kamp, 0, 1)
kfq = mtof(limit:k(knote, 0, 100) + 20)
kdur = limit:k(kdur, 0.001, 1000)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("trumpet_impl", 0, to_tempo_dur(kdur), kfq, kamp, rint:k(1, 3), random:k(1, 4), ksav)
endif
endop
@ -258,7 +258,7 @@ opcode wave, 0, kkkkO
kamp = limit:k(kamp, 0, 1)
ktrig = limit:k(ktrig, 0, 1)
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("wave_impl", 0, kdur, kamp, kfq, ksav)
endif
endop
@ -271,7 +271,7 @@ instr pluck_impl
imult init p6
iamp init p4
inote init p5
if(imult <= 0) then
if (imult <= 0) then
imult = rint:i(1, 10)
endif
@ -309,7 +309,7 @@ opcode chord, 0, kkkkJO
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
kmult = limit:k(kmult, -1, 10)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("pluck_impl", 0, kdur, kamp, knote, kmult, ksav)
endif
endop
@ -325,9 +325,9 @@ opcode funkymod, k, kkk
; 5 saw down
; 6 pwm
iwave = rint:i(1, 6)
if(iwave == 3) then
if (iwave == 3) then
iwave = 4
elseif(iwave == 6) then
elseif (iwave == 6) then
iwave = 5
endif
@ -335,7 +335,7 @@ opcode funkymod, k, kkk
kpwm_amp = 1 - klf_amp
klfo = lfo:k(kamp, kfq)
if(iwave < 3) then
if (iwave < 3) then
klfo += kamp
klfo /= 2
endif
@ -391,7 +391,7 @@ opcode buzzy, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("buzzy_impl", 0, kdur, mtof:k(knote), kamp, ksav)
endif
endop
@ -422,7 +422,7 @@ opcode noisy, 0, kkkk
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("fnoise_impl", 0, kdur, mtof:k(knote), kamp)
endif
endop
@ -471,7 +471,7 @@ opcode pulsar, 0, kkkkkk
kformant_fq = limit:k(kformant_fq, 0, 10) * 150 + 300
ksine_cycles = int(limit:k(ksine_cycles, 1, 10))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("pulsar_impl", 0, kdur, kamp, mtof:k(knote), kformant_fq, ksine_cycles)
endif
endop
@ -524,7 +524,7 @@ opcode piou, 0, kkkkk
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
kQ = limit:k(kQ, 1, 10)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("graou_impl", 0, kdur, kamp, mtof:k(knote), kQ)
endif
endop
@ -554,7 +554,7 @@ opcode buzzwave, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(trigger:k(ktrig, 0.5, 0) == 1) then
if (trigger:k(ktrig, 0.5, 0) == 1) then
schedulek("smooth_wave_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -594,7 +594,7 @@ opcode noisywave, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(trigger:k(ktrig, 0.5, 0) == 1) then
if (trigger:k(ktrig, 0.5, 0) == 1) then
schedulek("smooth_noise_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -628,7 +628,7 @@ opcode crunchy, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("crunchy_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -652,7 +652,7 @@ instr crunchyslow_instr
adist *= aenv * iamp
ipan_base = rint:i(0, 1)
kpan = gkmirlorenz_y
if(ipan_base > 0) then
if (ipan_base > 0) then
kpan = 1 - kpan
endif
aL, aR pan2 adist * gkgain, kpan
@ -666,7 +666,7 @@ opcode crunchy_wav, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("crunchyslow_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -693,7 +693,7 @@ instr shinywave_instr
adist *= aenv * iamp * 0.7
ipan_base = rint:i(0, 1)
kpan = gkmirlorenz_y
if(ipan_base > 0) then
if (ipan_base > 0) then
kpan = 1 - kpan
endif
aL, aR pan2 adist * gkgain, kpan
@ -707,7 +707,7 @@ opcode brightwave, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("shinywave_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -744,7 +744,7 @@ opcode glidy, 0, kkkkO
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("glide_instr", 0, kdur, knote, kamp, ksav)
endif
endop
@ -811,7 +811,7 @@ opcode snare, 0, kkO
ktrig, kamp, ksav xin
ktrig = limit:k(ktrig, 0, 1)
kamp = limit:k(kamp ,0, 1)
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
;i34 0.0 .5 30000 7.00 .5 .7 1 1 1 1 1.5 .1
idur random 1/12, 1/8 ; Duration
kdyn = kamp ; random 1/9, 1/2 ; Amplitude
@ -890,7 +890,7 @@ opcode water_drop, 0, kkk
kspeed = limit:k(kspeed, 0.001, 1)*15
kmet = drunk(kspeed, 0.7)
if(kmet == 1) then
if (kmet == 1) then
kfq1 = random:k(380, 500) ;430
kfq2 = random:k(900, 1200) ; 1000
kfq3 = random:k(700, 880) ;800
@ -937,7 +937,7 @@ opcode strike, 0, kkkk
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("ks_impl", 0, kdur, knote, kamp)
endif
endop
@ -981,7 +981,7 @@ opcode smooth, 0, kkkk
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("vibish_impl", 0, kdur, knote, kamp)
endif
endop
@ -1032,7 +1032,7 @@ opcode bounce, 0, kkkk
kamp = limit:k(kamp ,0, 1)
knote = limit:k(knote, 0, 100) + 20
kdur = to_tempo_dur(limit:k(kdur, 0.001, 1000))
if(check_trig(ktrig) == 1) then
if (check_trig(ktrig) == 1) then
schedulek("bounce_impl", 0, kdur, knote, kamp)
endif
endop