File: gil_line&line.pd

package info (click to toggle)
pd-gil 0.1~20151118-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 200 kB
  • sloc: makefile: 8
file content (281 lines) | stat: -rw-r--r-- 6,799 bytes parent folder | download | duplicates (2)
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
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
#N canvas 4 -1020 1105 998 10;
#X obj 47 348 -;
#X obj 57 318 t b f;
#X obj 117 371 t b f;
#X obj 117 396 *;
#X obj 257 417 t b f;
#X obj 257 446 -;
#X obj 187 348 -;
#X obj 197 318 t b f;
#X obj 257 369 t b f;
#X obj 257 396 *;
#X obj 547 511 /;
#X obj 726 785 >= 0;
#X obj 763 785 <= 1;
#X obj 726 811 &&;
#X obj 752 551 -;
#X obj 762 521 t b f;
#X obj 822 714 /;
#X obj 822 664 t b f;
#X obj 752 634 t b f;
#X obj 742 664 +;
#X obj 752 581 t b f;
#X obj 752 611 *;
#X obj 822 799 >= 0;
#X obj 856 799 <= 1;
#X obj 822 826 &&;
#X obj 822 769 t f f;
#X obj 822 877 &&;
#X obj 822 851 t b f;
#X text 349 243 N=(b_1 -a_1 )*(d_2 -c_2 )-(b_2 -a_2 )*(d_1 -c_1 );
#X text 220 541 s=((c_1 -a_1 )*(d_2 -c_2 )-(c_2 -a_2 )*(d_1 -c_1 ))/N
;
#X text 34 243 (c_1 -a_1 )*(d_2 -c_2 )-(c_2 -a_2 )*(d_1 -c_1 );
#X text 672 446 t=(a_1 -c_1 +s*(b_1 -a_1))/(d_1 -c_1);
#X text 31 92 line segment S_1 is given by the points A (a_1 /a_2)
and B(b_1 /b_2) \, line segment S_2 by C and D.;
#X text 606 885 N = 0 --> S_1 || S_2;
#X text 110 663 x_s = a_1 + s*(b_1 - a_1);
#X text 342 641 y_s = a_2 + s*(b_2 - a_2);
#X text 771 931 0 <= s <= 1 AND 0 <= t <= 1 --> S lies on AB and CD.
;
#X text 542 63 (c)2011 Marian Weger /part of GIL/;
#X obj 57 298 r \$0-a_1;
#X obj 197 298 r \$0-a_2;
#X obj 762 501 r \$0-a_1;
#X obj 752 481 r \$0-b_1;
#X obj 822 907 outlet crossing;
#X text 31 17 gil_x_line_segments;
#X obj 48 145 inlet A;
#X obj 168 145 inlet B;
#X obj 288 145 inlet C;
#X obj 408 145 inlet D;
#X obj 48 166 unpack f f;
#X obj 168 166 unpack f f;
#X obj 288 166 unpack f f;
#X obj 408 166 unpack f f;
#X obj 48 188 s \$0-a_1;
#X obj 105 188 s \$0-a_2;
#X obj 408 188 s \$0-d_1;
#X obj 465 188 s \$0-d_2;
#X obj 345 188 s \$0-c_2;
#X obj 288 188 s \$0-c_1;
#X obj 225 188 s \$0-b_2;
#X obj 168 188 s \$0-b_1;
#X obj 47 278 r \$0-c_1;
#X obj 117 348 -;
#X obj 127 318 t b f;
#X obj 117 278 r \$0-d_2;
#X obj 127 298 r \$0-c_2;
#X obj 187 278 r \$0-c_2;
#X obj 257 348 -;
#X obj 267 318 t b f;
#X obj 257 278 r \$0-d_2;
#X obj 267 298 r \$0-c_2;
#X obj 347 348 -;
#X obj 357 318 t b f;
#X obj 417 371 t b f;
#X obj 417 396 *;
#X obj 557 417 t b f;
#X obj 557 446 -;
#X obj 487 348 -;
#X obj 497 318 t b f;
#X obj 557 369 t b f;
#X obj 557 396 *;
#X obj 357 298 r \$0-a_1;
#X obj 497 298 r \$0-a_2;
#X obj 417 348 -;
#X obj 427 318 t b f;
#X obj 417 278 r \$0-d_2;
#X obj 427 298 r \$0-c_2;
#X obj 557 348 -;
#X obj 567 318 t b f;
#X obj 347 278 r \$0-b_1;
#X obj 487 278 r \$0-b_2;
#X obj 557 278 r \$0-d_1;
#X obj 567 298 r \$0-c_1;
#X obj 682 551 -;
#X obj 692 521 t b f;
#X obj 692 501 r \$0-c_1;
#X obj 682 481 r \$0-a_1;
#X obj 822 633 -;
#X obj 832 603 t b f;
#X obj 822 563 r \$0-d_1;
#X obj 832 583 r \$0-c_1;
#X obj 726 761 t f f;
#X text 829 741 t;
#X text 555 525 s;
#X obj 547 541 t f f f;
#X obj 196 758 -;
#X obj 206 728 t b f;
#X obj 206 708 r \$0-a_1;
#X obj 196 688 r \$0-b_1;
#X obj 244 794 *;
#X obj 254 768 t b f;
#X obj 294 614 t f f;
#X obj 254 847 t b f;
#X obj 244 873 +;
#X obj 254 827 r \$0-a_1;
#X obj 384 743 -;
#X obj 394 713 t b f;
#X obj 374 794 *;
#X obj 384 768 t b f;
#X obj 384 847 t b f;
#X obj 374 873 +;
#X obj 384 827 r \$0-a_1;
#X obj 384 673 r \$0-b_2;
#X obj 394 693 r \$0-a_2;
#X obj 557 481 t b f f;
#X obj 596 908 == 0;
#X obj 596 928 outlet parallel;
#X obj 374 933 pack f f;
#X obj 374 903 t b f;
#X obj 374 955 outlet S;
#X text 68 949 the coordinates of the intersection S (s_1 / s_2);
#X text 31 47 calculates the intersection point of two straight lines
given by AB and CD \, and estimates \, if the intersection lies within
the given line segments S_1 and S_2;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 3 0;
#X connect 2 1 3 1;
#X connect 3 0 5 0;
#X connect 4 0 5 0;
#X connect 4 1 5 1;
#X connect 5 0 10 0;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 9 0 4 0;
#X connect 10 0 103 0;
#X connect 11 0 13 0;
#X connect 12 0 13 1;
#X connect 13 0 26 0;
#X connect 14 0 20 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 25 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 19 0;
#X connect 18 1 19 1;
#X connect 19 0 16 0;
#X connect 20 0 21 0;
#X connect 20 1 21 1;
#X connect 21 0 18 0;
#X connect 22 0 24 0;
#X connect 23 0 24 1;
#X connect 24 0 27 0;
#X connect 25 0 22 0;
#X connect 25 1 23 0;
#X connect 26 0 42 0;
#X connect 27 0 26 0;
#X connect 27 1 26 1;
#X connect 38 0 1 0;
#X connect 39 0 7 0;
#X connect 40 0 15 0;
#X connect 41 0 14 0;
#X connect 44 0 48 0;
#X connect 45 0 49 0;
#X connect 46 0 50 0;
#X connect 47 0 51 0;
#X connect 48 0 52 0;
#X connect 48 1 53 0;
#X connect 49 0 59 0;
#X connect 49 1 58 0;
#X connect 50 0 57 0;
#X connect 50 1 56 0;
#X connect 51 0 54 0;
#X connect 51 1 55 0;
#X connect 60 0 0 0;
#X connect 61 0 2 0;
#X connect 62 0 61 0;
#X connect 62 1 61 1;
#X connect 63 0 61 0;
#X connect 64 0 62 0;
#X connect 65 0 6 0;
#X connect 66 0 8 0;
#X connect 67 0 66 0;
#X connect 67 1 66 1;
#X connect 68 0 66 0;
#X connect 69 0 67 0;
#X connect 70 0 73 0;
#X connect 71 0 70 0;
#X connect 71 1 70 1;
#X connect 72 0 73 0;
#X connect 72 1 73 1;
#X connect 73 0 75 0;
#X connect 74 0 75 0;
#X connect 74 1 75 1;
#X connect 75 0 123 0;
#X connect 76 0 79 0;
#X connect 77 0 76 0;
#X connect 77 1 76 1;
#X connect 78 0 79 0;
#X connect 78 1 79 1;
#X connect 79 0 74 0;
#X connect 80 0 71 0;
#X connect 81 0 77 0;
#X connect 82 0 72 0;
#X connect 83 0 82 0;
#X connect 83 1 82 1;
#X connect 84 0 82 0;
#X connect 85 0 83 0;
#X connect 86 0 78 0;
#X connect 87 0 86 0;
#X connect 87 1 86 1;
#X connect 88 0 70 0;
#X connect 89 0 76 0;
#X connect 90 0 86 0;
#X connect 91 0 87 0;
#X connect 92 0 19 0;
#X connect 93 0 92 0;
#X connect 93 1 92 1;
#X connect 94 0 93 0;
#X connect 95 0 92 0;
#X connect 96 0 17 0;
#X connect 97 0 96 0;
#X connect 97 1 96 1;
#X connect 98 0 96 0;
#X connect 99 0 97 0;
#X connect 100 0 11 0;
#X connect 100 1 12 0;
#X connect 103 0 110 0;
#X connect 103 1 100 0;
#X connect 103 2 21 0;
#X connect 104 0 108 0;
#X connect 105 0 104 0;
#X connect 105 1 104 1;
#X connect 106 0 105 0;
#X connect 107 0 104 0;
#X connect 108 0 112 0;
#X connect 109 0 108 0;
#X connect 109 1 108 1;
#X connect 110 0 109 0;
#X connect 110 1 116 0;
#X connect 111 0 112 0;
#X connect 111 1 112 1;
#X connect 112 0 126 0;
#X connect 113 0 111 0;
#X connect 114 0 117 0;
#X connect 115 0 114 0;
#X connect 115 1 114 1;
#X connect 116 0 119 0;
#X connect 117 0 116 0;
#X connect 117 1 116 1;
#X connect 118 0 119 0;
#X connect 118 1 119 1;
#X connect 119 0 127 0;
#X connect 120 0 118 0;
#X connect 121 0 114 0;
#X connect 122 0 115 0;
#X connect 123 0 10 0;
#X connect 123 1 10 1;
#X connect 123 2 124 0;
#X connect 124 0 125 0;
#X connect 126 0 128 0;
#X connect 127 0 126 0;
#X connect 127 1 126 1;