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

20
public/system-files/scale.orc
View File

@ -125,16 +125,16 @@ opcode scale_up, k, ikkk
knote init ibase
kitv init 0
ilen = ftlen(iscale)
if(ktrig == 1) then
if (ktrig == 1) then
kpick = (kpick + 1) ;% ilen
if(kpick == ilen) then
if (kpick == ilen) then
kpick = 0
kitv = 0
endif
kitv = table(kpick, iscale) - kitv
printk2 kitv
knote = knote + kitv
if(knote > kmax) then
if (knote > kmax) then
knote = kmin + (knote - kmax)
endif
endif
@ -150,11 +150,11 @@ opcode scale_up, k, ikkk
kpick init 0
knote init ibase
ilen = ftlen(iscale)
if(ktrig == 1) then
if (ktrig == 1) then
kpick = (kpick + 1) % ilen
kitv = table(kpick, iscale)
knote = knote + kitv
if(knote > kmax) then
if (knote > kmax) then
knote = kmin + (knote - kmax)
endif
endif
@ -172,11 +172,11 @@ opcode scale_down, k, ikkk
kpick init 0
knote init ibase
ilen = ftlen(iscale)
if(ktrig == 1) then
if (ktrig == 1) then
kpick = (kpick + 1) % ilen
kitv = table(kpick, iscale)
knote = knote - kitv
if(knote < kmin) then
if (knote < kmin) then
knote = kmax ;- (kmin - knote)
endif
endif
@ -191,15 +191,15 @@ opcode scale_random, k, ikkk
kpick init 0
knote init ibase
ilen = ftlen(iscale)
if(ktrig == 1) then
if (ktrig == 1) then
ksign = (rint:k(0, 1) == 0) ? -1 : 1
kpick = (kpick + 1) % ilen
kitv = table(kpick, iscale)
knote = knote + (kitv * ksign)
if(knote < kmin) then
if (knote < kmin) then
knote = kmax ;- (kmin - knote)
endif
if(knote > kmax) then
if (knote > kmax) then
knote = kmin ;+ (knote - kmax)
endif
endif