#N canvas 576 39 632 610 10;
#X obj 22 162 r foo;
#X msg 427 115 print hello_world;
#X msg 155 117 pu;
#X msg 161 137 pd;
#X msg 172 177 sp 0;
#X msg 167 157 pa 120 160;
#X obj 427 187 unix_time;
#X obj 427 170 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 263 s foo;
#X text 180 117 pen up;
#X text 187 136 pen down;
#X obj 427 137 s foo;
#X text 234 156 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 14 334 use the comport object to interface to the plotter;
#X obj 155 290 s foo;
#X text 202 177 (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 206 #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 obj 427 225 list prepend print_from_ascii;
#X obj 427 244 list trim;
#X obj 199 556 comport;
#X obj 253 556 doc_link #io.grid;
#X connect 0 0 9 0;
#X connect 1 0 14 0;
#X connect 2 0 18 0;
#X connect 3 0 18 0;
#X connect 4 0 18 0;
#X connect 5 0 18 0;
#X connect 6 0 28 0;
#X connect 7 0 6 0;
#X connect 9 0 10 0;
#X connect 28 0 35 0;
#X connect 29 1 32 0;
#X connect 30 1 31 0;
#X connect 33 1 34 0;
#X connect 33 1 37 0;
#X connect 33 1 38 0;
#X connect 35 0 36 0;
#X connect 36 0 11 0;