Fibonacci-Jungle/simpler.pd at main · devstermarts/Fibonacci-Jungle · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
#N canvas 423 47 467 573 12;
#X obj 26 178 bng 15 250 50 0 \$0-sloadfile empty Load 18 8 0 10 #00ff04 #000000 #000000;
#N canvas 830 139 450 278 (subpatch) 0;
#X array \$0-waver 173622 float 2;
#X coords 0 1 173622 -1 145 80 2 0 0;
#X restore 26 215 graph;
#X obj 174 217 vsl 15 75 0 1 0 0 \$0-sampl \$0-samplinit Vol. 0 -9 0 10 #feffc6 #000000 #000000 0 1;
#X symbolatom 79 178 15 0 0 0 - \$0-sfilename - 10;
#X obj 26 38 f \$0;
#X obj 26 15 loadbang;
#X text 91 14 Local preset, f 13;
#X obj 26 380 inlet;
#X obj 26 501 outlet~;
#N canvas 268 -628 328 331 sampleloader 0;
#X obj 18 39 openpanel;
#X obj 18 221 soundfiler;
#X floatatom 18 246 8 0 0 0 - - - 0;
#X listbox 116 240 15 0 0 0 - - - 0;
#X obj 116 263 unpack f;
#X obj 18 115 pack s f, f 11;
#X msg 18 196 read -resize \$1 \$2-waver;
#X obj 18 290 s \$0-slength;
#X obj 92 66 loadbang;
#X obj 92 90 f \$0;
#X obj 185 14 inlet;
#X obj 33 140 unpack s;
#X obj 116 290 s \$0-srate;
#X obj 18 14 inlet;
#X text 60 13 Open file panel;
#X text 226 13 Ext. filepath;
#X obj 33 164 s \$0-sfilename;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 12 0;
#X connect 5 0 6 0;
#X connect 5 0 11 0;
#X connect 6 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 5 1;
#X connect 10 0 5 0;
#X connect 11 0 16 0;
#X connect 13 0 0 0;
#X restore 26 142 pd sampleloader;
#X f 17;
#N canvas 132 25 425 342 sampleplayer 0;
#X obj 16 249 outlet~;
#X obj 16 193 *~;
#X obj 34 169 r \$0-sampl;
#X obj 16 140 tabplay~ \$0-waver;
#X obj 166 256 pack, f 7;
#X msg 166 281 \$1 \$2;
#X obj 166 109 r \$0-sstart;
#X obj 256 109 r \$0-send;
#X obj 41 29 r \$0-splayer;
#X obj 16 7 inlet;
#X obj 16 55 list;
#X obj 166 306 s \$0-splayer;
#X obj 295 7 r \$0-sendslider;
#X obj 166 7 r \$0-sstartslider;
#X text 62 6 Bang = play;
#X floatatom 180 208 8 0 0 0 - - - 0;
#X obj 180 231 t b f;
#X obj 256 189 expr $f1-$f2;
#X obj 305 133 r \$0-sstart;
#X obj 305 157 t b f;
#X floatatom 166 31 8 0 0 0 - - - 0;
#X obj 166 54 s \$0-sstart;
#X floatatom 295 31 8 0 0 0 - - - 0;
#X obj 295 54 s \$0-send;
#X obj 26 84 r \$0-sstopsample;
#X msg 26 108 stop;
#X connect 1 0 0 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 11 0;
#X connect 6 0 4 0;
#X connect 7 0 17 0;
#X connect 8 0 10 1;
#X connect 9 0 10 0;
#X connect 10 0 3 0;
#X connect 12 0 22 0;
#X connect 13 0 20 0;
#X connect 15 0 16 0;
#X connect 16 0 4 0;
#X connect 16 1 4 1;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 19 1 17 1;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 24 0 25 0;
#X connect 25 0 3 0;
#X coords 0 342 1 341 180 45 0;
#X restore 26 467 pd sampleplayer;
#X obj 29 305 hsl 140 10 0 173622 0 0 \$0-sendslider \$0-sendsliderinit empty -2 -10 0 12 #ffffff #9c00ff #000000 0 1;
#X obj 29 295 hsl 140 10 0 173622 0 0 \$0-sstartslider \$0-sstartsliderinit empty -2 -10 0 12 #ffffff #00faff #000000 0 1;
#N canvas 622 98 345 185 sliderinit 0;
#X msg 114 107 range 0 \$1;
#X msg 49 107 set 0;
#X obj 16 140 s \$0-sstartsliderinit;
#X msg 222 107 set \$1;
#X obj 194 140 s \$0-sendsliderinit;
#X obj 194 18 r \$0-slength;
#X obj 17 18 r \$0-sreslength;
#X obj 222 84 f;
#X obj 17 43 t b b;
#X obj 194 43 t b b f;
#X connect 0 0 2 0;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 5 0 0 0;
#X connect 5 0 9 0;
#X connect 6 0 8 0;
#X connect 7 0 3 0;
#X connect 8 0 2 0;
#X connect 8 0 4 0;
#X connect 8 1 7 0;
#X connect 8 1 1 0;
#X connect 9 0 4 0;
#X connect 9 1 7 0;
#X connect 9 2 7 1;
#X restore 26 354 pd sliderinit;
#X obj 26 320 bng 15 250 50 0 \$0-splaysample \$0-splaysampleinit Play 18 8 0 10 #fcfcfc #000000 #000000;
#X obj 26 118 r \$0-sloadfile;
#X text 69 379 Play;
#X obj 26 404 s \$0-splaysampleinit;
#X obj 142 119 inlet;
#X obj 26 443 r \$0-splaysample;
#X obj 144 320 bng 15 250 50 0 \$0-sreslength \$0-sreslengthinit Reset 18 8 0 10 #fcfcfc #000000 #000000;
#X msg 26 61 \; \$1-samplinit 0.4 \;, f 19;
#X text 254 162 Simpler is a simple sample player that uses tabplay~ to play back a single sample in an array. Sliders below the graphical array allow to define start and end position of sample playback. The first inlet takes in bangs to trigger playback of the sample \, the second inlet takes in the sample filepath., f 25;
#X obj 85 320 bng 15 250 50 0 \$0-sstopsample \$0-sstopsampleinit Stop 18 8 0 10 #fcfcfc #000000 #000000;
#X text 182 118 Filepath;
#X text 254 366 Attn.: slider solution is a bit sketchy. Bottom slider (sample end) can technically go beyond the starting point as selected in top slider. The resulting negative sample duration is interpreted a positive/ absolute value in tabplay~ Last updated 9.6.23, f 25;
#X connect 4 0 21 0;
#X connect 5 0 4 0;
#X connect 7 0 17 0;
#X connect 10 0 8 0;
#X connect 15 0 9 0;
#X connect 18 0 9 1;
#X connect 19 0 10 0;
#X coords 0 -1 1 1 185 170 2 15 170;