#N canvas 423 134 724 349 10; #X text 557 11 GridFlow 0.8.0; #X obj 92 99 r foo; #X msg 557 173 print_from_ascii $*; #X msg 557 52 print hello_world; #X msg 284 54 pu; #X msg 284 102 pd; #X msg 285 205 sp 0; #X msg 284 154 pa 120 160; #X obj 557 124 unix_time; #X obj 557 148 @export_list; #X obj 557 104 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #X obj 74 255 comport 0 9600; #X obj 76 129 plotter_control; #X obj 93 158 print hpgl_commands; #X obj 557 196 s foo; #X text 324 54 pen up; #X text 324 102 pen down; #X obj 557 74 s foo; #X text 368 154 move to absolute position; #N canvas 0 0 450 300 draw_a_rectangle 0; #X obj 120 196 @export_list; #X obj 128 159 @ * ( 110 320 ); #X msg 31 156 pu \, sp 0; #X obj 28 97 fork; #X msg 114 222 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 obj 33 71 fork; #X obj 30 126 fork; #X msg 128 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 connect 0 0 4 0; #X connect 1 0 0 0; #X connect 2 0 6 0; #X connect 3 0 8 0; #X connect 3 1 9 0; #X connect 4 0 6 0; #X connect 7 0 3 0; #X connect 7 1 5 0; #X connect 8 0 2 0; #X connect 9 0 1 0; #X connect 10 0 7 0; #X restore 557 228 pd draw_a_rectangle; #X text 76 9 plotter_control; #X text 74 280 use the comport object to interface to the plotter; #X obj 285 227 s foo; #X obj 284 176 s foo; #X obj 284 124 s foo; #X obj 284 76 s foo; #X text 328 207 (0...6) remove/change the pen; #X connect 1 0 12 0; #X connect 2 0 14 0; #X connect 3 0 17 0; #X connect 4 0 25 0; #X connect 5 0 24 0; #X connect 6 0 22 0; #X connect 7 0 23 0; #X connect 8 0 9 0; #X connect 9 0 2 0; #X connect 10 0 8 0; #X connect 12 0 13 0;