#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 ; #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;