-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathlin-eq-conv2.pd
135 lines (135 loc) · 3.31 KB
/
lin-eq-conv2.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
#N canvas 425 96 827 670 12;
#X floatatom 68 525 0 0 0 0 - - -;
#X obj 54 576 outlet;
#X obj 54 -40 inlet;
#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 587 21 x0 = a*x0 + b \; y1 = a*x1 + b;
#X text 550 125 y0 - y1 = a*(x0 - x1);
#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 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 obj 122 -20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 59 471 X;
#X text 62 554 Y;
#X obj 122 232 t f f;
#X obj 260 232 t f f;
#X text 222 494 <-------------------------- y = a * x + b;
#X text 551 542 Mario Mey;
#X obj 191 164 t f f;
#X obj 260 164 t f f;
#X obj 329 164 t f f;
#N canvas 632 100 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 0
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 544 189 Check if x0 = x1;
#X text 558 209 ... or y0 = y1;
#X obj 93 229 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
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 145 527 test-out;
#X obj 54 351 expr ( ($f2 - $f5) / ($f2 - $f3) ) * $f1 + ( - ( ( ($f2
- $f5) / ($f2 - $f3) ) * $f2 ) + $f4 );
#X connect 2 0 21 0;
#X connect 3 0 33 0;
#X connect 4 0 30 0;
#X connect 5 0 31 0;
#X connect 6 0 32 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X connect 11 0 5 0;
#X connect 12 0 6 0;
#X connect 17 0 18 0;
#X connect 18 0 9 0;
#X connect 18 1 10 0;
#X connect 18 2 11 0;
#X connect 18 3 12 0;
#X connect 19 0 37 0;
#X connect 20 0 9 1;
#X connect 20 1 10 1;
#X connect 20 2 11 1;
#X connect 20 3 12 1;
#X connect 21 0 38 0;
#X connect 22 0 21 0;
#X connect 23 0 18 0;
#X connect 26 0 42 1;
#X connect 27 0 42 3;
#X connect 30 0 42 2;
#X connect 30 1 33 1;
#X connect 31 0 27 0;
#X connect 31 1 33 2;
#X connect 32 0 42 4;
#X connect 32 1 33 3;
#X connect 33 0 26 0;
#X connect 33 1 36 0;
#X connect 36 0 38 1;
#X connect 37 0 21 0;
#X connect 37 1 9 0;
#X connect 37 2 10 0;
#X connect 37 3 11 0;
#X connect 37 4 12 0;
#X connect 37 5 20 0;
#X connect 38 0 42 0;
#X connect 42 0 1 0;
#X connect 42 0 0 0;