blob: 944a0e5322bf20b96e3556afbab966da451a28b2 (
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
|
#N canvas 576 39 632 605 10;
#X obj 22 162 r foo;
#X msg 427 236 print_from_ascii $*;
#X msg 427 115 print hello_world;
#X msg 154 117 pu;
#X msg 154 165 pd;
#X msg 155 268 sp 0;
#X msg 154 217 pa 120 160;
#X obj 427 187 unix_time;
#X obj 427 167 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 14 318 comport 0 9600;
#X obj 6 192 plotter_control;
#X obj 23 221 print hpgl_commands;
#X obj 427 259 s foo;
#X text 194 117 pen up;
#X text 194 165 pen down;
#X obj 427 137 s foo;
#X text 238 217 move to absolute position;
#N canvas 0 22 450 300 draw_a_rectangle 0;
#X msg 31 156 pu \, sp 0;
#X msg 138 191 pd \, pa \$2 \$1;
#X msg 129 100 sp 5 \, pu \, pa 0 0 \, other si 320 320;
#X obj 115 252 s foo;
#X msg 138 134 0 0 \, 0 1 \, 1 1 \, 1 0 \, 0 0;
#X obj 31 35 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 31 52 t a a a;
#X obj 138 153 # * (110 320);
#X obj 138 172 #to_list;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 6 1 4 0;
#X connect 6 2 2 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X restore 427 291 pd draw_a_rectangle;
#X text 74 343 use the comport object to interface to the plotter;
#X obj 155 290 s foo;
#X obj 154 239 s foo;
#X obj 154 187 s foo;
#X obj 154 139 s foo;
#X text 198 270 (0...6) remove/change the pen;
#X obj 0 0 doc_h;
#X obj 3 379 doc_c 0;
#X obj 3 419 doc_i 1;
#X obj 3 494 doc_o 1;
#X obj 14 524 doc_oo 0;
#X obj 14 449 doc_ii 0;
#X text 10 32 This object produces HPGL instructions in ASCII form
that can be sent to the comport object in order to control an HPGL
compatible plotter.;
#X obj 0 576 doc_f;
#X obj 427 211 #to_list;
#X obj 97 449 doc_m i0 <hpgl>;
#X obj 97 524 doc_m o0 float;
#X text 232 524 serialised hpgl (as ascii codes);
#X text 232 449 hpgl stream (note: most other hpgl inlets don't support
lowercase);
#X obj 3 556 doc_also;
#X obj 103 556 plotter_parser;
#X connect 0 0 10 0;
#X connect 1 0 12 0;
#X connect 2 0 15 0;
#X connect 3 0 22 0;
#X connect 4 0 21 0;
#X connect 5 0 19 0;
#X connect 6 0 20 0;
#X connect 7 0 32 0;
#X connect 8 0 7 0;
#X connect 10 0 11 0;
#X connect 32 0 1 0;
#X connect 33 1 36 0;
#X connect 34 1 35 0;
#X connect 37 1 38 0;
|
