From 9fbf91db06a6d4f4b5cd8bb45389a731bb86bf22 Mon Sep 17 00:00:00 2001
From: Richard <q@1bpm.net>
Date: Sun, 13 Apr 2025 18:48:02 +0100
Subject: initial

---
 site/udo/sample_level.udo | 90 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100755 site/udo/sample_level.udo

(limited to 'site/udo/sample_level.udo')

diff --git a/site/udo/sample_level.udo b/site/udo/sample_level.udo
new file mode 100755
index 0000000..3aa5b1e
--- /dev/null
+++ b/site/udo/sample_level.udo
@@ -0,0 +1,90 @@
+#ifndef UDO_SAMPLELEVEL
+#define UDO_SAMPLELEVEL ##
+/*
+	Sample level block processing
+
+	This file is part of the SONICS UDO collection by Richard Knight 2024
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+opcode smp_hold, a, ak
+	ain, kratio xin
+	aout init 0
+	ktrig metro kr * kratio
+	if (ktrig == 1) then
+		kindex = 0
+		while (kindex < ksmps) do
+			aout[kindex] = ain[kindex]
+			kindex += 1
+		od
+	endif
+	xout aout
+endop
+
+opcode smp_rearrange, aa, iiiij
+	ichops, ichopmin, ichopmax, ifnL, ifnR xin
+	if (ichopmin > ichopmax) then
+		ichopmin = ichopmax
+	endif
+	ilen = ftlen(ifnL)
+	if (ichopmin > ilen) then
+		ichopmin = round(ilen * 0.1)
+	endif
+	if (ichopmax > ilen) then
+		ichopmax = round(ilen * 0.2)
+	endif
+	ichopfn ftgentmp 0, 0, -(ichops * 3), 2, 0
+	index = 0
+	iwriteindex = 0
+	while (index < ichops) do
+		ichoplen = round(random(ichopmin, ichopmax))
+		ichopstart = round(random(0, ilen - ichoplen))
+		tabw_i ichopstart, iwriteindex, ichopfn
+		tabw_i ichoplen, iwriteindex + 1, ichopfn
+		tabw_i round(random(0, ilen - ichoplen)), iwriteindex + 2, ichopfn
+		iwriteindex += 3
+		index += 1
+	od
+	apos lphasor 1
+	kindex1 = 0
+	kinmove init 0
+	while (kindex1 < ftlen(ichopfn)) do
+		kstart tab kindex1, ichopfn
+		klen tab kindex1 + 1, ichopfn
+		kdest tab kindex1 + 2, ichopfn
+		koffset = 0
+		kindex2 = 0
+		while (kindex2 < ksmps) do
+			if (apos[kindex2] >= kdest) then
+				kinmove = 1
+				koffset = apos[kindex2] - kdest
+			endif
+			if (apos[kindex2] >= kdest + klen) then
+				kinmove = 0
+			endif
+			if (kinmove == 1) then
+				apos[kindex2] = kstart + koffset
+			endif
+			kindex2 += 1
+		od
+		kindex1 += 3
+	od
+
+	aL table3 apos, ifnL
+	if (ifnR != -1) then
+		aR table3 apos, ifnR
+	else
+		aR = aL
+	endif
+	xout aL, aR
+endop
+
+opcode smp_rearrange, a, iiii
+	ichops, ichopmin, ichopmax, ifn xin
+	aout, a_ smp_rearrange ichops, ichopmin, ichopmax, ifn
+	xout aout
+endop
+
+#end
+
-- 
cgit v1.2.3