-
Notifications
You must be signed in to change notification settings - Fork 2
/
vanillaUrn.pd
140 lines (140 loc) · 3.29 KB
/
vanillaUrn.pd
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
#N canvas 765 249 763 763 10;
#X msg 501 523 const -1;
#X obj 37 146 t f f;
#X obj 70 310 ==;
#X obj 70 332 t f f;
#X obj 142 349 sel 1;
#X obj 100 425 spigot;
#X obj 37 503 spigot;
#X obj 70 385 t f f;
#X obj 133 402 == 0;
#X obj 37 408 t b f;
#X obj 100 447 t f f;
#X obj 184 465 t f b;
#X obj 37 124 random \$1;
#X obj 501 546 array define \$0-temp_store \$1;
#X obj 184 638 tabwrite \$0-temp_store;
#X obj 127 569 outlet;
#X obj 47 102 r \$0-repeat;
#X obj 37 525 s \$0-repeat;
#X obj 37 79 inlet;
#X obj 262 78 inlet;
#X obj 262 100 s \$0-range;
#X obj 262 123 r \$0-range;
#X obj 289 166 array size \$0-temp_store;
#X obj 70 192 \$1;
#X obj 136 175 r \$0-range;
#X obj 70 288 tabread \$0-temp_store;
#N canvas 1 82 450 348 counter 0;
#X obj 246 137 \$1;
#X obj 266 107 r \$0-range;
#X obj 246 159 - 1;
#X obj 81 67 f;
#X obj 111 67 + 1;
#X msg 96 44 0;
#X obj 81 89 t f f;
#X obj 108 113 sel 0;
#X obj 81 21 inlet;
#X obj 81 159 t f f;
#X obj 183 176 sel;
#X obj 81 224 outlet index;
#X obj 246 80 loadbang;
#X obj 183 198 t b b;
#X obj 108 135 outlet reset;
#X obj 183 221 outlet no_store;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 10 1;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 9 0;
#X connect 6 1 7 0;
#X connect 7 0 14 0;
#X connect 8 0 3 0;
#X connect 9 0 11 0;
#X connect 9 1 10 0;
#X connect 10 0 13 0;
#X connect 12 0 0 0;
#X connect 13 0 15 0;
#X connect 13 1 5 0;
#X restore 313 483 pd counter;
#X obj 70 214 until;
#X obj 70 259 f;
#X obj 100 259 + 1;
#X msg 89 236 0;
#X obj 70 170 t b b f;
#X obj 501 449 loadbang;
#X obj 184 547 spigot;
#X msg 370 529 0;
#X msg 217 490 1;
#X text 181 662 don't store the last value \, cause it will cause a
stack overflow during the next run \, as this value will already be
in the table if stored;
#X obj 262 145 t b f;
#X obj 142 107 r \$0-range;
#X text 43 12 Random number generator that doesn't repeat a number
twice before all numbers in the specified range have been output;
#X text 488 710 Written by Alexandros Drymonitis;
#X obj 370 505 t b b b;
#X obj 356 630 outlet done;
#X obj 100 478 t b f;
#X obj 356 584 spigot;
#X obj 356 607 t b b;
#X msg 420 566 0;
#X msg 389 558 1;
#X connect 0 0 13 0;
#X connect 1 0 9 0;
#X connect 1 1 31 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 3 1 4 0;
#X connect 4 0 27 1;
#X connect 5 0 10 0;
#X connect 6 0 17 0;
#X connect 7 0 6 1;
#X connect 7 1 8 0;
#X connect 8 0 5 1;
#X connect 9 0 6 0;
#X connect 9 1 5 0;
#X connect 10 0 43 0;
#X connect 10 1 11 0;
#X connect 11 0 33 0;
#X connect 11 1 26 0;
#X connect 12 0 1 0;
#X connect 16 0 12 0;
#X connect 18 0 12 0;
#X connect 19 0 20 0;
#X connect 21 0 37 0;
#X connect 23 0 27 0;
#X connect 24 0 23 1;
#X connect 25 0 2 0;
#X connect 26 0 14 1;
#X connect 26 1 35 0;
#X connect 26 2 41 0;
#X connect 27 0 28 0;
#X connect 28 0 29 0;
#X connect 28 0 25 0;
#X connect 29 0 28 1;
#X connect 30 0 28 1;
#X connect 31 0 23 0;
#X connect 31 1 30 0;
#X connect 31 2 2 1;
#X connect 32 0 0 0;
#X connect 33 0 14 0;
#X connect 34 0 33 1;
#X connect 35 0 33 1;
#X connect 37 0 0 0;
#X connect 37 1 22 0;
#X connect 38 0 12 1;
#X connect 41 0 34 0;
#X connect 41 1 47 0;
#X connect 41 2 0 0;
#X connect 43 0 44 0;
#X connect 43 1 15 0;
#X connect 44 0 45 0;
#X connect 45 0 42 0;
#X connect 45 1 46 0;
#X connect 46 0 44 1;
#X connect 47 0 44 1;