-
Notifications
You must be signed in to change notification settings - Fork 0
/
lin-eq-conv-clip.pd
160 lines (160 loc) · 3.92 KB
/
lin-eq-conv-clip.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
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
#N canvas 545 86 637 625 12;
#X obj 122 263 expr ($f3 - $f4) / ($f1 - $f2);
#X obj 122 366 expr - ( $f1 * $f2 ) + $f3;
#X floatatom 134 398 0 0 0 0 - - -;
#X text 215 338 x0;
#X text 130 339 a;
#X text 130 420 b;
#X obj 54 441 expr $f3 * $f1 + $f2;
#X floatatom 68 475 0 0 0 0 - - -;
#X obj 54 586 outlet;
#X obj 54 -40 inlet;
#X floatatom 131 292 0 0 0 0 - - -;
#X floatatom 122 138 5 0 0 0 - - -;
#X floatatom 191 138 5 0 0 0 - - -;
#X floatatom 260 138 5 0 0 0 - - -;
#X floatatom 329 138 5 0 0 0 - - -;
#X text 485 21 x0 = a*x0 + b \; y1 = a*x1 + b;
#X text 448 125 y0 - y1 = a*(x0 - x1);
#X text 428 294 y = a * x + b;
#X obj 122 113 \$1;
#X obj 191 113 \$2;
#X obj 260 113 \$3;
#X obj 329 113 \$4;
#X text 153 113 x0;
#X text 223 113 x1;
#X text 293 113 y0;
#X text 363 113 y1;
#X text 305 338 y0;
#X obj 122 -40 loadbang;
#X obj 122 45 t b b b b;
#X obj 202 -40 inlet;
#X obj 322 43 unpack f f f f;
#X obj 54 43 f;
#X floatatom 70 7 0 0 0 0 - - -;
#X text 414 325 - b = a * x - y;
#X obj 122 -20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 122 320 t f f;
#X text 192 417 a;
#X text 59 421 X;
#X text 62 564 Y;
#X obj 122 232 t f f;
#X obj 260 232 t f f;
#X text 345 260 <-------- a = (y0 - y1) / (x0 - x1);
#X text 331 366 <---------- b = -(a * x) + y;
#X text 222 444 <-------------------------- y = a * x + b;
#X text 551 542 Mario Mey;
#X obj 191 164 t f f;
#N canvas 634 98 614 362 if-not-error 0;
#X obj 75 13 inlet;
#X obj 132 13 inlet;
#X obj 175 13 inlet;
#X obj 225 13 inlet;
#X obj 75 310 outlet;
#X obj 75 56 t f f;
#X obj 253 203 print;
#X obj 192 258 print;
#X obj 175 90 ==;
#X obj 114 90 ==;
#X obj 207 147 route 0;
#X obj 146 188 route 0;
#X obj 75 286 spigot;
#X obj 146 310 outlet;
#X obj 114 189 +;
#X obj 175 119 t f f;
#X obj 114 120 t f f;
#X obj 114 216 == 0;
#X obj 114 242 t f f;
#X msg 253 177 Incorrect y0 - y1 values or bad arguments.;
#X msg 192 232 Incorrect x0 - x1 values or bad arguments.;
#X obj 114 267 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X connect 0 0 5 0;
#X connect 1 0 9 1;
#X connect 2 0 8 0;
#X connect 3 0 8 1;
#X connect 5 0 12 0;
#X connect 5 1 9 0;
#X connect 8 0 15 0;
#X connect 9 0 16 0;
#X connect 10 1 19 0;
#X connect 11 1 20 0;
#X connect 12 0 4 0;
#X connect 14 0 17 0;
#X connect 15 0 14 1;
#X connect 15 1 10 0;
#X connect 16 0 14 0;
#X connect 16 1 11 0;
#X connect 17 0 18 0;
#X connect 18 0 21 0;
#X connect 18 1 13 0;
#X connect 19 0 6 0;
#X connect 20 0 7 0;
#X connect 21 0 12 1;
#X restore 122 201 pd if-not-error;
#X text 442 189 Check if x0 = x1;
#X text 456 209 ... or y0 = y1;
#X obj 93 229 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 202 23 t b b b b b a;
#X obj 54 248 spigot;
#X text 441 -37 Look at the help file.;
#X text 59 -15 test-in;
#X text 149 475 test-out;
#X obj 54 534 clip;
#X obj 260 164 t f f f;
#X obj 329 164 t f f f;
#X connect 0 0 10 0;
#X connect 0 0 35 0;
#X connect 1 0 2 0;
#X connect 1 0 6 1;
#X connect 6 0 7 0;
#X connect 6 0 55 0;
#X connect 9 0 31 0;
#X connect 11 0 46 0;
#X connect 12 0 45 0;
#X connect 13 0 56 0;
#X connect 14 0 57 0;
#X connect 18 0 11 0;
#X connect 19 0 12 0;
#X connect 20 0 13 0;
#X connect 21 0 14 0;
#X connect 27 0 28 0;
#X connect 28 0 18 0;
#X connect 28 1 19 0;
#X connect 28 2 20 0;
#X connect 28 3 21 0;
#X connect 29 0 50 0;
#X connect 30 0 18 1;
#X connect 30 1 19 1;
#X connect 30 2 20 1;
#X connect 30 3 21 1;
#X connect 31 0 51 0;
#X connect 32 0 31 0;
#X connect 34 0 28 0;
#X connect 35 0 1 0;
#X connect 35 1 6 2;
#X connect 39 0 0 0;
#X connect 39 1 1 1;
#X connect 40 0 0 2;
#X connect 40 1 1 2;
#X connect 45 0 0 1;
#X connect 45 1 46 1;
#X connect 46 0 39 0;
#X connect 46 1 49 0;
#X connect 49 0 51 1;
#X connect 50 0 31 0;
#X connect 50 1 18 0;
#X connect 50 2 19 0;
#X connect 50 3 20 0;
#X connect 50 4 21 0;
#X connect 50 5 30 0;
#X connect 51 0 6 0;
#X connect 55 0 8 0;
#X connect 56 0 40 0;
#X connect 56 1 46 2;
#X connect 56 2 55 1;
#X connect 57 0 0 3;
#X connect 57 1 46 3;
#X connect 57 2 55 2;