#N canvas 529 0 693 585 10; #X obj 11 11 inlet hpgl; #X obj 11 556 outlet hpgl; #X obj 85 11 inlet font_name; #X obj 85 30 symbol; #X msg 51 230 symbol \$1; #X obj 51 266 #import; #X obj 51 304 #to_float; #X obj 212 375 pack f s; #X obj 11 211 t a; #X obj 212 394 t a b; #X obj 492 113 hpgl_track_position; #X obj 242 486 f; #X obj 242 524 +; #X obj 242 543 +; #X obj 472 152 #unpack; #X obj 267 543 r \$0-char-width; #X obj 242 562 s \$0-char-pos; #X obj 64 153 s \$0-scaling; #X obj 293 96 route print_from_ascii; #X obj 233 96 route2 LB; #X obj 117 134 s \$0-rowheight; #X obj 518 179 f; #X obj 543 179 -; #X obj 568 179 r \$0-rowheight; #X obj 447 181 f; #X obj 11 96 route spacing scaling rowheight wrap; #X obj 170 115 s \$0-wrap; #X obj 51 364 t b; #X obj 57 343 r \$0-crlf; #X obj 242 505 shunt; #X msg 300 432 1; #X msg 261 432 0; #X obj 242 413 t b b b b; #X obj 51 383 f; #X obj 51 323 route 10 13; #X obj 132 323 t a a; #X obj 76 383 * -1; #X obj 511 215 s \$0-row-pos; #N canvas 418 66 489 534 draw_one_character 1; #X msg 132 58 open grid \$2/\$1.hpgl \, headerless \, type b; #X obj 51 156 #in; #X obj 82 296 hpgl_find_bbox; #X obj 51 58 t b b b b a; #X msg 300 125 1; #X msg 301 162 0; #X obj 52 277 shunt; #X msg 23 107 rewind; #X obj 139 455 #pack; #X obj 139 436 inv+; #X obj 82 357 inv+; #X obj 82 315 #redim (4); #X obj 52 194 route2 PA PU PD; #X obj 82 334 #unpack 4; #X obj 52 230 hpgl_op *; #X obj 82 395 s \$0-char-width; #X obj 171 436 r \$0-char-pos; #X obj 119 230 r \$0-scaling; #X obj 82 376 max; #X obj 52 175 plotter_parser; #X obj 178 455 r \$0-row-pos; #X obj 51 39 inlet; #X obj 52 493 outlet; #X obj 117 137 route bang not_open; #X obj 172 156 b; #X obj 51 137 until 666; #X obj 52 474 hpgl_op + (f #); #X connect 0 0 1 0; #X connect 1 0 19 0; #X connect 1 1 23 0; #X connect 2 0 11 0; #X connect 3 0 25 0; #X connect 3 1 5 0; #X connect 3 1 7 0; #X connect 3 1 2 1; #X connect 3 2 25 0; #X connect 3 3 4 0; #X connect 3 4 0 0; #X connect 4 0 6 1; #X connect 5 0 6 1; #X connect 6 0 26 0; #X connect 6 1 2 0; #X connect 7 0 1 0; #X connect 8 0 26 1; #X connect 9 0 8 0; #X connect 10 0 18 0; #X connect 11 0 13 0; #X connect 12 0 14 0; #X connect 12 1 14 0; #X connect 12 2 14 0; #X connect 13 0 10 0; #X connect 13 0 9 0; #X connect 13 2 10 1; #X connect 14 0 6 0; #X connect 16 0 9 1; #X connect 17 0 14 1; #X connect 18 0 15 0; #X connect 19 0 12 0; #X connect 20 0 8 1; #X connect 21 0 3 0; #X connect 23 0 25 1; #X connect 23 1 24 0; #X connect 24 0 25 1; #X connect 25 0 1 0; #X connect 26 0 22 0; #X restore 62 533 pd draw_one_character; #N canvas 0 0 450 300 word-wrap 0; #X obj 27 125 -; #X obj 66 144 r \$0-wrap; #X obj 43 106 #unpack; #X obj 57 230 s \$0-crlf; #X obj 27 144 moses; #X obj 57 211 spigot; #X obj 103 211 == 32; #X obj 57 168 spigot 0; #X obj 117 168 !=; #X obj 103 192 inlet cur-char; #X obj 27 26 inlet cur-pos; #X obj 43 87 inlet orig-pos; #X connect 0 0 4 0; #X connect 1 0 4 1; #X connect 1 0 8 0; #X connect 2 0 0 1; #X connect 4 1 7 0; #X connect 5 0 3 0; #X connect 6 0 5 1; #X connect 7 0 5 0; #X connect 8 0 7 1; #X connect 9 0 6 0; #X connect 10 0 0 0; #X connect 11 0 2 0; #X restore 453 293 pd word-wrap; #X obj 447 152 t b; #X obj 51 402 s \$0-char-width; #X obj 246 179 t b; #X obj 223 254 s \$0-char-width; #X msg 223 235 0; #X obj 51 285 t a b; #X obj 85 49 s \$0-font-name; #X obj 263 356 r \$0-font-name; #X obj 267 524 r \$0-spacing; #X obj 11 172 s \$0-spacing; #X obj 76 364 r \$0-spacing; #X obj 194 30 args (font_name a hershey); #X connect 0 0 25 0; #X connect 2 0 3 0; #X connect 3 0 46 0; #X connect 4 0 5 0; #X connect 5 0 45 0; #X connect 6 0 34 0; #X connect 7 0 9 0; #X connect 8 0 1 0; #X connect 9 0 38 0; #X connect 9 1 32 0; #X connect 10 0 14 0; #X connect 10 0 39 1; #X connect 11 0 29 0; #X connect 12 0 13 0; #X connect 13 0 11 1; #X connect 13 0 16 0; #X connect 14 0 24 0; #X connect 14 1 21 1; #X connect 14 1 37 0; #X connect 15 0 13 1; #X connect 18 0 5 0; #X connect 18 1 10 0; #X connect 18 1 8 0; #X connect 19 0 4 0; #X connect 19 1 18 0; #X connect 21 0 22 0; #X connect 22 0 21 1; #X connect 22 0 37 0; #X connect 23 0 22 1; #X connect 24 0 11 1; #X connect 25 0 49 0; #X connect 25 1 17 0; #X connect 25 2 20 0; #X connect 25 3 26 0; #X connect 25 4 19 0; #X connect 27 0 33 0; #X connect 27 0 40 0; #X connect 28 0 27 0; #X connect 29 0 12 0; #X connect 29 1 39 0; #X connect 30 0 29 1; #X connect 31 0 29 1; #X connect 32 0 11 0; #X connect 32 1 31 0; #X connect 32 2 11 0; #X connect 32 3 30 0; #X connect 33 0 41 0; #X connect 34 0 27 0; #X connect 34 2 35 0; #X connect 35 0 7 0; #X connect 35 1 39 2; #X connect 36 0 33 1; #X connect 38 0 1 0; #X connect 40 0 24 0; #X connect 40 0 21 0; #X connect 42 0 10 1; #X connect 42 0 44 0; #X connect 44 0 43 0; #X connect 45 0 6 0; #X connect 45 1 42 0; #X connect 47 0 7 1; #X connect 48 0 12 1; #X connect 50 0 36 0; #X connect 51 0 3 0;