blob: ded6c88d92e4ecfc8428ea03555bc9b8f0bd487d (
plain)
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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
#N canvas 257 49 711 558 10;
#X obj 10 15 inlet polygon;
#X obj 22 92 f;
#X obj 22 54 loadbang;
#X obj 229 200 #polygon_each_edge;
#X obj 229 219 #t;
#X obj 47 92 s \$0-precision;
#X obj 281 242 #unpack;
#X obj 281 261 t f f;
#X obj 281 366 f;
#X obj 281 347 until;
#X obj 205 325 sel;
#X obj 205 344 s \$0-stop;
#X obj 311 328 r \$0-stop;
#X obj 331 366 mod;
#X obj 356 366 r \$0-precision;
#X obj 306 366 +;
#X msg 281 328 666;
#X obj 2 331 outlet radial_map;
#X obj 260 437 tabread \$0-table;
#X obj 221 493 pack;
#X obj 221 512 s \$0-table;
#X obj 253 493 +;
#N canvas 0 0 450 238 directions-of-points 0;
#X obj 20 25 inlet;
#X obj 20 96 # atan;
#X obj 20 115 # *;
#X obj 45 115 r \$0-precision;
#X obj 20 134 # / 36000;
#X obj 45 153 r \$0-precision;
#X obj 20 153 # %;
#N canvas 480 317 313 169 #split 0;
#X obj 34 28 inlet;
#X obj 34 123 outlet;
#X obj 50 85 outlet;
#X obj 34 47 #t;
#X text 58 48 split;
#X obj 50 66 #inner (0 1);
#X obj 34 104 #inner (1 0);
#X connect 0 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 5 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;
#X restore 20 44 pd #split 2;
#X obj 20 172 outlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 6 0;
#X connect 5 0 6 1;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 7 1 1 1;
#X restore 281 223 pd directions-of-points;
#N canvas 642 350 344 210 closest-turn 0;
#X obj 27 23 inlet;
#X obj 52 68 r \$0-precision;
#X obj 27 144 outlet;
#X obj 27 49 -;
#X obj 27 68 mod;
#X obj 52 87 / 2;
#X obj 77 23 inlet;
#X obj 27 106 * 2;
#X obj 27 125 - 1;
#X obj 27 87 >;
#X text 25 3 figure out clockwise vs counterclockwise;
#X connect 0 0 3 0;
#X connect 1 0 4 1;
#X connect 1 0 5 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 9 1;
#X connect 6 0 3 1;
#X connect 7 0 8 0;
#X connect 8 0 2 0;
#X connect 9 0 7 0;
#X restore 326 268 pd closest-turn;
#X obj 260 414 /;
#X obj 285 414 r \$0-precision;
#N canvas 637 343 450 300 find-intersection 0;
#X obj 21 20 inlet edge;
#X obj 110 21 inlet direction;
#X obj 21 259 outlet;
#X text 109 4 float;
#X text 20 4 2x2 matrix;
#X obj 21 63 #rotate;
#X obj 21 128 #ravel;
#X obj 21 147 #unpack 4;
#X obj 110 40 * -1;
#X obj 21 240 expr $f2 - $f1*($f4-$f2)/($f3-$f1);
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 7 1 9 1;
#X connect 7 2 9 2;
#X connect 7 3 9 3;
#X connect 8 0 5 1;
#X connect 9 0 2 0;
#X restore 77 457 pd find-intersection;
#X obj 77 438 #store;
#X obj 260 395 * 36000;
#X obj 22 130 s \$0-table;
#X msg 22 111 resize \$1;
#X obj 77 409 t b f;
#X obj 221 395 t f f;
#X obj 221 437 t f f;
#X obj 2 255 for 0 0 1;
#X obj 31 236 r \$0-precision;
#X obj 83 293 r \$0-precision;
#X obj 2 312 #import (1);
#X msg 83 312 list \$1;
#X obj 260 160 s \$0-table;
#X msg 260 141 const 0;
#X obj 2 274 tabread \$0-table;
#X obj 207 141 t a a b;
#X obj 13 181 #finished;
#X msg 22 73 256;
#N canvas 0 0 450 300 graph4 0;
#X array \$0-table 256 float 2;
#X coords 0 100 256 0 200 140 1;
#X restore 475 29 graph;
#X obj 75 509 *;
#X obj 10 34 route precision;
#X connect 0 0 47 0;
#X connect 1 0 30 0;
#X connect 1 0 5 0;
#X connect 2 0 44 0;
#X connect 3 0 4 0;
#X connect 4 0 22 0;
#X connect 4 1 27 1;
#X connect 6 0 7 0;
#X connect 6 1 10 1;
#X connect 6 1 23 1;
#X connect 7 0 16 0;
#X connect 7 1 8 1;
#X connect 7 1 23 0;
#X connect 8 0 10 0;
#X connect 8 0 15 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 10 1 32 0;
#X connect 12 0 9 1;
#X connect 13 0 8 1;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 18 0 21 0;
#X connect 19 0 20 0;
#X connect 21 0 19 1;
#X connect 22 0 6 0;
#X connect 23 0 15 1;
#X connect 23 0 46 1;
#X connect 24 0 31 0;
#X connect 25 0 24 1;
#X connect 26 0 46 0;
#X connect 27 0 26 0;
#X connect 28 0 24 0;
#X connect 30 0 29 0;
#X connect 31 0 27 0;
#X connect 31 1 26 1;
#X connect 32 0 33 0;
#X connect 32 1 28 0;
#X connect 33 0 19 0;
#X connect 33 1 18 0;
#X connect 34 0 41 0;
#X connect 35 0 34 1;
#X connect 36 0 38 0;
#X connect 37 0 17 0;
#X connect 38 0 37 1;
#X connect 40 0 39 0;
#X connect 41 0 37 0;
#X connect 42 0 43 0;
#X connect 42 1 3 0;
#X connect 42 2 40 0;
#X connect 43 0 34 0;
#X connect 44 0 1 0;
#X connect 46 0 21 1;
#X connect 47 0 1 0;
#X connect 47 1 42 0;
#X coords 0 0 1 1 85 60 0;
|
