From decb2dc0e9f1167d5cd8fb4d455305be6b9fdfbe Mon Sep 17 00:00:00 2001
From: Richard <richard@1bpm.net>
Date: Tue, 4 Oct 2022 00:17:55 +0100
Subject: initial

---
 sonics/sequencing_melodic_persistence.udo | 54 +++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100755 sonics/sequencing_melodic_persistence.udo

(limited to 'sonics/sequencing_melodic_persistence.udo')

diff --git a/sonics/sequencing_melodic_persistence.udo b/sonics/sequencing_melodic_persistence.udo
new file mode 100755
index 0000000..cd1943d
--- /dev/null
+++ b/sonics/sequencing_melodic_persistence.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
+		License: GPL-2.0-or-later
+		http://1bpm.net
+*/
+
+#include "sonics/sequencing_melodic.udo"
+#include "sonics/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