doohoyi/faa
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

base: doohoyi:wifi
Branches Tags
doohoyi:main
doohoyi:wifi
..
compare: doohoyi:main
Branches Tags
doohoyi:main
doohoyi:wifi

4 commits
wifi ... main

Author SHA1 Message Date
Dooho Yi
ead997bf09 workshop patch added 'sound from earth' Seoul version. 2024-09-21 16:29:03 +09:00
Dooho Yi
f0f57cf42f push basic gitignore 2024-09-21 16:28:21 +09:00
Dooho Yi
fff7c85c71 bug fix 
monitoring messages must go different Serial= Serial1
 2024-09-20 19:14:52 +09:00
Dooho Yi
b50946cabd indentation changes + sketch.yaml added (for arduino-cli) 2024-09-20 19:13:50 +09:00
34 changed files with 7359 additions and 986 deletions
Show stats Expand all files Collapse all files

BIN
.DS_Store vendored
View file

Binary file not shown.

1
.gitignore vendored Normal file
View file

@ -0,0 +1 @@
.DS_Store

1
.python-version
View file

@ -1 +0,0 @@
pio

2
faa_button/sketch.yaml Normal file
View file

@ -0,0 +1,2 @@
default_fqbn: esp8266:esp8266:nodemcuv2:baud=460800
default_port: /dev/tty.SLAB_USBtoUART

36
faa_osc/faa_osc.ino
View file

@ -26,6 +26,18 @@
#define WIFI_CHANNEL 1
//============</parameters>===========
//============<configurations>============
//
// MONITORING_ACTIVE
// : activate serial communication monitoring @ TX1, if defined.
// since 'Serial' is occupied by 'SLIPSerial',
// alternativly 'Serial1' will send out messages.
//
// 'Serial1' - D4/GPIO2/TDX1 @ nodemcu (this is TX only.)
//
//============</configurations>============
// #define MONITORING_ACTIVE
//arduino
#include <Arduino.h>
@ -96,8 +108,10 @@ void route_note(OSCMessage& msg, int offset) {
//
esp_now_send(NULL, frm, frm_size); // to all peers in the list.
//
Serial.write(frm, frm_size);
Serial.println(" ==(esp_now_send/0)==> ");
#if defined(MONITORING_ACTIVE)
Serial1.write(frm, frm_size);
Serial1.println(" ==(esp_now_send/0)==> ");
#endif
//
}
}
@ -159,15 +173,18 @@ Task blink_task(0, TASK_FOREVER, &blink, &runner, true); // -> ENABLED, at start
// on 'receive'
void onDataReceive(uint8_t * mac, uint8_t *incomingData, uint8_t len) {
//
Serial.write(incomingData, len);
#if defined(MONITORING_ACTIVE)
Serial1.write(incomingData, len);
#endif
// open => identify => use.
if (incomingData[0] == '{' && incomingData[len - 1] == '}' && len == (sizeof(Hello) + 2)) {
Hello hello("");
memcpy((uint8_t *) &hello, incomingData + 1, sizeof(Hello));
//
Serial.println(hello.to_string());
#if defined(MONITORING_ACTIVE)
Serial1.println(hello.to_string());
#endif
//
OSCMessage osc("/hello");
osc.add(hello.id);
@ -188,7 +205,9 @@ void onDataReceive(uint8_t * mac, uint8_t *incomingData, uint8_t len) {
Note note;
memcpy((uint8_t *) &note, incomingData + 1, sizeof(Note));
//
Serial.println(note.to_string());
#if defined(MONITORING_ACTIVE)
Serial1.println(note.to_string());
#endif
}
}
@ -249,6 +268,11 @@ void setup() {
// start SLIPSerial on Serial
SLIPSerial.begin(57600);
// start Serial1 as an alternative
#if defined(MONITORING_ACTIVE)
Serial1.begin(115200);
#endif
// clear out any leftover debris. (this will let LED blinking works from initialization.)
while(SLIPSerial.available() > 0) {
SLIPSerial.read();

2
faa_piano/sketch.yaml Normal file
View file

@ -0,0 +1,2 @@
default_fqbn: esp8266:esp8266:nodemcuv2:baud=460800
default_port: /dev/tty.SLAB_USBtoUART

217
faa_roller/faa_roller.ino
View file

@ -29,37 +29,12 @@
//arduino
#include <Arduino.h>
//network credentials
char ssid[] = "KT_GiGA_D565"; // ssid
char pass[] = "bhc1dd4971"; // password
////udp
#include <ESP8266WiFi.h>
#include <WiFiUdp.h>
WiFiUDP Udp;
// destination IP & Port
// const IPAddress dest_ip(192,168,43,255);
const IPAddress dest_ip(255,255,255,255);
const unsigned int dest_port = 5555;
// - Local broadcast address (255.255.255.255)
// - Directed broadcast address (192.168.25.255 or 192.168.255.255 depends on your subnet)
// difference between 'Directed broadcast' vs 'Local broadcast'
// ==> https://serverfault.com/a/219767
// ==> https://www.sysnet.pe.kr/2/0/11368
// listening Port
const unsigned int listening_port = 5555; // listening port
//message types
#include "message.h"
//osc
#include <OSCMessage.h>
#include <OSCBundle.h>
OSCErrorCode error;
//espnow
#include <ESP8266WiFi.h>
#include <espnow.h>
//task
#include <TaskScheduler.h>
@ -150,9 +125,40 @@ void watcher2() {
Task watcher2_task(1000, TASK_FOREVER, &watcher2, &runner, true);
//*-*-*-*-*-*-*-*-*-*-*-*-*
//task #0 : blink led
#define LED_PERIOD (11111)
#define LED_ONTIME (1)
#define LED_GAPTIME (222)
#define LED_PIN 2
extern Task blink_task;
void blink() {
//
static int count = 0;
count++;
//
switch (count % 4) {
case 0:
digitalWrite(LED_PIN, LOW); // first ON
blink_task.delay(LED_ONTIME);
break;
case 1:
digitalWrite(LED_PIN, HIGH); // first OFF
blink_task.delay(LED_GAPTIME);
break;
case 2:
digitalWrite(LED_PIN, LOW); // second ON
blink_task.delay(LED_ONTIME);
break;
case 3:
digitalWrite(LED_PIN, HIGH); // second OFF
blink_task.delay(LED_PERIOD - 2* LED_ONTIME - LED_GAPTIME);
break;
}
}
Task blink_task(0, TASK_FOREVER, &blink, &runner, true); // -> ENABLED, at start-up.
// on 'Note'
void onNoteHandler(Note & n) {
Serial.println(n.to_string());
//is it for me?
if (n.id == MY_GROUP_ID || n.id == MY_ID) {
//
@ -187,102 +193,36 @@ void onNoteHandler(Note & n) {
}
}
//*-*-*-*-*-*-*-*-*-*-*-*-*
//common task #0 : blink led
#define LED_PERIOD (11111)
#define LED_ONTIME (1)
#define LED_GAPTIME (222)
#define LED_PIN 2
extern Task blink_task;
void blink() {
//
static int count = 0;
count++;
//
switch (count % 4) {
case 0:
digitalWrite(LED_PIN, LOW); // first ON
blink_task.delay(LED_ONTIME);
break;
case 1:
digitalWrite(LED_PIN, HIGH); // first OFF
blink_task.delay(LED_GAPTIME);
break;
case 2:
digitalWrite(LED_PIN, LOW); // second ON
blink_task.delay(LED_ONTIME);
break;
case 3:
digitalWrite(LED_PIN, HIGH); // second OFF
blink_task.delay(LED_PERIOD - 2* LED_ONTIME - LED_GAPTIME);
break;
}
}
Task blink_task(0, TASK_FOREVER, &blink, &runner, true); // -> ENABLED, at start-up.
// on 'receive'
void onDataReceive(uint8_t * mac, uint8_t *incomingData, uint8_t len) {
//common task #1 : listen on osc messages
// - osc processing
void route_note(OSCMessage& msg, int offset) {
// Serial.println("got route_note!");
// matches will happen in the order. that the bundle is packed.
static Note note;
// (1) --> /onoff
if (msg.fullMatch("/onoff", offset)) {
//
note.clear();
Serial.write(incomingData, len);
// open => identify => use.
if (incomingData[0] == '{' && incomingData[len - 1] == '}' && len == (sizeof(Hello) + 2)) {
Hello hello("");
memcpy((uint8_t *) &hello, incomingData + 1, sizeof(Hello));
//
note.onoff = msg.getFloat(0);
// if (note.onoff != 0) note.onoff = 1;
Serial.println(hello.to_string());
}
// (2) --> /velocity
if (msg.fullMatch("/velocity", offset)) {
note.velocity = msg.getFloat(0);
}
// (3) --> /pitch
if (msg.fullMatch("/pitch", offset)) {
note.pitch = msg.getFloat(0);
}
// (4) --> /id
if (msg.fullMatch("/id", offset)) {
note.id = msg.getInt(0);
}
// (5) --> /x
if (msg.fullMatch("/x", offset)) {
note.x1 = msg.getFloat(0);
note.x2 = msg.getFloat(1);
note.x3 = msg.getFloat(2);
note.x4 = msg.getFloat(3);
note.ps = msg.getFloat(4);
//
// open => identify => use.
if (incomingData[0] == '[' && incomingData[len - 1] == ']' && len == (sizeof(Note) + 2)) {
Note note;
memcpy((uint8_t *) &note, incomingData + 1, sizeof(Note));
onNoteHandler(note);
//
Serial.println(note.to_string());
}
}
// - osc task
extern Task osc_task;
void osc()
{
//osc
OSCBundle bundleIN;
int size = Udp.parsePacket();
if (size > 0) {
Serial.println(size);
while (size--) {
bundleIN.fill(Udp.read());
}
if (!bundleIN.hasError()) {
// on '/note'
bundleIN.route("/note", route_note);
} else {
error = bundleIN.getError();
Serial.print("error: ");
Serial.println(error);
}
}
// on 'sent'
void onDataSent(uint8_t *mac, uint8_t sendStatus) {
char buff[256] = "";
sprintf(buff, "Delivery failed! -> %02X:%02X:%02X:%02X:%02X:%02X", mac[0], mac[1], mac[2], mac[3], mac[4], mac[5]);
if (sendStatus != 0) Serial.println(buff);
}
Task osc_task(1, TASK_FOREVER, &osc, &runner, false); // -> ENABLED, at start-up.
//*-*-*-*-*-*-*-*-*-*-*-*-*
//
void setup() {
@ -297,29 +237,6 @@ void setup() {
Serial.begin(115200);
delay(100);
//wifi
Serial.println();
Serial.println();
Serial.print("Connecting to ");
Serial.println(ssid);
WiFi.begin(ssid, pass);
while (WiFi.status() != WL_CONNECTED) {
delay(500);
Serial.print(".");
}
Serial.println("");
Serial.println("WiFi connected");
Serial.println("IP address: ");
Serial.println(WiFi.localIP());
Serial.println("Starting UDP");
Udp.begin(listening_port);
Serial.print("Local port: ");
Serial.println(Udp.localPort());
Udp.flush();
//start osc processing
osc_task.restartDelayed(10);
//info
Serial.println();
Serial.println();
@ -327,12 +244,36 @@ void setup() {
Serial.println("-");
Serial.println("- my id: " + String(MY_ID) + ", gid: " + String(MY_GROUP_ID) + ", call me ==> \"" + String(MY_SIGN) + "\"");
Serial.println("- mac address: " + WiFi.macAddress() + ", channel: " + String(WIFI_CHANNEL));
Serial.println("-");
//wifi - disabled
system_phy_set_max_tpw(0);
WiFiMode_t node_type = WIFI_STA;
WiFi.mode(node_type);
//esp-now
if (esp_now_init() != 0) {
Serial.println("Error initializing ESP-NOW");
return;
}
esp_now_set_self_role(ESP_NOW_ROLE_COMBO);
esp_now_register_send_cb(onDataSent);
esp_now_register_recv_cb(onDataReceive);
//
Serial.println("- ! (esp_now_add_peer) ==> add a 'broadcast peer' (FF:FF:FF:FF:FF:FF).");
uint8_t broadcastmac[6] = {0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF};
esp_now_add_peer(broadcastmac, ESP_NOW_ROLE_COMBO, 1, NULL, 0);
Serial.println("-");
Serial.println("\".-.-.-. :)\"");
Serial.println();
//random seed
randomSeed(analogRead(0));
//tasks
rest_task.restartDelayed(500);
rest2_task.restartDelayed(500);
}
void loop() {

172
faa_roller/test.log
View file

@ -1,172 +0,0 @@
with : Task osc_task(0, TASK_FOREVER, &osc, &runner, false);
( id=4001, pitch=0.00, velocity=96.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=98.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:98
156
( id=4001, pitch=0.00, velocity=99.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=1.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:1
156
( id=4001, pitch=0.00, velocity=2.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=4.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:4
156
( id=4001, pitch=0.00, velocity=5.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=7.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:7
156
( id=4001, pitch=0.00, velocity=8.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:8
156
( id=4001, pitch=0.00, velocity=9.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:9
156
( id=4001, pitch=0.00, velocity=10.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:10
156
( id=4001, pitch=0.00, velocity=11.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:11
156
( id=4001, pitch=0.00, velocity=12.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:12
156
( id=4001, pitch=0.00, velocity=13.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:13
156
( id=4001, pitch=0.00, velocity=14.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=16.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:16
156
( id=4001, pitch=0.00, velocity=17.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=19.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:19
156
( id=4001, pitch=0.00, velocity=20.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=22.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:22
156
( id=4001, pitch=0.00, velocity=23.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=25.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:25
156
( id=4001, pitch=0.00, velocity=26.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=28.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:28
156
( id=4001, pitch=0.00, velocity=29.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=31.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:31
156
( id=4001, pitch=0.00, velocity=33.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=35.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:35
156
( id=4001, pitch=0.00, velocity=36.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:36
156
( id=4001, pitch=0.00, velocity=37.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:37
156
( id=4001, pitch=0.00, velocity=38.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:38
156
( id=4001, pitch=0.00, velocity=39.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:39
156
( id=4001, pitch=0.00, velocity=40.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:40
156
( id=4001, pitch=0.00, velocity=41.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:41
156
( id=4001, pitch=0.00, velocity=42.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:42
156
( id=4001, pitch=0.00, velocity=43.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:43
156
( id=4001, pitch=0.00, velocity=44.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:44
156
( id=4001, pitch=0.00, velocity=44.00, onoff=0.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
(pio) doohoyi@Doohos-MacBook-Pro:~/Documents/Arduino/faa/faa_roller (wifi-interrupt
)$ arduino-cli compile && arduino-cli upload -v -p /dev/tty.SLAB_USBtoUART && pio device monitor -p /dev/tty.SLAB_USBtoUART -b 115200
with : Task osc_task(1, TASK_FOREVER, &osc, &runner, false);
156
( id=4001, pitch=0.00, velocity=45.00, onoff=0.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=46.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=48.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:48
156
( id=4001, pitch=0.00, velocity=50.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=52.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:52
156
( id=4001, pitch=0.00, velocity=53.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=55.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:55
156
( id=4001, pitch=0.00, velocity=56.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=58.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:58
156
( id=4001, pitch=0.00, velocity=59.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=61.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:61
156
( id=4001, pitch=0.00, velocity=62.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=64.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:64
156
( id=4001, pitch=0.00, velocity=65.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=67.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:67
156
( id=4001, pitch=0.00, velocity=68.00, onoff=1.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
156
( id=4001, pitch=0.00, velocity=69.00, onoff=0.00, x1=0.00, x2=0.00, x3=0.00, x4=0.00, ps=2000.00 )
set_speed:69
osc msg parsing is lost + sometimes, set_speed also doesn't fire.
- when no set_speed, subsequent 1-2-3 msg lost..
when i change scheduler speed slower. becomes worse. (loose more)
- then scheduling too slow?
- but then, why no set_speed? isn't it being streamed? (buffered?=saved?)
- at some cases, only set_speed doesn't fire. => msg. is there. but set_speed not.

2
faa_taak/faa_taak.ino
View file

@ -18,7 +18,7 @@
//============<identities>============
#define MY_GROUP_ID (1000)
#define MY_ID (MY_GROUP_ID + 1)
#define MY_ID (MY_GROUP_ID + 777)
#define MY_SIGN ("TAAK")
//============</identities>============

2
faa_taak/sketch.yaml Normal file
View file

@ -0,0 +1,2 @@
default_fqbn: esp8266:esp8266:nodemcuv2:baud=460800
default_port: /dev/tty.SLAB_USBtoUART

2
faa_tone/sketch.yaml Normal file
View file

@ -0,0 +1,2 @@
default_fqbn: esp8266:esp8266:nodemcuv2:baud=460800
default_port: /dev/tty.SLAB_USBtoUART

2
faa_volume/faa_volume.ino
View file

@ -18,7 +18,7 @@
//============<identities>============
#define MY_GROUP_ID (6000)
#define MY_ID (MY_GROUP_ID + 1)
#define MY_ID (MY_GROUP_ID + 3)
#define MY_SIGN ("VOLUME")
//============</identities>============

2
faa_volume/sketch.yaml Normal file
View file

@ -0,0 +1,2 @@
default_fqbn: esp8266:esp8266:nodemcuv2:baud=460800
default_port: /dev/tty.SLAB_USBtoUART

36
puredata/radio_spell_workshop/o.io.slipserial.pd Normal file
View file

@ -0,0 +1,36 @@
#N canvas 530 426 374 320 10;
#X obj 50 18 inlet;
#X obj 50 280 outlet;
#X obj 166 18 inlet;
#X obj 50 41 slipenc 65536;
#X obj 50 253 slipdec 65536;
#X msg 219 137 info;
#X obj 107 192 route open;
#X obj 166 41 t a a;
#X obj 219 93 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 170 266 outlet;
#X obj 50 104 spigot;
#X obj 154 120 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 166 64 route open devicename close;
#X obj 219 114 del 200;
#X obj 50 169 comport 99;
#X obj 226 266 outlet;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 10 0;
#X connect 4 0 1 0;
#X connect 5 0 14 0;
#X connect 6 0 9 0;
#X connect 6 0 11 0;
#X connect 6 1 15 0;
#X connect 7 0 12 0;
#X connect 7 1 14 0;
#X connect 8 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 10 1;
#X connect 12 0 8 0;
#X connect 12 1 8 0;
#X connect 12 2 8 0;
#X connect 13 0 5 0;
#X connect 14 0 4 0;
#X connect 14 1 6 0;

588
puredata/radio_spell_workshop/radio_chant.pd Normal file
View file

@ -0,0 +1,588 @@
#N canvas 0 427 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 0;
#X connect 1 0 5 0;
#X connect 1 1 33 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 57 0;
#X connect 18 1 58 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 10 0;
#X restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 426 450 451 guts 0;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 387 415 s NOTE;
#X msg 203 213 1777 12 20 0;
#X obj 19 358 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 392 0;
#X obj 33 415 v \$0-STATE;
#X obj 85 379 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 43 296 NOTE: so there is nothing to do \, except just changing STATE., f 17;
#X text 310 204 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 378 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 310 24 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 344 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 306 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#X obj 59 117 del 10000;
#X text 71 140 NOTE: how long this 'chant' happens? (in milliseconds), f 19;
#N canvas 698 126 450 300 NOTE 0;
#X msg 24 102 1777 12 20 0;
#X text 22 63 /id /pin# /ontime /onoff;
#X text 24 24 == what is 'taak' chant? ==;
#X text 22 141 if /ontime == 0 \, use /onoff to turn 'taak' pin# on & off;
#X text 22 174 if /ontime != 0 \, 'taak' pin# will be on for /ontime x 2 milliseconds. the /onoff will be ignored.;
#X restore 206 415 pd NOTE on 'taak';
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 0 16 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 16 0 6 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

640
puredata/radio_spell_workshop/radio_chant_roller.pd Normal file
View file

@ -0,0 +1,640 @@
#N canvas 4 44 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 0;
#X connect 1 0 5 0;
#X connect 1 1 33 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 57 0;
#X connect 18 1 58 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 10 0;
#X restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 44 1048 737 guts 0;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 141 425 s NOTE;
#X obj 19 638 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 672 0;
#X obj 33 695 v \$0-STATE;
#X obj 85 659 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 904 527 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 958 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 890 24 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 924 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 886 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#N canvas 698 126 450 439 NOTE 0;
#X text 24 24 == what is 'roller' chant? ==;
#X text 22 63 /id /motor# /speed /gostop;
#X msg 24 102 4001 0 500 1;
#X text 22 174 the /speed is rotation speed of the motor \, this is bi-directional it can be (+) or (-), f 66;
#X text 22 141 'roller' chant is using L9110 H-bridge which can drive 2 motors at the same time. /motor# can be 0 or 1 to choose between them., f 66;
#X obj 14 215 cnv 16 390 58 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 22 220 NOTE: if there is no fresh message for 3 seconds \, the motor will automatically stop. (for safety) so \, even though the speed value doesn't change \, the 'chant' need to send it repeatedly \, for example \, using [metro 1000] etc., f 62;
#X text 22 284 /gostop is about turn on/off the motors. 1 for go \, 0 for stop., f 66;
#X text 21 324 there is a hidden mode with /gostop == 2 this will schedule a 'pulse'-like activation. in this case \, it will automatically on and stay on for a duration of time(X1) \, and automatically goes off. send a number to [s X1] and then trigger [s NOTE] after then it will be packed and sent., f 65;
#X restore 546 695 pd NOTE on 'roller';
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-roller 100 float 3;
#A 0 0 0 0 0.142858 0.185716 0.214288 0.271432 0.300004 0.335719 0.371434 0.400007 0.428579 0.442865 0.442865 0.428579 0.414293 0.357148 0.300004 0.233336 0.166668 0.0999997 0.0571415 0.0142834 -0.0285747 -0.0714328 -0.114291 -0.157149 -0.200007 -0.242865 -0.285723 -0.328582 -0.367868 -0.407155 -0.446441 -0.485728 -0.507157 -0.528586 -0.535729 -0.542872 -0.542872 -0.542872 -0.542872 -0.542872 -0.542872 -0.521443 -0.500014 -0.44287 -0.414298 -0.385726 -0.342868 -0.300009 -0.242865 -0.185721 -0.128577 -0.0928619 -0.0571468 -0.0214317 0.0142834 0.0357125 0.0571415 0.0999997 0.128572 0.0857136 0.0571415 0.0071404 -0.0428607 -0.0642898 -0.0857189 -0.119053 -0.152387 -0.185721 -0.214293 -0.228579 -0.242865 -0.257151 -0.264294 -0.271437 -0.266675 -0.261913 -0.257151 -0.242865 -0.228579 -0.214293 -0.192864 -0.171435 -0.142863 -0.121434 -0.100005 -0.0785758 -0.0571468 -0.0285747 -2.6226e-06 0.0285695 0.0428555 0.0285695 -2.6226e-06 -0.0214317 -0.0428607 -0.0500038 -0.0571468;
#X coords 0 1 100 -1 200 140 1 0 0;
#X restore 827 198 graph;
#X obj 141 318 riff2_random;
#X text 370 320 <== make this with [riff2_random];
#X msg 334 282 4001 0 100 100 200;
#X text 370 360 <== right-click & 'help' to understand how to use this!;
#X obj 334 261 loadbang;
#X text 395 260 <== put a loadbang to 'autoload' following msg.;
#X obj 320 127 loadbang;
#X obj 320 169 f \$0;
#X msg 320 190 \$1-roller;
#X obj 320 148 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X msg 66 256 0;
#X text 72 205 a number 0 will stop, f 8;
#X text 126 585 NOTE: the 'riff' player will spit out anyway 'done' bang. simply use it., f 27;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-roller1 100 float 5;
#A 0 0 0.328571 0.328571 0.306494 0.284416 0.262338 0.240261 0.218183 0.196105 0.174028 0.15195 0.129872 0.107795 0.0857168 0.0636391 0.0415615 0.0194838 -0.00259392 -0.0246716 -0.0467493 -0.068827 -0.0909047 -0.112982 -0.13506 -0.157138 -0.179586 0.342857 0.285715 0.228573 0.189287 0.150002 0.110717 0.0714314 0.0321461 -0.00713921 -0.0464245 -0.0857098 -0.124995 -0.16428 -0.203566 -0.242851 -0.271422 -0.299993 -0.328564 -0.35535 -0.382135 -0.408921 0.414286 0.371429 0.328572 0.285716 0.242859 0.200002 0.157146 0.114289 0.0714322 0.0285755 -0.0142812 -0.0571379 -0.0999945 -0.137749 -0.175504 -0.213259 -0.251013 -0.288768 -0.326523 -0.364277 -0.402032 0.314286 0.257143 0.200001 0.142859 0.0857167 0.0285744 -0.0142823 -0.057139 -0.0999957 -0.142852 -0.185709 -0.228566 -0.271422 -0.314279 -0.357136 -0.442849 0 0.257143 0.157144 0.0571449 -0.042854 -0.151016 -0.259178 -0.36734 -0.475503 -0.583665 -0.691827 -0.799989 -0.857131 0 0 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 827 364 graph;
#X obj 438 656 s NOTE;
#X obj 438 549 riff2_random;
#X obj 631 492 loadbang;
#X obj 534 455 loadbang;
#X obj 534 497 f \$0;
#X obj 534 476 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X msg 534 518 \$1-roller1;
#X msg 631 513 4001 1 100 100 200;
#X msg 82 487 0;
#X obj 631 649 bng 16 250 50 0 empty empty empty 0 -8 0 10 #c7c6ff #000000 #000000;
#X text 653 649 <== you can choose which one will send out the 'done' bang \, since randomizing delay \, their bang timing will differ., f 43;
#X text 661 549 please note the second parameter 'key' is 1 instead of 0 \, which will change /motor# accordingly. so 1 means a second motor!, f 33;
#X connect 0 0 1 0;
#X connect 1 0 26 0;
#X connect 1 0 38 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 3 0 31 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 16 0 4 0;
#X connect 16 3 5 0;
#X connect 18 0 16 2;
#X connect 20 0 18 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 16 1;
#X connect 25 0 23 0;
#X connect 26 0 16 0;
#X connect 31 0 30 0;
#X connect 31 3 39 0;
#X connect 32 0 37 0;
#X connect 33 0 35 0;
#X connect 34 0 36 0;
#X connect 35 0 34 0;
#X connect 36 0 31 1;
#X connect 37 0 31 2;
#X connect 38 0 31 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

588
puredata/radio_spell_workshop/radio_chant_taak.pd Normal file
View file

@ -0,0 +1,588 @@
#N canvas 2 427 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 0;
#X connect 1 0 5 0;
#X connect 1 1 33 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 57 0;
#X connect 18 1 58 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 10 0;
#X restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 426 450 451 guts 1;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 387 415 s NOTE;
#X obj 19 358 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 392 0;
#X obj 33 415 v \$0-STATE;
#X obj 85 379 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 43 296 NOTE: so there is nothing to do \, except just changing STATE., f 17;
#X text 310 204 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 378 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 310 24 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 344 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 306 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#X obj 59 117 del 10000;
#X text 71 140 NOTE: how long this 'chant' happens? (in milliseconds), f 19;
#N canvas 229 55 450 300 NOTE 0;
#X msg 24 102 1777 12 20 0;
#X text 22 63 /id /pin# /ontime /onoff;
#X text 24 24 == what is 'taak' chant? ==;
#X text 22 141 if /ontime == 0 \, use /onoff to turn 'taak' pin# on & off;
#X text 22 174 if /ontime != 0 \, 'taak' pin# will be on for /ontime x 2 milliseconds. the /onoff will be ignored.;
#X restore 206 415 pd NOTE on 'taak';
#X msg 203 213 1778 12 20 0;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 18 0;
#X connect 3 0 15 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 15 0 5 0;
#X connect 18 0 4 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

588
puredata/radio_spell_workshop/radio_chant_taakx.pd Normal file
View file

@ -0,0 +1,588 @@
#N canvas 149 338 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 0;
#X connect 1 0 5 0;
#X connect 1 1 33 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 57 0;
#X connect 18 1 58 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 10 0;
#X restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 426 450 451 guts 1;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 387 415 s NOTE;
#X obj 19 358 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 392 0;
#X obj 33 415 v \$0-STATE;
#X obj 85 379 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 43 296 NOTE: so there is nothing to do \, except just changing STATE., f 17;
#X text 310 204 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 378 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 310 24 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w# 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 344 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 306 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#X text 71 140 NOTE: how long this 'chant' happens? (in milliseconds), f 19;
#N canvas 229 55 450 300 NOTE 0;
#X msg 24 102 1777 12 20 0;
#X text 22 63 /id /pin# /ontime /onoff;
#X text 24 24 == what is 'taak' chant? ==;
#X text 22 141 if /ontime == 0 \, use /onoff to turn 'taak' pin# on & off;
#X text 22 174 if /ontime != 0 \, 'taak' pin# will be on for /ontime x 2 milliseconds. the /onoff will be ignored.;
#X restore 206 415 pd NOTE on 'taak';
#X msg 203 213 4843 1 500 1;
#X obj 59 117 del 3000;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 17 0;
#X connect 3 0 18 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 17 0 4 0;
#X connect 18 0 5 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

178
puredata/radio_spell_workshop/radio_roller.pd Normal file
View file

@ -0,0 +1,178 @@
#N canvas 250 164 818 587 10;
#N canvas 294 82 697 282 radio 0;
#X obj 333 222 spigot;
#X obj 382 207 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 413 226 pd buildOSC for all;
#X obj 112 150 o.io.slipserial;
#X msg 319 157 devices;
#X msg 319 178 close;
#X obj 112 129 packOSC;
#X obj 112 84 r OSC;
#X obj 112 171 unpackOSC;
#X obj 112 226 routeOSC /hello;
#X obj 112 249 s HELLO;
#X obj 19 111 print OSC;
#X obj 19 84 spigot;
#X obj 68 69 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 249 s OSC;
#X obj 413 195 r NOTE;
#X obj 333 249 print NOTE;
#X text 414 174 /id /pitch /velocity /onoff;
#X floatatom 636 194 5 0 0 0 - - - 0;
#X obj 636 216 s PS;
#X obj 629 109 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 61 loadbang;
#X msg 629 82 1;
#X obj 629 136 sel 1;
#X obj 19 222 spigot;
#X obj 68 207 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 249 print HELLO;
#X text 165 63 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 157 2000;
#X obj 215 202 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 279 64 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 279 106 3 0 0 1 device\ id - - 0;
#X msg 279 126 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 166 print info(\$0), f 8;
#X obj 226 243 outlet;
#X obj 325 10 inlet;
#X obj 325 31 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 2 33 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 30 0;
#X restore 11 32 pd radio;
#X obj 11 53 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 10 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 321 168 s NOTE;
#X obj 321 114 tgl 16 0 empty empty start/stop 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X text 222 21 for example \, to send motor speed message to 'faa_roller';
#X msg 321 141 4001 0 500 \$1;
#X obj 461 168 s NOTE;
#X floatatom 461 115 5 -1000 1000 2 set\ speed - - 0;
#X msg 461 141 4001 0 \$1 1;
#X obj 606 346 s NOTE;
#X floatatom 651 238 5 -1000 1000 2 set\ speed - - 0;
#X obj 606 292 pack f f;
#X obj 606 215 tgl 16 0 empty empty start/stop 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 606 319 4001 0 \$2 \$1;
#X obj 651 258 t a b;
#X text 621 170 speed & on/off together;
#N canvas 0 22 450 278 (subpatch) 0;
#X array motion 100 float 3;
#A 0 0 -14.2857 14.2856 71.4282 99.9995 128.571 157.142 199.999 264.284 328.57 399.998 457.141 514.283 557.14 542.854 485.712 414.284 314.284 249.999 185.713 128.571 71.4282 28.5712 -14.2857 -57.1426 -90.4758 -123.809 -157.142 -228.57 -249.999 -271.427 -285.713 -299.999 -299.999 -314.284 -307.141 -299.999 -285.713 -271.427 -257.142 -242.856 -171.428 -138.095 -104.761 -71.4283 28.5712 99.9995 171.428 233.332 295.237 357.141 428.569 385.712 299.998 185.713 121.428 57.1425 -42.857 -78.5711 -114.285 -157.142 -171.428 -185.713 -185.713 -185.713 -178.571 -171.428 -157.142 -128.571 -121.428 -114.285 -99.9996 -85.7139 -64.2855 -42.857 -35.7142 -28.5714 -28.5714 -28.5714 -28.5714 -42.8571 -57.1427 -99.9996 -171.428 -214.285 -228.57 -242.856 -242.856 -242.856 -228.57 -228.57 -214.285 -199.999 -171.428 -157.142 -142.857 -128.571 -114.285 -99.9996 -85.714;
#X coords 0 1000 100 -1000 200 140 1 0 0;
#X restore 59 281 graph;
#X text 541 102 -(minus) value means reverse direction;
#X text 120 225 driving with a table is fun.;
#X obj 298 446 tabread motion;
#X obj 298 366 f;
#X obj 338 366 + 1;
#X obj 328 279 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 328 306 metro 300;
#X obj 328 327 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X floatatom 298 424 5 0 0 0 - - - 0;
#X floatatom 298 467 5 0 0 0 - - - 0;
#X obj 298 387 mod 100;
#X obj 444 387 s NOTE;
#X floatatom 444 334 5 -1000 1000 2 set\ speed - - 0;
#X msg 444 360 4001 0 \$1 1;
#X text 48 163 /device_id /motor_id /speed /onoff;
#X msg 49 141 4001 0 500 \$1;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 15 0 12 1;
#X connect 15 1 12 0;
#X connect 20 0 27 0;
#X connect 21 0 22 0;
#X connect 21 0 28 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 21 0;
#X connect 26 0 20 0;
#X connect 27 0 30 0;
#X connect 28 0 26 0;
#X connect 30 0 31 0;
#X connect 31 0 29 0;

131
puredata/radio_spell_workshop/radio_spell_scratch.pd Normal file
View file

@ -0,0 +1,131 @@
#N canvas 813 23 626 779 10;
#N canvas 264 376 692 351 radio 0;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 258 98 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 2 33 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 5 0;
#X connect 37 1 30 0;
#X restore 11 52 pd radio;
#X obj 11 73 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 31 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X text 418 248 input chants;
#X text 197 265 many different objects;
#X obj 409 7 world universe;
#X obj 103 399 radio_chant_taak;
#A saved whistler universe 0.3 0.5 0.6 -0.4;
#X obj 261 571 radio_chant_roller;
#A saved dandelion universe 0.4 0.6 0.5 -0.4;
#X connect 0 0 1 0;
#X connect 2 0 0 0;

534
puredata/radio_spell_workshop/radio_spell_start.pd Normal file
View file

@ -0,0 +1,534 @@
#N canvas 0 33 1440 803 10;
#N canvas 264 376 692 351 radio 0;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 1;
#X msg 258 98 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 2 32 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 33 0;
#X connect 30 0 31 0;
#X connect 31 0 3 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 5 0;
#X connect 36 1 37 0;
#X connect 37 0 3 1;
#X restore 11 52 pd radio;
#X obj 11 73 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 31 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 645 81 s NOTE;
#X obj 645 21 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X text 667 25 /id /pitch /velocity /onoff;
#X floatatom 371 742 5 0 0 0 - - - 0;
#X obj 365 797 s NOTE;
#X obj 370 721 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 408 15 world universe;
#X obj 1401 768 s NOTE;
#X floatatom 1621 239 5 0 0 0 - - - 0;
#X floatatom 1622 283 5 0 0 0 - - - 0;
#X floatatom 1625 344 5 0 0 0 - - - 0;
#X obj 1626 375 vsl 16 136 -1000 1000 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 1625 322 rescale -100 100;
#X floatatom 1671 297 5 0 0 0 - - - 0;
#X floatatom 1718 300 5 0 0 0 - - - 0;
#X text 1259 124 stick;
#X text 369 178 pineapple;
#X obj 1308 282 unpack f f f f;
#X floatatom 1308 304 5 0 0 0 - - - 0;
#X obj 1308 324 / 1024;
#X floatatom 1362 303 5 0 0 0 - - - 0;
#X obj 371 346 unpack f f f f;
#X floatatom 371 368 5 0 0 0 - - - 0;
#X obj 371 388 / 1024;
#X floatatom 371 411 5 0 0 0 - - - 0;
#X floatatom 425 367 5 0 0 0 - - - 0;
#X obj 1621 262 lfo -sin, f 15;
#X obj 1432 433 del 5000;
#X obj 1432 404 t b b;
#X msg 1505 432 1;
#X msg 1432 461 0;
#X obj 1399 586 spigot;
#X obj 1432 542 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 1402 673 5 0 0 0 - - - 0;
#X obj 1402 693 skip 100;
#X floatatom 1402 714 5 0 0 0 - - - 0;
#X obj 1783 251 vsl 16 136 0 1000 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 1783 397 5 0 0 0 - - - 0;
#X obj 1553 415 * -1;
#X obj 1670 115 metro 300;
#X obj 1670 157 * 0.1;
#X floatatom 1670 178 5 0 0 0 - - - 0;
#X obj 1670 74 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 1670 198 + 1.5;
#X floatatom 1670 219 5 0 0 0 - - - 0;
#X obj 1669 48 loadbang;
#X obj 1670 136 random 5;
#X floatatom 1357 226 10 0 0 0 - - - 16;
#X floatatom 398 293 10 0 0 0 - - - 16;
#X obj 370 325 route;
#X obj 1307 261 route;
#X text 925 54 6001 -> blow 6002 -> stick sensor 6003 -> outside;
#X obj 228 217 vradio 16 1 0 3 WIND1 empty Select\ wind 0 -8 0 10 #faff00 #000000 #000000 0;
#X obj 468 220 vradio 16 1 0 3 WIND2 empty Select\ wind 0 -8 0 10 #faff00 #000000 #000000 0;
#X obj 723 219 vradio 16 1 0 3 WIND3 empty Select\ wind 0 -8 0 10 #faff00 #000000 #000000 0;
#X obj 1357 196 + 6001;
#X obj 399 265 + 6001;
#X obj 936 221 vradio 16 1 0 3 WIND4 empty Select\ wind 0 -8 0 10 #faff00 #000000 #000000 0;
#X obj 1261 158 r HELLO;
#X obj 377 206 r HELLO;
#X text 923 27 H&D : 4201 4401 4843 4357;
#X floatatom 131 742 5 0 0 0 - - - 0;
#X obj 125 797 s NOTE;
#X obj 130 721 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X text 129 178 pineapple;
#X obj 131 346 unpack f f f f;
#X floatatom 131 368 5 0 0 0 - - - 0;
#X obj 131 388 / 1024;
#X floatatom 131 411 5 0 0 0 - - - 0;
#X floatatom 185 367 5 0 0 0 - - - 0;
#X floatatom 158 293 10 0 0 0 - - - 16;
#X obj 130 325 route;
#X obj 159 265 + 6001;
#X obj 137 206 r HELLO;
#X floatatom 841 742 5 0 0 0 - - - 0;
#X obj 835 797 s NOTE;
#X obj 840 721 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X text 839 178 pineapple;
#X obj 841 346 unpack f f f f;
#X floatatom 841 368 5 0 0 0 - - - 0;
#X obj 841 388 / 1024;
#X floatatom 841 411 5 0 0 0 - - - 0;
#X floatatom 895 367 5 0 0 0 - - - 0;
#X obj 841 644 change;
#X obj 841 665 sel 1 0;
#X obj 841 686 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X floatatom 868 293 10 0 0 0 - - - 16;
#X obj 840 325 route;
#X obj 869 265 + 6001;
#X obj 847 206 r HELLO;
#X floatatom 621 742 5 0 0 0 - - - 0;
#X obj 615 797 s NOTE;
#X obj 620 721 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X text 619 178 pineapple;
#X obj 621 346 unpack f f f f;
#X floatatom 621 368 5 0 0 0 - - - 0;
#X obj 621 388 / 1024;
#X floatatom 675 367 5 0 0 0 - - - 0;
#X floatatom 648 293 10 0 0 0 - - - 16;
#X obj 620 325 route;
#X obj 649 265 + 6001;
#X obj 651 243 r WIND3;
#X obj 627 206 r HELLO;
#X obj 161 243 r WIND1;
#X obj 401 243 r WIND2;
#X obj 871 243 r WIND4;
#X text 923 87 teens : 4567 4676 4881 4787;
#X msg 128 770 4567 0 \$1 1;
#X msg 210 768 4567 0 0 0, f 11;
#X msg 368 760 4676 0 \$1 1;
#X msg 450 758 4676 0 0 0, f 11;
#X msg 618 760 4881 0 \$1 1;
#X msg 700 758 4881 0 0 0, f 11;
#X msg 838 760 4787 1 \$1 1;
#X msg 920 758 4787 1 0 0, f 11;
#X text 1413 176 <=== WIND # check?;
#X text 986 260 DISCONNECTED;
#X obj 862 463 f;
#X obj 841 486 -;
#X obj 841 437 t a a b;
#X obj 841 509 abs;
#X obj 841 532 * 10;
#X floatatom 841 555 5 0 0 0 - - - 0;
#X obj 841 582 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 841 620 > 0.2;
#X obj 371 641 change;
#X obj 371 662 sel 1 0;
#X obj 371 683 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 392 460 f;
#X obj 371 483 -;
#X obj 371 434 t a a b;
#X obj 371 506 abs;
#X obj 371 529 * 10;
#X floatatom 371 552 5 0 0 0 - - - 0;
#X obj 371 579 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 371 617 > 0.2;
#X obj 131 640 change;
#X obj 131 661 sel 1 0;
#X obj 128 685 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 152 459 f;
#X obj 131 482 -;
#X obj 131 433 t a a b;
#X obj 131 505 abs;
#X obj 131 528 * 10;
#X floatatom 131 551 5 0 0 0 - - - 0;
#X obj 131 578 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 131 616 > 0.2;
#X obj 621 640 change;
#X obj 621 661 sel 1 0;
#X obj 621 682 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 642 459 f;
#X obj 621 482 -;
#X obj 621 433 t a a b;
#X obj 621 505 abs;
#X obj 621 528 * 10;
#X floatatom 621 551 5 0 0 0 - - - 0;
#X obj 621 578 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 621 616 > 0.2;
#X floatatom 621 411 5 0 0 0 - - - 0;
#X obj 1136 221 vradio 16 1 0 3 WIND5 empty Select\ wind 0 -8 0 10 #faff00 #000000 #000000 0;
#X floatatom 1041 742 5 0 0 0 - - - 0;
#X obj 1035 797 s NOTE;
#X obj 1040 721 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X text 1039 178 pineapple;
#X obj 1041 346 unpack f f f f;
#X floatatom 1041 368 5 0 0 0 - - - 0;
#X obj 1041 388 / 1024;
#X floatatom 1041 411 5 0 0 0 - - - 0;
#X floatatom 1095 367 5 0 0 0 - - - 0;
#X obj 1041 644 change;
#X obj 1041 665 sel 1 0;
#X obj 1041 686 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X floatatom 1068 293 10 0 0 0 - - - 16;
#X obj 1040 325 route;
#X obj 1069 265 + 6001;
#X obj 1047 206 r HELLO;
#X obj 1062 463 f;
#X obj 1041 486 -;
#X obj 1041 437 t a a b;
#X obj 1041 509 abs;
#X obj 1041 532 * 10;
#X floatatom 1041 555 5 0 0 0 - - - 0;
#X obj 1041 582 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 1041 620 > 0.2;
#X msg 1038 760 4888 0 \$1 1;
#X msg 1120 758 4888 0 0 0, f 11;
#X msg 1400 737 4888 0 \$1 1;
#X msg 1476 736 4888 0 0 0;
#X obj 1071 243 r WIND5;
#X obj 1359 174 r WIND5;
#X floatatom 1308 355 5 0 0 0 - - - 0;
#X obj 1308 588 change;
#X obj 1308 609 sel 1 0;
#X obj 1308 630 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 1329 407 f;
#X obj 1308 430 -;
#X obj 1308 381 t a a b;
#X obj 1308 453 abs;
#X obj 1308 476 * 10;
#X floatatom 1308 499 5 0 0 0 - - - 0;
#X obj 1308 526 vsl 18 30 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 1308 564 > 0.2;
#X floatatom 1750 93 5 0 0 0 - - - 0;
#X floatatom 1476 294 5 0 0 0 - - - 0;
#X obj 1476 271 * 3;
#X msg 48 770 4567 1 \$1 1;
#X msg 645 52 4810 0 500 1;
#X text -36 -49 ___;
#X text 1153 -31 // ... libraries in use: comport \, osc \, slip \, else ... //;
#X text 362 -32 // ... at 2024-09-24 \, with ... Hackers & Designers \, dianaband \, Heeju and forest all around us. //, f 108;
#X text 12 -23 // + Sound From Earth @ bottle factory \, Seoul + //;
#X obj 1076 323 cnv 18 100 22 empty empty empty 20 12 0 10 #ffc7c6 #404040 0;
#X text 1079 325 <=== NOT in USE;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 4 0 209 0;
#X connect 6 0 112 0;
#X connect 8 0 6 0;
#X connect 11 0 29 0;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 34 0;
#X connect 15 0 13 0;
#X connect 16 0 15 1;
#X connect 17 0 15 2;
#X connect 20 1 21 0;
#X connect 20 2 23 0;
#X connect 21 0 22 0;
#X connect 22 0 193 0;
#X connect 24 1 25 0;
#X connect 24 2 28 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 27 0 133 0;
#X connect 29 0 12 0;
#X connect 30 0 33 0;
#X connect 31 0 30 0;
#X connect 31 1 32 0;
#X connect 32 0 35 0;
#X connect 33 0 35 0;
#X connect 34 0 36 0;
#X connect 35 0 34 1;
#X connect 36 0 37 0;
#X connect 37 0 38 0;
#X connect 38 0 189 0;
#X connect 39 0 40 0;
#X connect 40 0 41 0;
#X connect 40 0 17 0;
#X connect 41 0 16 0;
#X connect 42 0 49 0;
#X connect 43 0 44 0;
#X connect 44 0 46 0;
#X connect 45 0 42 0;
#X connect 46 0 47 0;
#X connect 47 0 11 0;
#X connect 48 0 45 0;
#X connect 49 0 43 0;
#X connect 50 0 53 1;
#X connect 51 0 52 1;
#X connect 52 0 24 0;
#X connect 53 0 20 0;
#X connect 58 0 50 0;
#X connect 59 0 51 0;
#X connect 61 0 53 0;
#X connect 62 0 52 0;
#X connect 64 0 110 0;
#X connect 64 0 208 0;
#X connect 66 0 64 0;
#X connect 68 1 69 0;
#X connect 68 2 72 0;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 71 0 144 0;
#X connect 73 0 74 1;
#X connect 74 0 68 0;
#X connect 75 0 73 0;
#X connect 76 0 74 0;
#X connect 77 0 116 0;
#X connect 79 0 77 0;
#X connect 81 1 82 0;
#X connect 81 2 85 0;
#X connect 82 0 83 0;
#X connect 83 0 84 0;
#X connect 84 0 122 0;
#X connect 86 0 87 0;
#X connect 87 0 88 0;
#X connect 88 0 79 0;
#X connect 89 0 90 1;
#X connect 90 0 81 0;
#X connect 91 0 89 0;
#X connect 92 0 90 0;
#X connect 93 0 114 0;
#X connect 95 0 93 0;
#X connect 97 1 98 0;
#X connect 97 2 100 0;
#X connect 98 0 99 0;
#X connect 99 0 161 0;
#X connect 101 0 102 1;
#X connect 102 0 97 0;
#X connect 103 0 101 0;
#X connect 104 0 103 0;
#X connect 105 0 102 0;
#X connect 106 0 75 0;
#X connect 107 0 59 0;
#X connect 108 0 91 0;
#X connect 110 0 65 0;
#X connect 111 0 65 0;
#X connect 112 0 7 0;
#X connect 113 0 7 0;
#X connect 114 0 94 0;
#X connect 115 0 94 0;
#X connect 116 0 78 0;
#X connect 117 0 78 0;
#X connect 120 0 121 1;
#X connect 121 0 123 0;
#X connect 122 0 121 0;
#X connect 122 1 120 1;
#X connect 122 2 120 0;
#X connect 123 0 124 0;
#X connect 124 0 125 0;
#X connect 125 0 126 0;
#X connect 126 0 127 0;
#X connect 127 0 86 0;
#X connect 128 0 129 0;
#X connect 129 0 130 0;
#X connect 130 0 8 0;
#X connect 131 0 132 1;
#X connect 132 0 134 0;
#X connect 133 0 132 0;
#X connect 133 1 131 1;
#X connect 133 2 131 0;
#X connect 134 0 135 0;
#X connect 135 0 136 0;
#X connect 136 0 137 0;
#X connect 137 0 138 0;
#X connect 138 0 128 0;
#X connect 139 0 140 0;
#X connect 140 0 141 0;
#X connect 141 0 66 0;
#X connect 142 0 143 1;
#X connect 143 0 145 0;
#X connect 144 0 143 0;
#X connect 144 1 142 1;
#X connect 144 2 142 0;
#X connect 145 0 146 0;
#X connect 146 0 147 0;
#X connect 147 0 148 0;
#X connect 148 0 149 0;
#X connect 149 0 139 0;
#X connect 150 0 151 0;
#X connect 151 0 152 0;
#X connect 152 0 95 0;
#X connect 153 0 154 1;
#X connect 154 0 156 0;
#X connect 155 0 154 0;
#X connect 155 1 153 1;
#X connect 155 2 153 0;
#X connect 156 0 157 0;
#X connect 157 0 158 0;
#X connect 158 0 159 0;
#X connect 159 0 160 0;
#X connect 160 0 150 0;
#X connect 161 0 155 0;
#X connect 163 0 187 0;
#X connect 165 0 163 0;
#X connect 167 1 168 0;
#X connect 167 2 171 0;
#X connect 168 0 169 0;
#X connect 169 0 170 0;
#X connect 170 0 181 0;
#X connect 172 0 173 0;
#X connect 173 0 174 0;
#X connect 174 0 165 0;
#X connect 175 0 176 1;
#X connect 176 0 167 0;
#X connect 177 0 175 0;
#X connect 179 0 180 1;
#X connect 180 0 182 0;
#X connect 181 0 180 0;
#X connect 181 1 179 1;
#X connect 181 2 179 0;
#X connect 182 0 183 0;
#X connect 183 0 184 0;
#X connect 184 0 185 0;
#X connect 185 0 186 0;
#X connect 186 0 172 0;
#X connect 187 0 164 0;
#X connect 188 0 164 0;
#X connect 189 0 10 0;
#X connect 190 0 10 0;
#X connect 191 0 177 0;
#X connect 192 0 58 0;
#X connect 193 0 199 0;
#X connect 193 0 207 0;
#X connect 194 0 195 0;
#X connect 195 0 196 0;
#X connect 196 0 31 0;
#X connect 197 0 198 1;
#X connect 198 0 200 0;
#X connect 199 0 198 0;
#X connect 199 1 197 1;
#X connect 199 2 197 0;
#X connect 200 0 201 0;
#X connect 201 0 202 0;
#X connect 202 0 203 0;
#X connect 203 0 204 0;
#X connect 204 0 194 0;
#X connect 205 0 49 1;
#X connect 206 0 46 1;
#X connect 207 0 206 0;
#X connect 208 0 65 0;
#X connect 209 0 3 0;

1043
puredata/radio_spell_workshop/radio_spell_start2.pd Normal file
View file

File diff suppressed because it is too large Load diff

967
puredata/radio_spell_workshop/radio_spell_start_sensor.pd Normal file
View file

@ -0,0 +1,967 @@
#N canvas 584 44 919 953 10;
#N canvas 54 581 692 351 radio 1;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 258 98 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 2 33 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 5 0;
#X connect 37 1 30 0;
#X restore 11 52 pd radio;
#X obj 11 73 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 31 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 409 7 world universe;
#X obj 86 238 r HELLO;
#X obj 132 331 unpack f f f f;
#X floatatom 132 364 5 0 0 0 - - - 0;
#X obj 132 384 / 1024;
#X obj 160 405 - 0.5;
#X obj 160 426 * 2;
#X floatatom 132 447 5 0 0 0 - - - 0;
#X obj 133 500 vsl 16 136 0 1 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 179 464 * 1000;
#X obj 179 485 + 300;
#X floatatom 179 506 5 0 0 0 - - - 0;
#X obj 301 454 osc~;
#X obj 306 499 *~;
#X floatatom 345 476 5 0 0 0 - - - 0;
#X obj 345 441 loadbang;
#X obj 306 540 dac~;
#X obj 502 466 s NOTE;
#X obj 516 389 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 506 427 6666 1 100 100;
#X obj 51 352 print;
#X floatatom 212 371 5 0 0 0 - - - 0;
#X text 528 410 /id /pitch /velocity /onoff;
#X obj 387 200 radio_chant_taak;
#A saved resonant1 universe 0 0 0 0;
#X obj 475 669 s NOTE;
#X text 501 613 /id /pitch /velocity /onoff;
#X obj 567 675 print;
#X obj 479 630 pack f 12 100 0;
#X obj 87 286 route;
#X obj 137 58 select_wind;
#X obj 185 565 noise~;
#X obj 206 841 dac~;
#X obj 187 595 lop~ 200;
#X obj 169 655 *~ f;
#X obj 83 598 pow 2;
#X floatatom 256 593 5 0 0 0 - - - 0;
#X obj 322 586 hsl 128 15 0 1 0 1 empty empty 'roomsize' 20 8 0 10 #fcfcfc #fc8000 #000000 2758 0;
#X obj 337 629 hsl 128 15 0 2 0 1 empty empty damp 20 8 0 10 #fcfcfc #fc8000 #000000 2247 0;
#X floatatom 328 607 5 0 0 0 - - - 0;
#X floatatom 343 649 5 0 0 0 - - - 0;
#X obj 364 722 hsl 128 15 0 1 0 1 empty empty wet 20 8 0 10 #fcfcfc #fc8000 #000000 2700 0;
#X obj 352 672 hsl 128 15 0 1 0 1 empty empty dry 20 8 0 10 #fcfcfc #fc8000 #000000 2900 0;
#X floatatom 378 745 5 0 0 0 - - - 0;
#X floatatom 357 696 5 0 0 0 - - - 0;
#N canvas 92 310 634 321 vfreeverb~ 0;
#N canvas 261 41 778 367 combfilters-left1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 61 141 delread~ \$0-comb1left;
#X obj 246 142 delread~ \$0-comb2left;
#X obj 429 141 delread~ \$0-comb3left;
#X obj 610 141 delread~ \$0-comb4left;
#X obj 46 268 delwrite~ \$0-comb1left 100;
#X obj 231 268 delwrite~ \$0-comb2left 100;
#X obj 414 267 delwrite~ \$0-comb3left 100;
#X obj 595 267 delwrite~ \$0-comb4left 100;
#X obj 61 97 r \$0-comb1left;
#X obj 246 97 r \$0-comb2left;
#X obj 429 95 r \$0-comb3left;
#X obj 610 96 r \$0-comb4left;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - - 0;
#X floatatom 255 121 5 0 0 0 - - - 0;
#X floatatom 439 119 5 0 0 0 - - - 0;
#X floatatom 622 121 5 0 0 0 - - - 0;
#X obj 279 58 clip 0 0.99;
#X obj 279 29 r \$0-room;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 17 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 19 0;
#X connect 12 0 2 0;
#X connect 12 0 29 0;
#X connect 13 0 5 0;
#X connect 13 0 29 0;
#X connect 14 0 7 0;
#X connect 14 0 29 0;
#X connect 15 0 10 0;
#X connect 15 0 29 0;
#X connect 20 0 12 0;
#X connect 20 0 30 0;
#X connect 21 0 13 0;
#X connect 21 0 31 0;
#X connect 22 0 14 0;
#X connect 22 0 32 0;
#X connect 23 0 15 0;
#X connect 23 0 33 0;
#X connect 24 0 2 1;
#X connect 25 0 5 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 28 0 0 0;
#X connect 28 0 3 0;
#X connect 28 0 8 0;
#X connect 28 0 11 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 15 100 pd combfilters-left1;
#N canvas 27 56 358 650 diffusor-left 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - - 0;
#X floatatom 246 203 5 0 0 0 - - - 0;
#X floatatom 280 334 5 0 0 0 - - - 0;
#X floatatom 304 464 5 0 0 0 - - - 0;
#X obj 51 53 r \$0-allpass1left;
#X obj 51 80 delread~ \$0-allpass1left;
#X obj 36 158 delwrite~ \$0-allpass1left 40;
#X obj 81 186 r \$0-allpass2left;
#X obj 81 211 delread~ \$0-allpass2left;
#X obj 66 290 delwrite~ \$0-allpass2left 40;
#X obj 111 317 r \$0-allpass3left;
#X obj 111 341 delread~ \$0-allpass3left;
#X obj 96 420 delwrite~ \$0-allpass3left 40;
#X obj 141 447 r \$0-allpass4left;
#X obj 141 471 delread~ \$0-allpass4left;
#X obj 126 550 delwrite~ \$0-allpass4left 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 15 168 pd diffusor-left;
#N canvas 312 366 778 367 combfilters-left2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X obj 61 90 r \$0-comb5left;
#X obj 61 141 delread~ \$0-comb5left;
#X obj 46 268 delwrite~ \$0-comb5left 100;
#X obj 246 90 r \$0-comb6left;
#X obj 246 142 delread~ \$0-comb6left;
#X obj 231 268 delwrite~ \$0-comb6left 100;
#X obj 429 88 r \$0-comb7left;
#X obj 429 141 delread~ \$0-comb7left;
#X obj 414 267 delwrite~ \$0-comb7left 100;
#X obj 610 89 r \$0-comb8left;
#X obj 610 141 delread~ \$0-comb8left;
#X obj 595 267 delwrite~ \$0-comb8left 100;
#X floatatom 70 116 5 0 0 0 - - - 0;
#X floatatom 261 118 5 0 0 0 - - - 0;
#X floatatom 440 117 5 0 0 0 - - - 0;
#X floatatom 620 116 5 0 0 0 - - - 0;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 20 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 23 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 26 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 29 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 18 0 19 0;
#X connect 18 0 30 0;
#X connect 19 0 2 0;
#X connect 19 0 17 0;
#X connect 21 0 22 0;
#X connect 21 0 31 0;
#X connect 22 0 5 0;
#X connect 22 0 17 0;
#X connect 24 0 25 0;
#X connect 24 0 32 0;
#X connect 25 0 7 0;
#X connect 25 0 17 0;
#X connect 27 0 28 0;
#X connect 27 0 33 0;
#X connect 28 0 10 0;
#X connect 28 0 17 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 36 134 pd combfilters-left2;
#N canvas 261 41 778 367 combfilters-right1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - - 0;
#X floatatom 255 121 5 0 0 0 - - - 0;
#X floatatom 439 119 5 0 0 0 - - - 0;
#X floatatom 622 121 5 0 0 0 - - - 0;
#X obj 61 141 delread~ \$0-comb1right;
#X obj 246 142 delread~ \$0-comb2right;
#X obj 429 141 delread~ \$0-comb3right;
#X obj 610 141 delread~ \$0-comb4right;
#X obj 61 97 r \$0-comb1right;
#X obj 246 97 r \$0-comb2right;
#X obj 429 95 r \$0-comb3right;
#X obj 610 97 r \$0-comb4right;
#X obj 46 268 delwrite~ \$0-comb1right 100;
#X obj 231 268 delwrite~ \$0-comb2right 100;
#X obj 414 267 delwrite~ \$0-comb3right 100;
#X obj 595 267 delwrite~ \$0-comb4right 100;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 30 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 31 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 32 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 33 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 2 0;
#X connect 22 0 17 0;
#X connect 23 0 5 0;
#X connect 23 0 17 0;
#X connect 24 0 7 0;
#X connect 24 0 17 0;
#X connect 25 0 10 0;
#X connect 25 0 17 0;
#X connect 26 0 18 0;
#X connect 26 0 22 0;
#X connect 27 0 19 0;
#X connect 27 0 23 0;
#X connect 28 0 20 0;
#X connect 28 0 24 0;
#X connect 29 0 21 0;
#X connect 29 0 25 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 208 99 pd combfilters-right1;
#N canvas 312 366 778 367 combfilters-right2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 116 5 0 0 0 - - - 0;
#X floatatom 261 118 5 0 0 0 - - - 0;
#X floatatom 440 117 5 0 0 0 - - - 0;
#X floatatom 620 116 5 0 0 0 - - - 0;
#X obj 279 58 clip 0 0.99;
#X obj 61 90 r \$0-comb5right;
#X obj 246 90 r \$0-comb6right;
#X obj 429 88 r \$0-comb7right;
#X obj 610 89 r \$0-comb8right;
#X obj 61 141 delread~ \$0-comb5right;
#X obj 246 142 delread~ \$0-comb6right;
#X obj 429 141 delread~ \$0-comb7right;
#X obj 610 141 delread~ \$0-comb8right;
#X obj 46 268 delwrite~ \$0-comb5right 100;
#X obj 231 268 delwrite~ \$0-comb6right 100;
#X obj 414 267 delwrite~ \$0-comb7right 100;
#X obj 595 267 delwrite~ \$0-comb8right 100;
#X obj 279 28 r \$0-room;
#X connect 0 0 31 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 32 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 33 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 34 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 1 1;
#X connect 22 0 4 1;
#X connect 22 0 6 1;
#X connect 22 0 9 1;
#X connect 23 0 18 0;
#X connect 23 0 27 0;
#X connect 24 0 19 0;
#X connect 24 0 28 0;
#X connect 25 0 20 0;
#X connect 25 0 29 0;
#X connect 26 0 21 0;
#X connect 26 0 30 0;
#X connect 27 0 2 0;
#X connect 27 0 17 0;
#X connect 28 0 5 0;
#X connect 28 0 17 0;
#X connect 29 0 7 0;
#X connect 29 0 17 0;
#X connect 30 0 10 0;
#X connect 30 0 17 0;
#X connect 35 0 22 0;
#X restore 225 133 pd combfilters-right2;
#N canvas 27 56 358 650 diffusor-right 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - - 0;
#X floatatom 244 203 5 0 0 0 - - - 0;
#X floatatom 280 334 5 0 0 0 - - - 0;
#X floatatom 304 464 5 0 0 0 - - - 0;
#X obj 51 53 r \$0-allpass1right;
#X obj 51 80 delread~ \$0-allpass1right;
#X obj 36 158 delwrite~ \$0-allpass1right 40;
#X obj 81 186 r \$0-allpass2right;
#X obj 81 211 delread~ \$0-allpass2right;
#X obj 66 290 delwrite~ \$0-allpass2right 40;
#X obj 111 317 r \$0-allpass3right;
#X obj 111 341 delread~ \$0-allpass3right;
#X obj 96 420 delwrite~ \$0-allpass3right 40;
#X obj 141 447 r \$0-allpass4right;
#X obj 141 471 delread~ \$0-allpass4right;
#X obj 126 550 delwrite~ \$0-allpass4right 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 208 169 pd diffusor-right;
#X obj 208 61 *~ 0.015;
#X obj 15 226 *~ 1;
#X obj 208 228 *~ 1;
#X obj 94 228 *~ 1;
#X obj 169 228 *~ 1;
#X obj 115 202 r \$0-dry;
#X obj 229 203 r \$0-wet;
#X obj 36 201 r \$0-wet;
#X obj 94 14 inlet~;
#X obj 208 14 inlet~;
#X obj 15 268 outlet~;
#X obj 169 269 outlet~;
#X obj 312 14 inlet;
#X obj 374 14 inlet;
#X obj 462 14 inlet;
#X obj 544 16 inlet;
#N canvas 0 22 207 207 room 0;
#X obj 32 35 inlet;
#X obj 32 63 * 0.28;
#X obj 32 94 + 0.7;
#X obj 32 160 outlet;
#X text 80 65 scaleroom;
#X text 76 94 offsetroom;
#X obj 47 126 s \$0-room;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X restore 312 45 pd room;
#N canvas 684 169 244 376 frequency 0;
#X obj 60 222 samplerate~;
#X obj 33 8 inlet;
#X obj 33 194 t f b;
#X obj 33 249 *;
#X obj 53 303 s \$0-frequency;
#X obj 33 327 outlet;
#X obj 33 64 * 0.4;
#X text 76 66 scaledamp;
#X obj 33 38 clip 0 2;
#X obj 33 90 t b f;
#X obj 33 141 -;
#X msg 33 116 1;
#X obj 33 168 abs;
#X obj 33 275 * 0.5;
#X text 153 303 for [lop~];
#X connect 0 0 3 1;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 2 1 0 0;
#X connect 3 0 13 0;
#X connect 6 0 9 0;
#X connect 8 0 6 0;
#X connect 9 0 11 0;
#X connect 9 1 10 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 13 0 5 0;
#X connect 13 0 4 0;
#X restore 374 45 pd frequency;
#N canvas 0 22 170 187 scalewet 0;
#X obj 22 42 inlet;
#X obj 22 143 outlet;
#X obj 22 73 * 3;
#X text 49 74 scalewet;
#X obj 40 112 s \$0-wet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X restore 544 45 pd scalewet;
#N canvas 0 22 220 198 scaledry 0;
#X obj 32 74 * 2;
#X obj 32 40 inlet;
#X obj 32 141 outlet;
#X text 58 75 scaledry;
#X obj 41 105 s \$0-dry;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X restore 462 45 pd scaledry;
#X floatatom 312 70 5 0 0 0 - - - 0;
#X floatatom 374 70 10 0 0 0 - - - 0;
#X floatatom 462 69 5 0 0 0 - - - 0;
#X floatatom 544 69 5 0 0 0 - - - 0;
#N canvas 405 27 635 684 tuning 0;
#X msg 332 81 1139 \, 1211 \, 1300 \, 1379 \, 1445 \, 1514 \, 1580 \, 1640;
#X text 72 57 combfilter tunings left;
#X text 377 56 combfilter tunings right;
#X text 71 360 allpass tunings left;
#X text 383 355 allpass tunings right;
#N canvas 243 170 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 107 pd sampstoms;
#X msg 30 82 1116 \, 1188 \, 1277 \, 1356 \, 1422 \, 1491 \, 1557 \, 1617;
#X obj 57 188 +;
#X msg 57 159 1;
#X obj 30 135 t f b;
#X obj 87 188 f;
#X obj 30 56 t b b;
#X msg 87 159 0;
#X obj 57 212 pack f \$0;
#X msg 57 238 \$2-comb\$1left;
#X obj 30 282 s;
#X obj 57 265 symbol;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 332 107 pd sampstoms;
#X obj 359 188 +;
#X msg 359 159 1;
#X obj 332 135 t f b;
#X obj 389 188 f;
#X msg 389 159 0;
#X obj 359 212 pack f \$0;
#X obj 332 282 s;
#X obj 359 265 symbol;
#X obj 332 56 t b b;
#X msg 359 238 \$2-comb\$1right;
#X obj 30 360 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 411 pd sampstoms;
#X obj 57 492 +;
#X msg 57 463 1;
#X obj 30 439 t f b;
#X obj 87 492 f;
#X msg 87 463 0;
#X obj 57 516 pack f \$0;
#X obj 30 586 s;
#X obj 57 569 symbol;
#X obj 334 356 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 334 407 pd sampstoms;
#X obj 361 488 +;
#X msg 361 459 1;
#X obj 334 435 t f b;
#X obj 391 488 f;
#X msg 391 459 0;
#X obj 361 512 pack f \$0;
#X obj 334 582 s;
#X obj 361 565 symbol;
#X obj 30 22 loadbang;
#X obj 332 27 loadbang;
#X obj 30 334 loadbang;
#X obj 334 331 loadbang;
#X obj 268 41 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 30 386 225 \, 556 \, 441 \, 341;
#X msg 334 380 248 \, 579 \, 464 \, 364;
#X msg 57 542 \$2-allpass\$1left;
#X msg 361 539 \$2-allpass\$1right;
#X text 27 624 Original Freeverb delay line lengths are converted to milliseconds \, based on samplerate.;
#X connect 0 0 17 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 10 0;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 9 1 8 0;
#X connect 10 0 7 1;
#X connect 11 0 6 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 21 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 20 1 19 0;
#X connect 21 0 18 1;
#X connect 22 0 21 0;
#X connect 23 0 27 0;
#X connect 25 0 24 1;
#X connect 26 0 0 0;
#X connect 26 1 22 0;
#X connect 27 0 25 0;
#X connect 28 0 53 0;
#X connect 28 1 34 0;
#X connect 29 0 32 0;
#X connect 30 0 33 0;
#X connect 30 0 35 0;
#X connect 31 0 30 0;
#X connect 32 0 36 0;
#X connect 32 1 31 0;
#X connect 33 0 30 1;
#X connect 34 0 33 0;
#X connect 35 0 55 0;
#X connect 37 0 36 1;
#X connect 38 0 54 0;
#X connect 38 1 44 0;
#X connect 39 0 42 0;
#X connect 40 0 43 0;
#X connect 40 0 45 0;
#X connect 41 0 40 0;
#X connect 42 0 46 0;
#X connect 42 1 41 0;
#X connect 43 0 40 1;
#X connect 44 0 43 0;
#X connect 45 0 56 0;
#X connect 47 0 46 1;
#X connect 48 0 11 0;
#X connect 49 0 26 0;
#X connect 50 0 28 0;
#X connect 51 0 38 0;
#X connect 52 0 11 0;
#X connect 52 0 28 0;
#X connect 52 0 26 0;
#X connect 52 0 38 0;
#X connect 53 0 29 0;
#X connect 54 0 39 0;
#X connect 55 0 37 0;
#X connect 56 0 47 0;
#X restore 410 141 pd tuning;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 3 0;
#X connect 6 0 0 0;
#X connect 6 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 9 0 16 0;
#X connect 10 0 17 0;
#X connect 11 0 10 1;
#X connect 11 0 9 1;
#X connect 12 0 8 1;
#X connect 13 0 7 1;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 15 0 6 0;
#X connect 15 0 10 0;
#X connect 18 0 22 0;
#X connect 19 0 23 0;
#X connect 20 0 25 0;
#X connect 21 0 24 0;
#X connect 22 0 26 0;
#X connect 23 0 27 0;
#X connect 24 0 29 0;
#X connect 25 0 28 0;
#X restore 234 758 pd vfreeverb~;
#X text 393 808 Katja Vetter May 2012;
#X text 394 777 Freeverb implemented with Pd vanilla objects;
#X obj 638 198 radio_chant_roller;
#A saved rollo universe 1 1 0.1 0.5;
#X obj 744 488 lfo, f 15;
#X floatatom 758 401 5 0 0 0 - - - 0;
#X floatatom 755 545 5 0 0 0 - - - 0;
#X floatatom 762 722 5 0 0 0 - - - 0;
#X obj 697 734 vsl 16 136 100 300 0 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 758 637 rescale 100 300;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 4 0 31 0;
#X connect 5 1 6 0;
#X connect 5 2 24 0;
#X connect 6 0 7 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 10 0 37 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 15 0 16 0;
#X connect 16 0 19 0;
#X connect 16 0 19 1;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 30 0 27 0;
#X connect 30 0 29 0;
#X connect 31 0 5 0;
#X connect 31 0 23 0;
#X connect 32 0 31 1;
#X connect 33 0 35 0;
#X connect 35 0 36 0;
#X connect 36 0 47 1;
#X connect 36 0 47 0;
#X connect 37 0 36 1;
#X connect 38 0 35 1;
#X connect 39 0 41 0;
#X connect 39 0 47 2;
#X connect 40 0 42 0;
#X connect 40 0 47 3;
#X connect 43 0 45 0;
#X connect 43 0 47 5;
#X connect 44 0 46 0;
#X connect 44 0 47 4;
#X connect 47 0 34 0;
#X connect 47 1 34 1;
#X connect 51 0 53 0;
#X connect 52 0 51 0;
#X connect 53 0 56 0;
#X connect 54 0 55 0;
#X connect 56 0 54 0;

78
puredata/radio_spell_workshop/retro2.pd Normal file
View file

@ -0,0 +1,78 @@
#N canvas 371 300 364 384 12;
#X obj 43 181 del;
#X obj 43 231 spigot;
#X obj 139 72 tgl 15 0 empty empty empty 17 7 0 10 #0400fc #f8fc00
#000000 0 1;
#X obj 145 186 random;
#X obj 82 205 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 47 inlet;
#X obj 43 256 outlet;
#X obj 30 114 t b f;
#X obj 113 161 t b b;
#X obj 158 72 bng 10 250 50 0 empty empty empty 17 7 0 10 #f8fc00 #0400fc
#000000;
#X text 2 7 <<<;
#X text 322 7 >>>;
#X text 2 347 <<<;
#X text 322 347 >>>;
#X obj 118 255 inlet;
#X obj 118 305 unpack f f;
#X obj 150 330 expr $f2-$f1;
#X floatatom 234 167 5 0 0 0 range - - 0;
#X floatatom 289 193 5 0 0 0 start - - 0;
#X obj 145 212 +;
#X floatatom 171 69 5 0 0 1 r - - 0;
#X obj 288 248 outlet;
#X obj 118 280 t a a;
#X obj 86 124 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 30 139 spigot;
#N canvas 809 272 450 300 safety 0;
#X obj 95 26 inlet;
#X obj 165 31 inlet;
#X obj 33 151 outlet;
#X obj 165 56 != 0;
#X obj 95 51 != 0;
#X obj 95 76 ||;
#X obj 95 101 sel 0;
#X obj 95 151 print [retro];
#X msg 95 126 inlet blocked (start=0 & range=0);
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X restore 195 125 pd safety;
#X text 88 355 delay 200ms -> dirty hack;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 0 9 0;
#X connect 2 0 7 0;
#X connect 3 0 19 0;
#X connect 4 0 1 1;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 7 1 4 0;
#X connect 8 0 0 0;
#X connect 8 1 3 0;
#X connect 9 0 8 0;
#X connect 14 0 22 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 3 1;
#X connect 17 0 25 0;
#X connect 18 0 19 1;
#X connect 18 0 25 1;
#X connect 19 0 0 1;
#X connect 19 0 20 0;
#X connect 19 0 21 0;
#X connect 22 0 15 0;
#X connect 22 1 16 0;
#X connect 23 0 24 1;
#X connect 24 0 9 0;
#X connect 25 0 23 0;
#X coords 0 -1 1 1 85 40 1 135 50;

38
puredata/radio_spell_workshop/riff2_random-help.pd Normal file
View file

@ -0,0 +1,38 @@
#N canvas 446 132 755 545 10;
#X obj 242 229 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 74 261 bng 15 250 50 0 empty empty go- 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 74 330 0;
#X obj 193 441 print;
#X obj 339 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 339 260 loadbang;
#X obj 339 426 print done;
#N canvas 0 50 450 250 (subpatch) 0;
#X array abc 10 float 3;
#A 0 0.885708 0.785709 0.471426 0.0428596 -0.299994 -0.642848 -0.357136 0.514283 0.185715 -0.0571394;
#X coords 0 1 10 -1 100 100 1 0 0;
#X restore 19 25 graph;
#X obj 242 206 loadbang;
#X text 72 311 stop!;
#X obj 146 306 riff2_random;
#X msg 339 283 4501 0 900 500 1000;
#X text 195 46 riff2_random;
#X msg 242 252 abc;
#X text 311 206 second of all \, setup an arrayname to play this can be changed at any time.;
#X text 20 175 third of all \, press bang to play delay between values will be a random amount in between delayMin ~ delayMax (milliseconds), f 31;
#X text 20 360 send [0 ( message to stop, f 18;
#X text 256 458 outputs are 1) cooked NOTE message \, 2) raw index \, 3) raw values \, 4) a bang that triggers when playback is done., f 47;
#X text 386 306 first of all \, setup with a list of parameters /id /motor# /range /delayMin /delayMax;
#X obj 376 342 cnv 16 335 62 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#X text 386 347 /range is a multiplier to control the intensity of motions. it is useful if you are already satisfied with your pattern \, but only want to change intensity. so leave array un-touched \, try to update /range., f 53;
#X connect 0 0 13 0;
#X connect 1 0 10 0;
#X connect 2 0 10 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 8 0 0 0;
#X connect 10 0 3 0;
#X connect 10 1 3 0;
#X connect 10 2 3 0;
#X connect 10 3 4 0;
#X connect 11 0 10 2;
#X connect 13 0 10 1;

138
puredata/radio_spell_workshop/riff2_random.pd Normal file
View file

@ -0,0 +1,138 @@
#N canvas 0 33 891 478 12;
#X floatatom 313 230 5 0 0 0 - - - 0;
#X floatatom 313 289 5 0 0 0 - - - 0;
#X floatatom 313 338 5 0 0 0 - - - 0;
#X obj 28 68 hsl 110 20 0 10 0 0 empty \$0-val empty -2 -8 0 10 #fcfcc4
#000000 #000000 0 1;
#X obj 313 18 inlet;
#X obj 107 204 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 25 46 bng 14 250 50 0 empty empty empty 17 7 0 10 #00fc04 #fcc4c4
#000000;
#X floatatom 142 46 3 0 0 0 i \$0-i - 0;
#X floatatom 50 91 7 0 0 0 val \$0-val - 0;
#X floatatom 529 124 5 0 0 0 - - - 0;
#X obj 484 307 pack f f f f;
#X floatatom 129 91 5 0 0 0 key \$0-key - 0;
#X obj 506 18 inlet;
#X obj 313 264 tabread;
#X obj 529 99 array size;
#X msg 506 154 set \$1;
#X obj 506 68 t a b a;
#X obj 345 387 s \$0-val;
#X text 552 18 2-array name;
#X obj 145 68 tgl 20 0 empty \$0-onoff empty 17 7 0 8 #f8fc00 #000000
#000000 0 1;
#X obj 651 288 s \$0-onoff;
#X symbolatom 42 46 12 0 0 0 - - - 0;
#X msg 42 264 symbol no-array;
#X obj 42 239 loadbang;
#X obj 108 149 s \$0-i;
#X obj 313 362 t a a;
#X obj 506 43 list split 1;
#X obj 313 180 f;
#X text 321 38 1-cmd for scan;
#X obj 313 65 route bang;
#X obj 380 90 route 0;
#X msg 380 115 0;
#X obj 313 92 t b b;
#X msg 586 217 1;
#X obj 377 244 t b b;
#X msg 586 242 0;
#X msg 25 378 range 0 \$1;
#X obj 70 4 r \$0-an;
#X obj 25 353 r \$0-range;
#X floatatom 42 24 4 0 0 0 id \$0-id - 0;
#X floatatom 85 24 4 0 0 0 r \$0-range - 0;
#X floatatom 136 24 4 0 0 0 d1 \$0-sdelay-rstart - 0;
#X floatatom 186 24 4 0 0 0 d2 \$0-sdelay-rend - 0;
#X obj 646 71 inlet;
#X obj 646 121 s \$0-id;
#X text 692 71 3-parameters;
#X obj 653 146 s \$0-key;
#X obj 700 121 s \$0-range;
#X obj 646 96 unpack f f f f f;
#X obj 755 171 s \$0-sdelay-rend;
#X obj 727 146 s \$0-sdelay-rstart;
#X obj 663 171 pack f f;
#X obj 313 313 *;
#X obj 444 30 s \$0-an;
#X obj 377 269 del;
#X obj 359 180 r \$0-sdelay-rstart;
#X obj 504 407 outlet;
#X obj 484 357 outlet;
#X obj 439 407 r \$0-val;
#X text 533 356 1#msg;
#X msg 484 332 \$4 \$2 \$1 \$3;
#X obj 494 382 outlet;
#X obj 443 382 r \$0-i;
#X text 553 408 3#val;
#X text 543 382 2#idx;
#X obj 514 432 outlet;
#X text 563 433 4#done;
#X obj 586 287 r \$0-id;
#X obj 487 213 r \$0-key;
#X obj 259 262 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 313 205 rscan2;
#X connect 0 0 13 0;
#X connect 0 0 24 0;
#X connect 0 0 5 0;
#X connect 1 0 52 0;
#X connect 2 0 25 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 9 0 27 1;
#X connect 10 0 60 0;
#X connect 12 0 26 0;
#X connect 13 0 1 0;
#X connect 14 0 9 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 16 1 14 0;
#X connect 16 2 14 1;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 25 0 10 0;
#X connect 25 1 17 0;
#X connect 26 0 16 0;
#X connect 26 0 53 0;
#X connect 27 0 70 0;
#X connect 29 0 32 0;
#X connect 29 1 30 0;
#X connect 30 0 31 0;
#X connect 31 0 70 0;
#X connect 32 0 27 0;
#X connect 32 1 33 0;
#X connect 33 0 10 2;
#X connect 33 0 20 0;
#X connect 34 0 54 0;
#X connect 34 1 35 0;
#X connect 35 0 10 2;
#X connect 35 0 20 0;
#X connect 36 0 3 0;
#X connect 37 0 21 0;
#X connect 38 0 36 0;
#X connect 38 0 52 1;
#X connect 43 0 48 0;
#X connect 48 0 44 0;
#X connect 48 1 46 0;
#X connect 48 2 47 0;
#X connect 48 3 50 0;
#X connect 48 3 51 0;
#X connect 48 4 49 0;
#X connect 48 4 51 1;
#X connect 51 0 70 1;
#X connect 52 0 2 0;
#X connect 54 0 10 0;
#X connect 54 0 65 0;
#X connect 55 0 54 1;
#X connect 58 0 56 0;
#X connect 60 0 57 0;
#X connect 62 0 61 0;
#X connect 67 0 10 3;
#X connect 68 0 10 1;
#X connect 70 0 0 0;
#X connect 70 1 34 0;
#X connect 70 1 69 0;
#X coords 0 -1 1 1 200 95 2 20 20;

58
puredata/radio_spell_workshop/rscan2.pd Normal file
View file

@ -0,0 +1,58 @@
#N canvas 605 33 385 490 12;
#X obj 120 365 f;
#X obj 84 365 + 1;
#X obj 218 340 sel 1;
#X msg 138 340 0;
#X obj 218 315 ==;
#X obj 236 205 - 1;
#X obj 39 81 inlet;
#X msg 179 225 0;
#X msg 106 224 1;
#X obj 106 165 t b b a;
#X msg 39 225 0;
#X obj 236 230 max 0;
#X text 5 4 <<<;
#X text 345 4 >>>;
#X text 5 454 <<<;
#X text 345 454 >>>;
#X text 39 22 generate numbers from 0 to given (inlet-1);
#X text 84 82 1-command:;
#X text 124 98 - number-> target value;
#X text 124 112 - if <= 0 \, stop immediately;
#X obj 39 135 moses 1;
#X obj 278 385 outlet;
#X text 278 364 2#end bng;
#X msg 39 310 bang;
#X obj 120 390 t a a;
#X floatatom 152 415 5 0 0 0 - - - 0;
#X obj 152 439 outlet;
#X text 202 439 1#values;
#X text 39 38 arguments: random range => \$1 \, random offset => \$2
;
#X obj 274 160 inlet;
#X obj 91 271 retro2 \$1 \$2;
#X connect 0 0 1 0;
#X connect 0 0 24 0;
#X connect 1 0 0 1;
#X connect 2 0 7 0;
#X connect 2 0 21 0;
#X connect 3 0 0 1;
#X connect 4 0 2 0;
#X connect 5 0 11 0;
#X connect 6 0 20 0;
#X connect 7 0 30 0;
#X connect 8 0 30 0;
#X connect 9 0 8 0;
#X connect 9 1 3 0;
#X connect 9 2 5 0;
#X connect 10 0 23 0;
#X connect 10 0 30 0;
#X connect 11 0 4 1;
#X connect 20 0 10 0;
#X connect 20 1 9 0;
#X connect 23 0 21 0;
#X connect 24 0 4 0;
#X connect 24 1 25 0;
#X connect 25 0 26 0;
#X connect 29 0 30 1;
#X connect 30 0 0 0;

26
puredata/radio_spell_workshop/select_wind.pd Normal file
View file

@ -0,0 +1,26 @@
#N canvas 250 97 450 511 12;
#X obj 107 147 vradio 19 1 0 4 empty empty Select\ the\ wind 0 -10 2 12 #faff00 #000000 #000000 0;
#X obj 81 293 route 0 1 2 3;
#X obj 210 268 + 1;
#X floatatom 169 184 3 0 0 2 Wind - - 36;
#X obj 214 413 t f f;
#X obj 265 444 outlet;
#X msg 65 347 6001;
#X msg 109 347 6002;
#X msg 152 347 6003;
#X msg 195 347 6004;
#X obj 122 451 print "selected";
#X connect 0 0 1 0;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 1 1 7 0;
#X connect 1 2 8 0;
#X connect 1 3 9 0;
#X connect 2 0 3 0;
#X connect 4 0 10 0;
#X connect 4 1 5 0;
#X connect 6 0 4 0;
#X connect 7 0 4 0;
#X connect 8 0 4 0;
#X connect 9 0 4 0;
#X coords 0 -1 1 1 200 200 2 100 100;

41
puredata/radio_spell_workshop/skip.pd Normal file
View file

@ -0,0 +1,41 @@
#N canvas 240 23 254 344 12;
#X floatatom 18 49 5 0 0 0 - - -;
#X obj 18 108 change;
#X obj 18 78 spigot;
#X obj 18 138 t a b;
#X obj 50 168 t b b;
#X msg 118 278 0;
#X obj 73 63 tgl 15 0 empty \$0-gate r:0-gate 17 7 0 10 -262144 -1
-1 1 1;
#X msg 50 278 1;
#X msg 161 43 1;
#X floatatom 167 265 5 0 0 0 - - -;
#X obj 18 19 inlet;
#X obj 161 19 loadbang;
#X obj 161 73 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 -262144 -1
-1 1 1;
#X obj 50 308 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 -262144 -1
-1 1 1;
#X obj 50 198 del \$1;
#X obj 50 222 t b b;
#X obj 81 108 v \$0-track;
#X obj 82 246 v \$0-track;
#X obj 167 294 outlet;
#X connect 0 0 2 0;
#X connect 0 0 16 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 14 0;
#X connect 4 1 5 0;
#X connect 5 0 13 0;
#X connect 6 0 2 1;
#X connect 7 0 13 0;
#X connect 8 0 12 0;
#X connect 9 0 18 0;
#X connect 10 0 0 0;
#X connect 11 0 8 0;
#X connect 14 0 15 0;
#X connect 15 0 7 0;
#X connect 15 1 17 0;
#X connect 17 0 9 0;

777
puredata/radio_spell_workshop/vfreeverb~.pd Normal file
View file

@ -0,0 +1,777 @@
#N canvas 469 40 438 333 10;
#X obj 85 13 hsl 128 15 0 1 0 1 empty empty 'roomsize' 20 8 0 10 -262144
-260097 -1 11700 0;
#X obj 100 56 hsl 128 15 0 2 0 1 empty empty damp 20 8 0 10 -262144
-260097 -1 11800 0;
#X obj 46 175 adc~;
#X obj 52 270 output~;
#X floatatom 91 34 5 0 0 0 - - -;
#X floatatom 106 76 5 0 0 0 - - -;
#X obj 130 149 hsl 128 15 0 1 0 1 empty empty wet 20 8 0 10 -262144
-260097 -1 3100 0;
#X obj 115 99 hsl 128 15 0 1 0 1 empty empty dry 20 8 0 10 -262144
-260097 -1 3400 0;
#X floatatom 141 172 5 0 0 0 - - -;
#X floatatom 120 123 5 0 0 0 - - -;
#N canvas 92 310 634 321 vfreeverb~ 0;
#N canvas 261 41 778 367 combfilters-left1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 61 141 delread~ \$0-comb1left;
#X obj 246 142 delread~ \$0-comb2left;
#X obj 429 141 delread~ \$0-comb3left;
#X obj 610 141 delread~ \$0-comb4left;
#X obj 46 268 delwrite~ \$0-comb1left 100;
#X obj 231 268 delwrite~ \$0-comb2left 100;
#X obj 414 267 delwrite~ \$0-comb3left 100;
#X obj 595 267 delwrite~ \$0-comb4left 100;
#X obj 61 97 r \$0-comb1left;
#X obj 246 97 r \$0-comb2left;
#X obj 429 95 r \$0-comb3left;
#X obj 610 96 r \$0-comb4left;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - -;
#X floatatom 255 121 5 0 0 0 - - -;
#X floatatom 439 119 5 0 0 0 - - -;
#X floatatom 622 121 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 279 29 r \$0-room;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 17 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 18 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 19 0;
#X connect 12 0 2 0;
#X connect 12 0 29 0;
#X connect 13 0 5 0;
#X connect 13 0 29 0;
#X connect 14 0 7 0;
#X connect 14 0 29 0;
#X connect 15 0 10 0;
#X connect 15 0 29 0;
#X connect 20 0 12 0;
#X connect 20 0 30 0;
#X connect 21 0 13 0;
#X connect 21 0 31 0;
#X connect 22 0 14 0;
#X connect 22 0 32 0;
#X connect 23 0 15 0;
#X connect 23 0 33 0;
#X connect 24 0 2 1;
#X connect 25 0 5 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 28 0 0 0;
#X connect 28 0 3 0;
#X connect 28 0 8 0;
#X connect 28 0 11 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 15 100 pd combfilters-left1;
#N canvas 27 56 358 650 diffusor-left 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - -;
#X floatatom 246 203 5 0 0 0 - - -;
#X floatatom 280 334 5 0 0 0 - - -;
#X floatatom 304 464 5 0 0 0 - - -;
#X obj 51 53 r \$0-allpass1left;
#X obj 51 80 delread~ \$0-allpass1left;
#X obj 36 158 delwrite~ \$0-allpass1left 40;
#X obj 81 186 r \$0-allpass2left;
#X obj 81 211 delread~ \$0-allpass2left;
#X obj 66 290 delwrite~ \$0-allpass2left 40;
#X obj 111 317 r \$0-allpass3left;
#X obj 111 341 delread~ \$0-allpass3left;
#X obj 96 420 delwrite~ \$0-allpass3left 40;
#X obj 141 447 r \$0-allpass4left;
#X obj 141 471 delread~ \$0-allpass4left;
#X obj 126 550 delwrite~ \$0-allpass4left 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 15 168 pd diffusor-left;
#N canvas 312 366 778 367 combfilters-left2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X obj 61 90 r \$0-comb5left;
#X obj 61 141 delread~ \$0-comb5left;
#X obj 46 268 delwrite~ \$0-comb5left 100;
#X obj 246 90 r \$0-comb6left;
#X obj 246 142 delread~ \$0-comb6left;
#X obj 231 268 delwrite~ \$0-comb6left 100;
#X obj 429 88 r \$0-comb7left;
#X obj 429 141 delread~ \$0-comb7left;
#X obj 414 267 delwrite~ \$0-comb7left 100;
#X obj 610 89 r \$0-comb8left;
#X obj 610 141 delread~ \$0-comb8left;
#X obj 595 267 delwrite~ \$0-comb8left 100;
#X floatatom 70 116 5 0 0 0 - - -;
#X floatatom 261 118 5 0 0 0 - - -;
#X floatatom 440 117 5 0 0 0 - - -;
#X floatatom 620 116 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 20 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 23 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 26 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 29 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 18 0 19 0;
#X connect 18 0 30 0;
#X connect 19 0 2 0;
#X connect 19 0 17 0;
#X connect 21 0 22 0;
#X connect 21 0 31 0;
#X connect 22 0 5 0;
#X connect 22 0 17 0;
#X connect 24 0 25 0;
#X connect 24 0 32 0;
#X connect 25 0 7 0;
#X connect 25 0 17 0;
#X connect 27 0 28 0;
#X connect 27 0 33 0;
#X connect 28 0 10 0;
#X connect 28 0 17 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 36 134 pd combfilters-left2;
#N canvas 261 41 778 367 combfilters-right1 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 119 5 0 0 0 - - -;
#X floatatom 255 121 5 0 0 0 - - -;
#X floatatom 439 119 5 0 0 0 - - -;
#X floatatom 622 121 5 0 0 0 - - -;
#X obj 61 141 delread~ \$0-comb1right;
#X obj 246 142 delread~ \$0-comb2right;
#X obj 429 141 delread~ \$0-comb3right;
#X obj 610 141 delread~ \$0-comb4right;
#X obj 61 97 r \$0-comb1right;
#X obj 246 97 r \$0-comb2right;
#X obj 429 95 r \$0-comb3right;
#X obj 610 97 r \$0-comb4right;
#X obj 46 268 delwrite~ \$0-comb1right 100;
#X obj 231 268 delwrite~ \$0-comb2right 100;
#X obj 414 267 delwrite~ \$0-comb3right 100;
#X obj 595 267 delwrite~ \$0-comb4right 100;
#X obj 279 58 clip 0 0.99;
#X obj 279 28 r \$0-room;
#X connect 0 0 30 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 31 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 32 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 33 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 2 0;
#X connect 22 0 17 0;
#X connect 23 0 5 0;
#X connect 23 0 17 0;
#X connect 24 0 7 0;
#X connect 24 0 17 0;
#X connect 25 0 10 0;
#X connect 25 0 17 0;
#X connect 26 0 18 0;
#X connect 26 0 22 0;
#X connect 27 0 19 0;
#X connect 27 0 23 0;
#X connect 28 0 20 0;
#X connect 28 0 24 0;
#X connect 29 0 21 0;
#X connect 29 0 25 0;
#X connect 34 0 1 1;
#X connect 34 0 4 1;
#X connect 34 0 6 1;
#X connect 34 0 9 1;
#X connect 35 0 34 0;
#X restore 208 99 pd combfilters-right1;
#N canvas 312 366 778 367 combfilters-right2 0;
#X obj 46 244 +~;
#X obj 61 219 *~ 0.3;
#X obj 61 194 lop~ 1000;
#X obj 231 244 +~;
#X obj 246 219 *~ 0.3;
#X obj 246 194 lop~ 1000;
#X obj 429 218 *~ 0.3;
#X obj 429 193 lop~ 1000;
#X obj 414 241 +~;
#X obj 610 218 *~ 0.3;
#X obj 610 193 lop~ 1000;
#X obj 595 241 +~;
#X obj 112 170 r \$0-frequency;
#X obj 297 170 r \$0-frequency;
#X obj 480 167 r \$0-frequency;
#X obj 661 167 r \$0-frequency;
#X obj 46 28 inlet~;
#X obj 338 326 outlet~;
#X floatatom 70 116 5 0 0 0 - - -;
#X floatatom 261 118 5 0 0 0 - - -;
#X floatatom 440 117 5 0 0 0 - - -;
#X floatatom 620 116 5 0 0 0 - - -;
#X obj 279 58 clip 0 0.99;
#X obj 61 90 r \$0-comb5right;
#X obj 246 90 r \$0-comb6right;
#X obj 429 88 r \$0-comb7right;
#X obj 610 89 r \$0-comb8right;
#X obj 61 141 delread~ \$0-comb5right;
#X obj 246 142 delread~ \$0-comb6right;
#X obj 429 141 delread~ \$0-comb7right;
#X obj 610 141 delread~ \$0-comb8right;
#X obj 46 268 delwrite~ \$0-comb5right 100;
#X obj 231 268 delwrite~ \$0-comb6right 100;
#X obj 414 267 delwrite~ \$0-comb7right 100;
#X obj 595 267 delwrite~ \$0-comb8right 100;
#X obj 279 28 r \$0-room;
#X connect 0 0 31 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 32 0;
#X connect 4 0 3 1;
#X connect 5 0 4 0;
#X connect 6 0 8 1;
#X connect 7 0 6 0;
#X connect 8 0 33 0;
#X connect 9 0 11 1;
#X connect 10 0 9 0;
#X connect 11 0 34 0;
#X connect 12 0 2 1;
#X connect 13 0 5 1;
#X connect 14 0 7 1;
#X connect 15 0 10 1;
#X connect 16 0 0 0;
#X connect 16 0 3 0;
#X connect 16 0 8 0;
#X connect 16 0 11 0;
#X connect 22 0 1 1;
#X connect 22 0 4 1;
#X connect 22 0 6 1;
#X connect 22 0 9 1;
#X connect 23 0 18 0;
#X connect 23 0 27 0;
#X connect 24 0 19 0;
#X connect 24 0 28 0;
#X connect 25 0 20 0;
#X connect 25 0 29 0;
#X connect 26 0 21 0;
#X connect 26 0 30 0;
#X connect 27 0 2 0;
#X connect 27 0 17 0;
#X connect 28 0 5 0;
#X connect 28 0 17 0;
#X connect 29 0 7 0;
#X connect 29 0 17 0;
#X connect 30 0 10 0;
#X connect 30 0 17 0;
#X connect 35 0 22 0;
#X restore 225 133 pd combfilters-right2;
#N canvas 27 56 358 650 diffusor-right 0;
#X obj 51 107 *~ 0.5;
#X obj 36 132 +~;
#X obj 66 132 -~;
#X obj 36 26 inlet~;
#X obj 81 238 *~ 0.5;
#X obj 66 263 +~;
#X obj 96 263 -~;
#X obj 111 368 *~ 0.5;
#X obj 96 393 +~;
#X obj 126 393 -~;
#X obj 141 498 *~ 0.5;
#X obj 126 523 +~;
#X obj 156 523 -~;
#X obj 156 605 outlet~;
#X text 95 28 freeverb's diffusor;
#X obj 156 576 hip~ 5;
#X floatatom 214 70 5 0 0 0 - - -;
#X floatatom 244 203 5 0 0 0 - - -;
#X floatatom 280 334 5 0 0 0 - - -;
#X floatatom 304 464 5 0 0 0 - - -;
#X obj 51 53 r \$0-allpass1right;
#X obj 51 80 delread~ \$0-allpass1right;
#X obj 36 158 delwrite~ \$0-allpass1right 40;
#X obj 81 186 r \$0-allpass2right;
#X obj 81 211 delread~ \$0-allpass2right;
#X obj 66 290 delwrite~ \$0-allpass2right 40;
#X obj 111 317 r \$0-allpass3right;
#X obj 111 341 delread~ \$0-allpass3right;
#X obj 96 420 delwrite~ \$0-allpass3right 40;
#X obj 141 447 r \$0-allpass4right;
#X obj 141 471 delread~ \$0-allpass4right;
#X obj 126 550 delwrite~ \$0-allpass4right 40;
#X connect 0 0 1 1;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 6 1;
#X connect 3 0 1 0;
#X connect 3 0 2 1;
#X connect 4 0 5 1;
#X connect 5 0 25 0;
#X connect 6 0 8 0;
#X connect 6 0 9 1;
#X connect 7 0 8 1;
#X connect 8 0 28 0;
#X connect 9 0 11 0;
#X connect 9 0 12 1;
#X connect 10 0 11 1;
#X connect 11 0 31 0;
#X connect 12 0 15 0;
#X connect 15 0 13 0;
#X connect 20 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 0 0;
#X connect 21 0 2 0;
#X connect 23 0 17 0;
#X connect 23 0 24 0;
#X connect 24 0 4 0;
#X connect 24 0 6 0;
#X connect 26 0 18 0;
#X connect 26 0 27 0;
#X connect 27 0 7 0;
#X connect 27 0 9 0;
#X connect 29 0 19 0;
#X connect 29 0 30 0;
#X connect 30 0 10 0;
#X connect 30 0 12 0;
#X restore 208 169 pd diffusor-right;
#X obj 208 61 *~ 0.015;
#X obj 15 226 *~ 1;
#X obj 208 228 *~ 1;
#X obj 94 228 *~ 1;
#X obj 169 228 *~ 1;
#X obj 115 202 r \$0-dry;
#X obj 229 203 r \$0-wet;
#X obj 36 201 r \$0-wet;
#X obj 94 14 inlet~;
#X obj 208 14 inlet~;
#X obj 15 268 outlet~;
#X obj 169 269 outlet~;
#X obj 312 14 inlet;
#X obj 374 14 inlet;
#X obj 462 14 inlet;
#X obj 544 16 inlet;
#N canvas 0 22 207 207 room 0;
#X obj 32 35 inlet;
#X obj 32 63 * 0.28;
#X obj 32 94 + 0.7;
#X obj 32 160 outlet;
#X text 80 65 scaleroom;
#X text 76 94 offsetroom;
#X obj 47 126 s \$0-room;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X restore 312 45 pd room;
#N canvas 684 169 244 376 frequency 0;
#X obj 60 222 samplerate~;
#X obj 33 8 inlet;
#X obj 33 194 t f b;
#X obj 33 249 *;
#X obj 53 303 s \$0-frequency;
#X obj 33 327 outlet;
#X obj 33 64 * 0.4;
#X text 76 66 scaledamp;
#X obj 33 38 clip 0 2;
#X obj 33 90 t b f;
#X obj 33 141 -;
#X msg 33 116 1;
#X obj 33 168 abs;
#X obj 33 275 * 0.5;
#X text 153 303 for [lop~];
#X connect 0 0 3 1;
#X connect 1 0 8 0;
#X connect 2 0 3 0;
#X connect 2 1 0 0;
#X connect 3 0 13 0;
#X connect 6 0 9 0;
#X connect 8 0 6 0;
#X connect 9 0 11 0;
#X connect 9 1 10 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 2 0;
#X connect 13 0 5 0;
#X connect 13 0 4 0;
#X restore 374 45 pd frequency;
#N canvas 0 22 170 187 scalewet 0;
#X obj 22 42 inlet;
#X obj 22 143 outlet;
#X obj 22 73 * 3;
#X text 49 74 scalewet;
#X obj 40 112 s \$0-wet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 0 4 0;
#X restore 544 45 pd scalewet;
#N canvas 0 22 220 198 scaledry 0;
#X obj 32 74 * 2;
#X obj 32 40 inlet;
#X obj 32 141 outlet;
#X text 58 75 scaledry;
#X obj 41 105 s \$0-dry;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X restore 462 45 pd scaledry;
#X floatatom 312 70 5 0 0 0 - - -;
#X floatatom 374 70 10 0 0 0 - - -;
#X floatatom 462 69 5 0 0 0 - - -;
#X floatatom 544 69 5 0 0 0 - - -;
#N canvas 405 27 635 684 tuning 0;
#X msg 332 81 1139 \, 1211 \, 1300 \, 1379 \, 1445 \, 1514 \, 1580
\, 1640;
#X text 72 57 combfilter tunings left;
#X text 377 56 combfilter tunings right;
#X text 71 360 allpass tunings left;
#X text 383 355 allpass tunings right;
#N canvas 243 170 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 107 pd sampstoms;
#X msg 30 82 1116 \, 1188 \, 1277 \, 1356 \, 1422 \, 1491 \, 1557 \,
1617;
#X obj 57 188 +;
#X msg 57 159 1;
#X obj 30 135 t f b;
#X obj 87 188 f;
#X obj 30 56 t b b;
#X msg 87 159 0;
#X obj 57 212 pack f \$0;
#X msg 57 238 \$2-comb\$1left;
#X obj 30 282 s;
#X obj 57 265 symbol;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 332 107 pd sampstoms;
#X obj 359 188 +;
#X msg 359 159 1;
#X obj 332 135 t f b;
#X obj 389 188 f;
#X msg 389 159 0;
#X obj 359 212 pack f \$0;
#X obj 332 282 s;
#X obj 359 265 symbol;
#X obj 332 56 t b b;
#X msg 359 238 \$2-comb\$1right;
#X obj 30 360 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 30 411 pd sampstoms;
#X obj 57 492 +;
#X msg 57 463 1;
#X obj 30 439 t f b;
#X obj 87 492 f;
#X msg 87 463 0;
#X obj 57 516 pack f \$0;
#X obj 30 586 s;
#X obj 57 569 symbol;
#X obj 334 356 t b b;
#N canvas 0 22 195 233 sampstoms 0;
#X obj 27 21 inlet;
#X obj 54 86 samplerate~;
#X obj 27 111 /;
#X obj 27 57 t f b;
#X obj 27 136 * 1000;
#X obj 27 162 outlet;
#X connect 0 0 3 0;
#X connect 1 0 2 1;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X restore 334 407 pd sampstoms;
#X obj 361 488 +;
#X msg 361 459 1;
#X obj 334 435 t f b;
#X obj 391 488 f;
#X msg 391 459 0;
#X obj 361 512 pack f \$0;
#X obj 334 582 s;
#X obj 361 565 symbol;
#X obj 30 22 loadbang;
#X obj 332 27 loadbang;
#X obj 30 334 loadbang;
#X obj 334 331 loadbang;
#X obj 268 41 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 30 386 225 \, 556 \, 441 \, 341;
#X msg 334 380 248 \, 579 \, 464 \, 364;
#X msg 57 542 \$2-allpass\$1left;
#X msg 361 539 \$2-allpass\$1right;
#X text 27 624 Original Freeverb delay line lengths are converted to
milliseconds \, based on samplerate.;
#X connect 0 0 17 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 10 0;
#X connect 7 0 13 0;
#X connect 8 0 7 0;
#X connect 9 0 15 0;
#X connect 9 1 8 0;
#X connect 10 0 7 1;
#X connect 11 0 6 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 16 0;
#X connect 16 0 15 1;
#X connect 17 0 20 0;
#X connect 18 0 21 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 20 1 19 0;
#X connect 21 0 18 1;
#X connect 22 0 21 0;
#X connect 23 0 27 0;
#X connect 25 0 24 1;
#X connect 26 0 0 0;
#X connect 26 1 22 0;
#X connect 27 0 25 0;
#X connect 28 0 53 0;
#X connect 28 1 34 0;
#X connect 29 0 32 0;
#X connect 30 0 33 0;
#X connect 30 0 35 0;
#X connect 31 0 30 0;
#X connect 32 0 36 0;
#X connect 32 1 31 0;
#X connect 33 0 30 1;
#X connect 34 0 33 0;
#X connect 35 0 55 0;
#X connect 37 0 36 1;
#X connect 38 0 54 0;
#X connect 38 1 44 0;
#X connect 39 0 42 0;
#X connect 40 0 43 0;
#X connect 40 0 45 0;
#X connect 41 0 40 0;
#X connect 42 0 46 0;
#X connect 42 1 41 0;
#X connect 43 0 40 1;
#X connect 44 0 43 0;
#X connect 45 0 56 0;
#X connect 47 0 46 1;
#X connect 48 0 11 0;
#X connect 49 0 26 0;
#X connect 50 0 28 0;
#X connect 51 0 38 0;
#X connect 52 0 11 0;
#X connect 52 0 28 0;
#X connect 52 0 26 0;
#X connect 52 0 38 0;
#X connect 53 0 29 0;
#X connect 54 0 39 0;
#X connect 55 0 37 0;
#X connect 56 0 47 0;
#X restore 410 141 pd tuning;
#X connect 0 0 1 0;
#X connect 1 0 7 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 3 0;
#X connect 6 0 0 0;
#X connect 6 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 9 0 16 0;
#X connect 10 0 17 0;
#X connect 11 0 10 1;
#X connect 11 0 9 1;
#X connect 12 0 8 1;
#X connect 13 0 7 1;
#X connect 14 0 6 0;
#X connect 14 0 9 0;
#X connect 15 0 6 0;
#X connect 15 0 10 0;
#X connect 18 0 22 0;
#X connect 19 0 23 0;
#X connect 20 0 25 0;
#X connect 21 0 24 0;
#X connect 22 0 26 0;
#X connect 23 0 27 0;
#X connect 24 0 29 0;
#X connect 25 0 28 0;
#X restore 52 205 pd vfreeverb~;
#X text 156 235 Katja Vetter May 2012;
#X text 157 204 Freeverb implemented with Pd vanilla objects;
#X connect 0 0 4 0;
#X connect 0 0 10 2;
#X connect 1 0 5 0;
#X connect 1 0 10 3;
#X connect 2 0 10 0;
#X connect 2 1 10 1;
#X connect 6 0 8 0;
#X connect 6 0 10 5;
#X connect 7 0 9 0;
#X connect 7 0 10 4;
#X connect 10 0 3 0;
#X connect 10 1 3 1;

121
puredata/radio_spell_workshop/world.pd Normal file
View file

@ -0,0 +1,121 @@
#N canvas 34 33 1247 563 12;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy\$0 1 float 2;
#X coords 0 1 1 0 200 50 1 0 0;
#X restore 54 101 graph;
#X obj 345 145 + 1;
#X obj 378 116 t b a;
#X obj 640 417 array sum;
#X obj 640 382 metro 100;
#X obj 640 442 max 0.001;
#X obj 640 468 *;
#X obj 640 265 loadbang;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy_sequence\$0 20 float 3;
#A 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 995 198 graph;
#X obj 900 258 f;
#X obj 933 258 + 1;
#X obj 900 283 mod 20;
#X floatatom 900 308 5 0 0 0 - - - 0;
#X obj 885 228 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X floatatom 900 363 5 0 0 0 - - - 0;
#X obj 885 203 metro 60000;
#X obj 885 183 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 885 158 loadbang;
#X obj 995 298 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00 #0400fc #000000 0;
#X obj 900 420 line;
#X floatatom 900 449 5 0 0 0 - - - 0;
#X msg 900 391 \$1 10000;
#X floatatom 640 493 5 0 0 0 - - - 0;
#X obj 53 162 tgl 15 0 empty empty sleep 17 7 0 10 #ff0400 #ffffff #000000 0 1;
#X obj 378 174 send;
#X text 386 34 hi \, welcome!;
#X text 748 35 everyone-energy;
#X obj 640 290 t b b b;
#X floatatom 218 159 5 0 0 0 member\ count - - 0;
#X floatatom 218 179 5 0 0 0 e_seq - - 0;
#X floatatom 135 179 5 0 0 0 energy\ all - - 0;
#X obj 17 44 tgl 15 0 empty WORLD_SLEEP\$0 r:WORLD_SLEEP\$0 17 7 0 10 #fc0400 #fcfcfc #fc0400 0 1;
#X obj 723 278 f \$0;
#X obj 27 219 v world_sleep\$0;
#X obj 378 87 r world_onconnect\$0;
#X obj 378 145 v world_member_count\$0;
#X obj 640 102 r world_status\$0;
#X obj 640 517 v world_energy_sum\$0;
#X msg 723 303 \; world_energy\$1 const 0;
#X msg 724 389 symbol world_energy\$1;
#X obj 724 364 f \$0;
#X msg 995 88 \; world_energy_sequence\$1 const 1;
#X obj 995 63 f \$0;
#X obj 995 38 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 640 177 pack f f f;
#X obj 707 152 f \$0;
#X obj 707 127 loadbang;
#X obj 398 257 f \$0;
#X obj 398 232 loadbang;
#X msg 640 202 \; world_energy\$3 \$2 \$1;
#X obj 345 282 pack f f;
#X msg 345 307 \; world_energy\$2 resize \$1;
#X obj 900 334 tabread world_energy_sequence\$0;
#X obj 61 375 loadbang;
#X obj 61 400 f \$0;
#X symbolatom 182 81 10 0 0 0 - - - 0;
#X obj 61 451 v \$1;
#X obj 182 56 symbol \$1;
#X obj 182 31 loadbang;
#X text 107 450 declare group presence (name:id);
#X connect 1 0 28 0;
#X connect 1 0 35 0;
#X connect 1 0 50 0;
#X connect 2 0 35 0;
#X connect 2 1 24 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 22 0;
#X connect 7 0 27 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 18 0;
#X connect 12 0 52 0;
#X connect 13 0 9 0;
#X connect 14 0 21 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 19 0 20 0;
#X connect 20 0 6 1;
#X connect 20 0 29 0;
#X connect 21 0 19 0;
#X connect 22 0 30 0;
#X connect 22 0 37 0;
#X connect 23 0 33 0;
#X connect 27 0 4 0;
#X connect 27 1 40 0;
#X connect 27 2 32 0;
#X connect 31 0 23 0;
#X connect 32 0 38 0;
#X connect 34 0 2 0;
#X connect 35 0 1 0;
#X connect 35 0 24 0;
#X connect 36 0 44 0;
#X connect 39 0 3 2;
#X connect 40 0 39 0;
#X connect 42 0 41 0;
#X connect 43 0 42 0;
#X connect 44 0 49 0;
#X connect 45 0 44 2;
#X connect 46 0 45 0;
#X connect 47 0 50 1;
#X connect 48 0 47 0;
#X connect 50 0 51 0;
#X connect 52 0 14 0;
#X connect 53 0 54 0;
#X connect 54 0 56 0;
#X connect 57 0 55 0;
#X connect 58 0 57 0;
#X coords 0 -1 1 1 207 120 2 50 80;