#N canvas 382 175 632 571 10;
#X obj 0 0 doc_h;
#X obj 3 517 doc_also;
#X obj 0 537 doc_f;
#X obj 57 126 hpgl_objectbox;
#X obj 57 166 list trim;
#X obj 3 371 doc_i 2;
#X obj 14 401 doc_ii 0;
#X obj 14 423 doc_ii 1;
#X obj 97 401 doc_m i0 grid;
#X obj 57 106 hpgl_find_bbox;
#X msg 57 86 PU 0 0 \, PD 100 50 0 100 0 0;
#X text 227 85 any shape made from <hpgl> commands;
#X obj 57 36 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 57 192 PU -1 101 PD 6 101 6 103 -1 103 -1 101 PU -1 -1 PD 6
-1 6 -3 -1 -3 -1 -1 PU -1 -3 PD 101 -3 101 103 -1 103 -1 -3;
#X obj 57 56 t b b b;
#X msg 118 169 set;
#X obj 57 146 list prepend add2;
#X obj 3 455 doc_o 1;
#X obj 14 485 doc_oo 0;
#X obj 97 423 doc_m i1 float;
#X obj 3 244 doc_c 1;
#X obj 14 274 doc_cc 0;
#X obj 97 274 doc_m c0 float;
#X obj 232 423 doc_same 0;
#X obj 97 485 doc_m o0 <hpgl>;
#X text 232 485 objectbox shape (one box \, one inlet \, one outlet)
;
#X text 232 401 4-element grid describing bounding box (bbox) of text
;
#X text 232 274 scale factor. this is the amount of padding around
the text. the inlet and outlet is 2 such units high and 7 such units
wide. The total height of the box is thus 6*scale plus the height of
the bbox. The width is 2*scale plus the width of the bbox. If the bbox
is too small \, it will NOT be padded to make room for the inlet and
outlet.;
#X obj 103 517 hpgl_messagebox;
#X connect 1 1 28 0;
#X connect 3 0 16 0;
#X connect 4 0 13 0;
#X connect 8 1 26 0;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X connect 12 0 14 0;
#X connect 14 0 9 1;
#X connect 14 1 10 0;
#X connect 14 2 15 0;
#X connect 15 0 13 0;
#X connect 16 0 4 0;
#X connect 19 1 23 0;
#X connect 22 1 27 0;
#X connect 24 1 25 0;