blob: 29525186c3680b551afa6bdaadc017dccf707f73 (
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
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
|
#N canvas 529 0 693 585 10;
#X obj 11 11 inlet hpgl;
#X obj 11 556 outlet hpgl;
#X obj 85 11 inlet font_name;
#X obj 85 30 symbol;
#X obj 194 30 args font_name;
#X obj 194 11 loadbang;
#X msg 51 230 symbol \$1;
#X obj 51 266 #import;
#X obj 51 304 #to_float;
#X obj 212 375 pack f s;
#X obj 11 211 t a;
#X obj 212 394 t a b;
#X obj 492 96 hpgl_track_position;
#X obj 242 486 f;
#X obj 242 524 +;
#X obj 242 543 +;
#X obj 472 152 #unpack;
#X obj 267 543 r \$0-char-width;
#X obj 242 562 s \$0-char-pos;
#X obj 72 155 s \$0-scaling;
#X obj 334 96 route print_from_ascii;
#X obj 267 96 route2 LB;
#X obj 134 136 s \$0-rowheight;
#X obj 535 189 f;
#X obj 560 189 -;
#X obj 585 189 r \$0-rowheight;
#X obj 447 181 f;
#X obj 11 96 route spacing scaling rowheight wrap;
#X obj 196 117 s \$0-wrap;
#X obj 51 364 t b;
#X obj 57 343 r \$0-crlf;
#X obj 242 505 shunt;
#X msg 300 432 1;
#X msg 261 432 0;
#X obj 242 413 t b b b b;
#X obj 51 383 f;
#X obj 51 323 route 10 13;
#X obj 132 323 t a a;
#X obj 76 383 * -1;
#X obj 531 215 s \$0-row-pos;
#N canvas 418 66 489 534 draw_one_character 0;
#X msg 132 58 open grid \$2/\$1.hpgl \, headerless \, type b;
#X obj 51 137 until;
#X obj 51 156 #in;
#X obj 90 137 route bang;
#X obj 82 296 hpgl_find_bbox;
#X obj 51 58 t b b b b a;
#X msg 300 125 1;
#X msg 301 162 0;
#X obj 52 277 shunt;
#X msg 23 107 rewind;
#X obj 110 455 #pack;
#X obj 110 436 inv+;
#X obj 82 357 inv+;
#X obj 82 315 #redim (4);
#X obj 52 194 route2 PA PU PD;
#X obj 82 334 #unpack 4;
#X obj 52 230 hpgl_op *;
#X obj 52 474 hpgl_op +;
#X obj 82 395 s \$0-char-width;
#X obj 142 436 r \$0-char-pos;
#X obj 119 230 r \$0-scaling;
#X obj 82 376 max;
#X obj 52 175 plotter_parser;
#X obj 149 455 r \$0-row-pos;
#X obj 51 39 inlet;
#X obj 52 493 outlet;
#X connect 0 0 2 0;
#X connect 1 0 2 0;
#X connect 2 0 22 0;
#X connect 2 1 3 0;
#X connect 3 0 1 1;
#X connect 4 0 13 0;
#X connect 5 0 1 0;
#X connect 5 1 7 0;
#X connect 5 1 9 0;
#X connect 5 1 4 1;
#X connect 5 2 1 0;
#X connect 5 3 6 0;
#X connect 5 4 0 0;
#X connect 6 0 8 1;
#X connect 7 0 8 1;
#X connect 8 0 17 0;
#X connect 8 1 4 0;
#X connect 9 0 2 0;
#X connect 10 0 17 1;
#X connect 11 0 10 0;
#X connect 12 0 21 0;
#X connect 13 0 15 0;
#X connect 14 0 16 0;
#X connect 14 1 16 0;
#X connect 14 2 16 0;
#X connect 15 0 12 0;
#X connect 15 0 11 0;
#X connect 15 2 12 1;
#X connect 16 0 8 0;
#X connect 17 0 25 0;
#X connect 19 0 11 1;
#X connect 20 0 16 1;
#X connect 21 0 18 0;
#X connect 22 0 14 0;
#X connect 23 0 10 1;
#X connect 24 0 5 0;
#X restore 62 533 pd draw_one_character;
#N canvas 0 0 450 300 word-wrap 0;
#X obj 27 125 -;
#X obj 66 144 r \$0-wrap;
#X obj 43 106 #unpack;
#X obj 57 230 s \$0-crlf;
#X obj 27 144 moses;
#X obj 57 211 spigot;
#X obj 103 211 == 32;
#X obj 57 168 spigot 0;
#X obj 117 168 !=;
#X obj 103 192 inlet cur-char;
#X obj 27 26 inlet cur-pos;
#X obj 43 87 inlet orig-pos;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 1 0 8 0;
#X connect 2 0 0 1;
#X connect 4 1 7 0;
#X connect 5 0 3 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 8 0 7 1;
#X connect 9 0 6 0;
#X connect 10 0 0 0;
#X connect 11 0 2 0;
#X restore 453 293 pd word-wrap;
#X obj 447 152 t b;
#X obj 51 402 s \$0-char-width;
#X obj 246 179 t b;
#X obj 223 254 s \$0-char-width;
#X msg 223 235 0;
#X obj 51 285 t a b;
#X obj 85 49 s \$0-font-name;
#X obj 263 356 r \$0-font-name;
#X obj 267 524 r \$0-spacing;
#X obj 11 174 s \$0-spacing;
#X obj 76 364 r \$0-spacing;
#X connect 0 0 27 0;
#X connect 2 0 3 0;
#X connect 3 0 48 0;
#X connect 4 0 3 0;
#X connect 4 1 27 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 47 0;
#X connect 8 0 36 0;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 11 0 40 0;
#X connect 11 1 34 0;
#X connect 12 0 16 0;
#X connect 12 0 41 1;
#X connect 13 0 31 0;
#X connect 14 0 15 0;
#X connect 15 0 13 1;
#X connect 15 0 18 0;
#X connect 16 0 26 0;
#X connect 16 1 23 1;
#X connect 16 1 39 0;
#X connect 17 0 15 1;
#X connect 20 0 7 0;
#X connect 20 1 12 0;
#X connect 20 1 10 0;
#X connect 21 0 6 0;
#X connect 21 1 20 0;
#X connect 23 0 24 0;
#X connect 24 0 23 1;
#X connect 24 0 39 0;
#X connect 25 0 24 1;
#X connect 26 0 13 1;
#X connect 27 0 51 0;
#X connect 27 1 19 0;
#X connect 27 2 22 0;
#X connect 27 3 28 0;
#X connect 27 4 21 0;
#X connect 29 0 35 0;
#X connect 29 0 42 0;
#X connect 30 0 29 0;
#X connect 31 0 14 0;
#X connect 31 1 41 0;
#X connect 32 0 31 1;
#X connect 33 0 31 1;
#X connect 34 0 13 0;
#X connect 34 1 33 0;
#X connect 34 2 13 0;
#X connect 34 3 32 0;
#X connect 35 0 43 0;
#X connect 36 0 29 0;
#X connect 36 2 37 0;
#X connect 37 0 9 0;
#X connect 37 1 41 2;
#X connect 38 0 35 1;
#X connect 40 0 1 0;
#X connect 42 0 26 0;
#X connect 42 0 23 0;
#X connect 44 0 12 1;
#X connect 44 0 46 0;
#X connect 46 0 45 0;
#X connect 47 0 8 0;
#X connect 47 1 44 0;
#X connect 49 0 9 1;
#X connect 50 0 14 1;
#X connect 52 0 38 0;
|
