#N canvas 604 0 632 652 10;
#X obj 0 0 doc_h;
#X obj 3 633 doc_also;
#X obj 0 653 doc_f;
#X msg 6 370 480 640 1 #;
#X obj 103 633 #draw_polygon;
#X obj 6 408 #out window;
#X obj 86 216 hpgl_to_lines;
#X obj 67 44 t b b b;
#X obj 3 474 doc_i 1;
#X obj 3 571 doc_o 1;
#X obj 14 601 doc_oo 0;
#X obj 136 44 until;
#X obj 223 160 print bogus;
#X obj 141 160 print command;
#X obj 141 141 spigot;
#X obj 187 142 tgl 15 0 empty empty empty 17 7 0 10 -241291 -1 -1 0
1;
#X obj 136 120 plotter_parser;
#X obj 223 141 spigot;
#X obj 269 142 tgl 15 0 empty empty empty 17 7 0 10 -241291 -1 -1 0
1;
#X obj 335 27 route bang;
#X obj 14 504 doc_ii 0;
#X obj 97 504 doc_m i0 bang;
#X obj 97 526 doc_m i0 <hpgl>;
#X obj 97 601 doc_m o0 grid;
#X text 232 601 set of N line segments as a (2*N \, 2) grid;
#X text 232 504 output the grid and reset the queue;
#X text 232 526 append the appropriate line segments to the queue and
update the current position. only knows about PA \, PD \, PU.;
#X obj 67 27 bng 15 250 50 0 empty empty empty 17 7 0 10 -4034 -1 -1
;
#X obj 3 434 doc_c 0;
#X obj 193 633 #draw_hpgl;
#X obj 265 633 plotter_parser;
#X obj 361 633 plotter_control;
#X obj 86 235 # / 2;
#X obj 6 389 #draw_polygon put (255) \, draw line \, omit odd;
#X obj 86 254 shunt;
#X obj 123 255 tgl 15 0 empty empty warp 17 7 0 8 -262130 -1 -1 0 1
;
#X obj 86 360 # + (480 0);
#X obj 113 330 # p2c (240 320);
#X obj 113 273 # ** (2 1);
#X obj 113 311 # / 1000;
#X obj 113 292 # * (4 90000);
#X obj 136 63 #in grid lots_of_text_utf8.hpgl \, headerless \, type
b;
#X obj 136 101 gf/unicode_from_utf8;
#X obj 136 82 #to_f;
#X obj 463 633 gf/unicode_from_utf8;
#X obj 92 183 hpgl_font_render hershey \, spacing 10 \, scaling 0.12
\, rowheight 54 \, wrap 666;
#X connect 1 1 4 0;
#X connect 1 1 29 0;
#X connect 1 1 30 0;
#X connect 1 1 31 0;
#X connect 1 1 44 0;
#X connect 3 0 33 0;
#X connect 6 0 32 0;
#X connect 7 0 3 0;
#X connect 7 1 6 0;
#X connect 7 2 11 0;
#X connect 11 0 41 0;
#X connect 14 0 13 0;
#X connect 15 0 14 1;
#X connect 16 0 14 0;
#X connect 16 0 45 0;
#X connect 16 1 17 0;
#X connect 17 0 12 0;
#X connect 18 0 17 1;
#X connect 19 0 11 1;
#X connect 21 1 25 0;
#X connect 22 1 26 0;
#X connect 23 1 24 0;
#X connect 27 0 7 0;
#X connect 32 0 34 0;
#X connect 33 0 5 0;
#X connect 34 0 36 0;
#X connect 34 1 38 0;
#X connect 35 0 34 1;
#X connect 36 0 33 2;
#X connect 37 0 33 2;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 39 0;
#X connect 41 0 43 0;
#X connect 41 1 19 0;
#X connect 42 0 16 0;
#X connect 43 0 42 0;
#X connect 45 0 6 0;