From ce2e3e0462ef733d78ee7398f4c0bfbe5f22fbcc Mon Sep 17 00:00:00 2001
From: Marlon Schumacher <schumacher@hfm-karlsruhe.de>
Date: Fri, 28 Mar 2025 02:48:44 +0100
Subject: [PATCH] feat: add Max Test Patch for real-time OSC transmission
---
SRR.lisp | 2
Max-OSC-test.maxpat | 99 +++++++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 100 insertions(+), 1 deletions(-)
diff --git a/Max-OSC-test.maxpat b/Max-OSC-test.maxpat
new file mode 100644
index 0000000..19588a0
--- /dev/null
+++ b/Max-OSC-test.maxpat
@@ -0,0 +1,99 @@
+{
+ "patcher" : {
+ "fileversion" : 1,
+ "appversion" : {
+ "major" : 8,
+ "minor" : 6,
+ "revision" : 5,
+ "architecture" : "x64",
+ "modernui" : 1
+ }
+,
+ "classnamespace" : "box",
+ "rect" : [ -1121.0, 361.0, 346.0, 311.0 ],
+ "bglocked" : 0,
+ "openinpresentation" : 0,
+ "default_fontsize" : 12.0,
+ "default_fontface" : 0,
+ "default_fontname" : "Arial",
+ "gridonopen" : 1,
+ "gridsize" : [ 15.0, 15.0 ],
+ "gridsnaponopen" : 1,
+ "objectsnaponopen" : 1,
+ "statusbarvisible" : 2,
+ "toolbarvisible" : 1,
+ "lefttoolbarpinned" : 0,
+ "toptoolbarpinned" : 0,
+ "righttoolbarpinned" : 0,
+ "bottomtoolbarpinned" : 0,
+ "toolbars_unpinned_last_save" : 0,
+ "tallnewobj" : 0,
+ "boxanimatetime" : 200,
+ "enablehscroll" : 1,
+ "enablevscroll" : 1,
+ "devicewidth" : 0.0,
+ "description" : "",
+ "digest" : "",
+ "tags" : "",
+ "style" : "",
+ "subpatcher_template" : "",
+ "assistshowspatchername" : 0,
+ "boxes" : [ {
+ "box" : {
+ "id" : "obj-4",
+ "maxclass" : "multislider",
+ "numinlets" : 1,
+ "numoutlets" : 2,
+ "outlettype" : [ "", "" ],
+ "parameter_enable" : 0,
+ "patching_rect" : [ 107.0, 139.0, 153.0, 123.0 ],
+ "setminmax" : [ 0.0, 1.0 ],
+ "setstyle" : 4
+ }
+
+ }
+, {
+ "box" : {
+ "id" : "obj-3",
+ "maxclass" : "newobj",
+ "numinlets" : 2,
+ "numoutlets" : 2,
+ "outlettype" : [ "", "" ],
+ "patching_rect" : [ 107.0, 100.0, 62.0, 22.0 ],
+ "text" : "route /test"
+ }
+
+ }
+, {
+ "box" : {
+ "id" : "obj-1",
+ "maxclass" : "newobj",
+ "numinlets" : 1,
+ "numoutlets" : 1,
+ "outlettype" : [ "" ],
+ "patching_rect" : [ 107.0, 53.0, 97.0, 22.0 ],
+ "text" : "udpreceive 3000"
+ }
+
+ }
+ ],
+ "lines" : [ {
+ "patchline" : {
+ "destination" : [ "obj-3", 0 ],
+ "source" : [ "obj-1", 0 ]
+ }
+
+ }
+, {
+ "patchline" : {
+ "destination" : [ "obj-4", 0 ],
+ "source" : [ "obj-3", 0 ]
+ }
+
+ }
+ ],
+ "dependency_cache" : [ ],
+ "autosave" : 0
+ }
+
+}
diff --git a/SRR.lisp b/SRR.lisp
index c28301d..bf3d81d 100644
--- a/SRR.lisp
+++ b/SRR.lisp
@@ -62,7 +62,7 @@
:numouts 2
(let ((valuelist (mat-trans
(loop for sub in subdivisions
- collect (multiple-value-list (gen-wave1 sub))))))
+ collect (multiple-value-list (gen-partial sub))))))
(values (caar valuelist)
--
Gitblit v1.9.1