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

---
 .../sequencing_melodic_persistence.pe.udo          | 54 ++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 site/app/partialemergence/sequencing_melodic_persistence.pe.udo

(limited to 'site/app/partialemergence/sequencing_melodic_persistence.pe.udo')

diff --git a/site/app/partialemergence/sequencing_melodic_persistence.pe.udo b/site/app/partialemergence/sequencing_melodic_persistence.pe.udo
new file mode 100644
index 0000000..a75b2d4
--- /dev/null
+++ b/site/app/partialemergence/sequencing_melodic_persistence.pe.udo
@@ -0,0 +1,54 @@
+#ifndef UDO_MELSEQUENCINGPERSIST
+#define UDO_MELSEQUENCINGPERSIST ##
+/*
+	Melodic sequencer persistence: saving/loading from files and database
+	Slim excerpt for Partial Emergence
+
+	This file is part of the SONICS UDO collection by Richard Knight 2021, 2022, 2025
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+#include "/sequencing_melodic.udo"
+#include "/array_tools.udo"
+
+/*
+	Load state from file
+
+	p4	path to load from
+*/
+instr mel_loadstate_fs
+	Spath = p4
+	isize = -1
+	iline = 0
+	
+	ftload Spath, 1,\
+		gimel_chords, gimel_notes, 
+		gimel_lengths, gimel_action1,\ 
+		gimel_action2, gimel_actionthreshold,\
+		gimel_active, gimel_importance,\
+		gimel_mod1, gimel_mod2,\
+		gimel_mod3, gimel_mod4,\
+		gimel_state
+	
+	gkmel_futures_refresh_trig = 1
+	turnoff
+endin
+
+
+
+; if MEL_INITPATH is set, load the specified progression data accordingly
+#ifdef MEL_HASINIT
+instr _mel_persistence_init
+#ifdef MEL_INITPATH
+	subinstrinit "mel_loadstate_fs", "$MEL_INITPATH"
+#end
+	alwayson "_mel_manager"
+	turnoff
+endin
+schedule "_mel_persistence_init", 0, 60
+
+; end MEL_HASINIT
+#end 
+
+#end
-- 
cgit v1.2.3