1: #include <X/mit-copyright.h>
   2: 
   3: /*
   4:  * XPR - process xwd(1) files for the LN03 or LA100 printer
   5:  *
   6:  * Author: Michael R. Gretzinger, MIT Project Athena
   7:  * Copyright (C) 1985, Massachusetts Institute of Technology
   8:  */
   9: 
  10: #ifndef lint
  11: static char *rcsid_xpr_c = "$Header: xpr.c,v 10.4 86/02/01 16:03:38 tony Rel $";
  12: #endif
  13: 
  14: #include <sys/types.h>
  15: #include <sys/file.h>
  16: #include <sys/uio.h>
  17: #include <stdio.h>
  18: #include "lncmd.h"
  19: #include "XWDFile.h"
  20: 
  21: int debug = 0;
  22: 
  23: enum device {LN01, LN03, LA100};
  24: enum orientation {PORTRAIT, LANDSCAPE};
  25: 
  26: #define W_MAX 2400
  27: #define H_MAX 3150
  28: #define W_MARGIN 75
  29: #define H_MARGIN 37
  30: #define W_PAGE 2550
  31: #define H_PAGE 3225
  32: 
  33: #ifdef NOINLINE
  34: #define min(x,y) (((x)<(y))?(x):(y))
  35: #endif NOINLINE
  36: 
  37: #define F_PORTRAIT 1
  38: #define F_LANDSCAPE 2
  39: #define F_DUMP 4
  40: #define F_NOSIXOPT 8
  41: #define F_APPEND 16
  42: #define F_NOFF 32
  43: #define F_REPORT 64
  44: 
  45: 
  46: main(argc, argv)
  47: char **argv;
  48: {
  49:     XWDFileHeader win;
  50:     register unsigned char (*sixmap)[];
  51:     register int i;
  52:     register int iw;
  53:     register int ih;
  54:     register int sixel_count;
  55:     char *w_name;
  56:     char *filename;
  57:     char *output_filename;
  58:     int scale, width, height, flags, split;
  59:     int left, top;
  60:     int top_margin, left_margin;
  61:     int wpad, hpad;
  62:     char *header, *trailer;
  63:     enum orientation orientation;
  64:     enum device device;
  65: 
  66:     parse_args (argc, argv, &scale, &width, &height, &left, &top, &device,
  67:         &flags, &split, &header, &trailer);
  68: 
  69:     /* read in window header */
  70:     read(0, &win, sizeof win);
  71:     w_name = (char *)malloc(win.header_size - sizeof win);
  72:     read(0, w_name, win.header_size - sizeof win);
  73: 
  74:     /* calculate orientation and scale */
  75:     setup_layout(device, win.pixmap_width, win.pixmap_height, flags, width,
  76:          height, header, trailer, &scale, &orientation);
  77: 
  78:     /* calculate w and h cell count */
  79:     wpad = (16 - (win.pixmap_width & 15)) & 15;
  80:     iw = win.pixmap_width;
  81:     ih = (win.pixmap_height + 5) / 6;
  82:     hpad = (ih * 6) - win.pixmap_height;
  83: 
  84:     /* build pixcells from input file */
  85:     sixel_count = iw * ih;
  86:     sixmap = (unsigned char (*)[])malloc(sixel_count);
  87:     build_sixmap(iw, ih, sixmap, wpad, hpad);
  88: 
  89:     /* output commands and sixel graphics */
  90:     if (device == LN03) {
  91: /*	ln03_grind_fonts(sixmap, iw, ih, scale, &pixmap); */
  92:     ln03_setup(iw, ih, orientation, scale, left, top,
  93:            &left_margin, &top_margin, flags, header, trailer);
  94:     ln03_output_sixels(sixmap, iw, ih, (flags & F_NOSIXOPT), split,
  95:                scale, top_margin, left_margin);
  96:     ln03_finish();
  97:     } else if (device == LA100) {
  98:     la100_setup(iw, ih, scale);
  99:     la100_output_sixels(sixmap, iw, ih, (flags & F_NOSIXOPT));
 100:     la100_finish();
 101:     } else {
 102:     fprintf(stderr, "xwd2: device not supported\n");
 103:     }
 104: 
 105:     /* print some statistics */
 106:     if (flags & F_REPORT) {
 107:     fprintf(stderr, "Name: %s\n", w_name);
 108:     fprintf(stderr, "Width: %d, Height: %d\n", win.pixmap_width,
 109:         win.pixmap_height);
 110:     fprintf(stderr, "Orientation: %s, Scale: %d\n",
 111:         (orientation==PORTRAIT) ? "Portrait" : "Landscape", scale);
 112:     }
 113:     if (flags & F_DUMP) dump_sixmap(sixmap, iw, ih);
 114: }
 115: 
 116: parse_args(argc, argv, scale, width, height, left, top, device, flags,
 117:        split, header, trailer)
 118: register int argc;
 119: register char **argv;
 120: int *scale;
 121: int *width;
 122: int *height;
 123: int *left;
 124: int *top;
 125: enum device *device;
 126: int *flags;
 127: int *split;
 128: char **header;
 129: char **trailer;
 130: {
 131:     register char *output_filename;
 132:     register int f;
 133:     register int len;
 134:     register int pos;
 135:     double atof();
 136:     int atoi();
 137: 
 138:     output_filename = NULL;
 139:     *device = LN03; /* default */
 140:     *flags = 0;
 141:     *split = 1;
 142:     *width = -1;
 143:     *height = -1;
 144:     *top = -1;
 145:     *left = -1;
 146:     *header = NULL;
 147:     *trailer = NULL;
 148: 
 149:     argc--;
 150:     argv++;
 151: 
 152:     while (argc > 0 && argv[0][0] == '-') {
 153:     len = strlen(*argv);
 154:     switch (argv[0][1]) {
 155:     case 'a':       /* -append <filename> */
 156:         if (!bcmp(*argv, "-append", len)) {
 157:         argc--; argv++;
 158:         output_filename = *argv;
 159:         *flags |= F_APPEND;
 160:         }
 161:         break;
 162: 
 163:     case 'd':       /* -device {ln03 | la100} | -dump */
 164:         if (len <= 2) {
 165:         fprintf(stderr, "xwd2: ambiguous option: \"%s\"\n", *argv);
 166:         exit(1);
 167:         }
 168:         if (!bcmp(*argv, "-device", len)) {
 169:         argc--; argv++;
 170:         len = strlen(*argv);
 171:         if (!bcmp(*argv, "ln03", len)) {
 172:             *device = LN03;
 173:         } else if (!bcmp(*argv, "la100", len)) {
 174:             *device = LA100;
 175:         } else {
 176:             fprintf(stderr,
 177:                 "xwd2: device \"%s\" not supported\n", *argv);
 178:             exit(1);
 179:         }
 180:         } else if (!bcmp(*argv, "-dump", len)) {
 181:         *flags |= F_DUMP;
 182:         }
 183:         break;
 184: 
 185:     case 'h':       /* -height <inches> */
 186:         if (len <= 3) {
 187:         fprintf(stderr, "xwd2: ambiguous option: \"%s\"\n", *argv);
 188:         exit(1);
 189:         }
 190:         if (!bcmp(*argv, "-height", len)) {
 191:         argc--; argv++;
 192:         *height = (int)(300.0 * atof(*argv));
 193:         } else if (!bcmp(*argv, "-header", len)) {
 194:         argc--; argv++;
 195:         *header = *argv;
 196:         }
 197:         break;
 198: 
 199:     case 'l':       /* -landscape | -left <inches> */
 200:         if (!bcmp(*argv, "-landscape", len)) {
 201:         *flags |= F_LANDSCAPE;
 202:         } else if (!bcmp(*argv, "-left", len)) {
 203:         argc--; argv++;
 204:         *left = (int)(300.0 * atof(*argv));
 205:         }
 206:         break;
 207: 
 208:     case 'n':       /* -nosixopt | -noff */
 209:         if (len <= 3) {
 210:         fprintf(stderr, "xwd2: ambiguous option: \"%s\"\n", *argv);
 211:         exit(1);
 212:         }
 213:         if (!bcmp(*argv, "-nosixopt", len)) {
 214:         *flags |= F_NOSIXOPT;
 215:         } else if (!bcmp(*argv, "-noff", len)) {
 216:         *flags |= F_NOFF;
 217:         }
 218:         break;
 219: 
 220:     case 'o':       /* -output <filename> */
 221:         if (!bcmp(*argv, "-output", len)) {
 222:         argc--; argv++;
 223:         output_filename = *argv;
 224:         }
 225:         break;
 226: 
 227:     case 'p':       /* -portrait */
 228:         if (!bcmp(*argv, "-portrait", len)) {
 229:         *flags |= F_PORTRAIT;
 230:         }
 231:         break;
 232: 
 233:     case 'r':       /* -report */
 234:         if (!bcmp(*argv, "-report", len)) {
 235:         *flags |= F_REPORT;
 236:         }
 237:         break;
 238: 
 239:     case 's':       /* -scale <scale> | -split <n-pages> */
 240:         if (!bcmp(*argv, "-scale", len)) {
 241:         argc--; argv++;
 242:         *scale = atoi(*argv);
 243:         } else if (!bcmp(*argv, "-split", len)) {
 244:         argc--; argv++;
 245:         *split = atoi(*argv);
 246:         }
 247:         break;
 248: 
 249:     case 't':       /* -top <inches> */
 250:         if (len <= 2) {
 251:         fprintf(stderr, "xwd2: ambigous option: \"%s\"\n", *argv);
 252:         exit(1);
 253:         }
 254:         if (!bcmp(*argv, "-top", len)) {
 255:         argc--; argv++;
 256:         *top = (int)(300.0 * atof(*argv));
 257:         } else if (!bcmp(*argv, "-trailer", len)) {
 258:         argc--; argv++;
 259:         *trailer = *argv;
 260:         }
 261:         break;
 262: 
 263:     case 'w':       /* -width <inches> */
 264:         if (!bcmp(*argv, "-width", len)) {
 265:         argc--; argv++;
 266:         *width = (int)(300.0 * atof(*argv));
 267:         }
 268:         break;
 269: 
 270:     }
 271:     argc--; argv++;
 272:     }
 273: 
 274:     if (argc > 0) {
 275:     f = open(*argv, O_RDONLY, 0);
 276:     if (f < 0) {
 277:         fprintf(stderr, "xwd2: error opening \"%s\" for input\n", *argv);
 278:         perror("");
 279:         exit(1);
 280:     }
 281:     dup2(f, 0);
 282:     close(f);
 283: /*	if (output_filename == NULL) {
 284: 	    output_filename = (char *)malloc(strlen(*argv)+10);
 285: 	    build_output_filename(*argv, *device, output_filename);
 286: 	} */
 287:     }
 288: 
 289:     if (output_filename != NULL) {
 290:     if (!(*flags & F_APPEND)) {
 291:         f = open(output_filename, O_CREAT|O_WRONLY|O_TRUNC, 0664);
 292:     } else {
 293:         f = open(output_filename, O_WRONLY, 0);
 294:     }
 295:     if (f < 0) {
 296:         fprintf(stderr, "xwd2: error opening \"%s\" for output\n",
 297:             output_filename);
 298:         perror("xwd2");
 299:         exit(1);
 300:     }
 301:     if (*flags & F_APPEND) {
 302:         pos = lseek(f, 0, 2);          /* get eof position */
 303:         if (*flags & F_NOFF) pos -= 3; /* set position before trailing */
 304:                        /*     formfeed and reset */
 305:         lseek(f, pos, 0);              /* set pointer */
 306:     }
 307:     dup2(f, 1);
 308:     close(f);
 309:     }
 310: }
 311: 
 312: setup_layout(device, win_width, win_height, flags, width, height,
 313:          header, trailer, scale, orientation)
 314: enum device device;
 315: int win_width;
 316: int win_height;
 317: int flags;
 318: int width;
 319: int height;
 320: char *header;
 321: char *trailer;
 322: int *scale;
 323: enum orientation *orientation;
 324: {
 325:     register int w_scale;
 326:     register int h_scale;
 327:     register int iscale = *scale;
 328:     register int w_max;
 329:     register int h_max;
 330: 
 331:     if (header != NULL) win_height += 75;
 332:     if (trailer != NULL) win_height += 75;
 333: 
 334:     /* check maximum width and height; set orientation and scale*/
 335:     if (device == LN03) {
 336:     if ((win_width < win_height || (flags & F_PORTRAIT)) &&
 337:         !(flags & F_LANDSCAPE)) {
 338:         *orientation = PORTRAIT;
 339:         w_max = (width > 0)? width : W_MAX;
 340:         h_max = (height > 0)? height : H_MAX;
 341:         w_scale = w_max / win_width;
 342:         h_scale = h_max / win_height;
 343:         *scale = min(w_scale, h_scale);
 344:     } else {
 345:         *orientation = LANDSCAPE;
 346:         w_max = (width > 0)? width : H_MAX;
 347:         h_max = (height > 0)? height : W_MAX;
 348:         w_scale = w_max / win_width;
 349:         h_scale = h_max / win_height;
 350:         *scale = min(w_scale, h_scale);
 351:     }
 352:     } else {            /* device == LA100 */
 353:     *orientation = PORTRAIT;
 354:     *scale = W_MAX / win_width;
 355:     }
 356:     if (*scale == 0) *scale = 1;
 357:     if (*scale > 6) *scale = 6;
 358:     if (iscale > 0 && iscale < *scale) *scale = iscale;
 359: }
 360: 
 361: dump_sixmap(sixmap, iw, ih)
 362: register unsigned char (*sixmap)[];
 363: int iw;
 364: int ih;
 365: {
 366:     register int i, j;
 367:     register unsigned char *c;
 368: 
 369:     c = (unsigned char *)sixmap;
 370:     fprintf(stderr, "Sixmap:\n");
 371:     for (i = 0; i < ih; i++) {
 372:     for (j = 0; j < iw; j++) {
 373:         fprintf(stderr, "%02X ", *c++);
 374:     }
 375:     fprintf(stderr, "\n\n");
 376:     }
 377: }
 378: 
 379: build_sixmap(iw, ih, sixmap, wpad, hpad)
 380: int ih;
 381: int iw;
 382: unsigned char (*sixmap)[];
 383: int wpad;
 384: int hpad;
 385: {
 386:     int iwb, iww;
 387:     int rsize, cc;
 388:     int w, maxw;
 389:     struct iovec linevec[6];
 390:     unsigned char line[6][150];
 391:     register unsigned char *c;
 392:     register int i, j, k, m;
 393:     register int sixel;
 394:     static int mask[] = {~1, ~2, ~4, ~8, ~16, ~32, ~64, ~128};
 395: 
 396:     c = (unsigned char *)sixmap;
 397:     iwb = (iw + wpad) / 8;
 398: 
 399:     for (i = 0; i <= 5; i++) {
 400:     linevec[i].iov_base = (caddr_t)line[i];
 401:     linevec[i].iov_len = iwb;
 402:     }
 403: 
 404:     while (--ih >= 0) {
 405:     if (ih > 0 || hpad == 0) {
 406:         rsize = iwb * 6;
 407:         while (rsize > 0) {
 408:         cc = readv(0, linevec, 6);
 409:         if (cc == 0) break;
 410:         rsize -= cc;
 411:         }
 412:     } else {
 413:         i = 6 - hpad;
 414:         rsize = iwb * i;
 415:         while (rsize > 0) {
 416:         cc = readv(0, linevec, i);
 417:         if (cc == 0) break;
 418:         rsize -= cc;
 419:         }
 420:         for (; i < 6; i++)
 421:         for (j = 0; j < iwb; j++) line[i][j] = 0xFF;
 422:     }
 423: 
 424: #ifndef NOINLINE
 425:     for (i = 0; i < iw; i++) {
 426:         sixel =  extzv(line[0], i, 1);
 427:         sixel |= extzv(line[1], i, 1) << 1;
 428:         sixel |= extzv(line[2], i, 1) << 2;
 429:         sixel |= extzv(line[3], i, 1) << 3;
 430:         sixel |= extzv(line[4], i, 1) << 4;
 431:         sixel |= extzv(line[5], i, 1) << 5;
 432:         *c++ = sixel;
 433:     }
 434: #else
 435:     for (i = 0, w = iw; w > 0; i++) {
 436:         for (j = 0; j <= 7; j++) {
 437:         m = mask[j];
 438:         k = -j;
 439:         sixel =  ((line[0][i] & ~m) << k++);
 440:         sixel |= ((line[1][i] & ~m) << k++);
 441:         sixel |= ((line[2][i] & ~m) << k++);
 442:         sixel |= ((line[3][i] & ~m) << k++);
 443:         sixel |= ((line[4][i] & ~m) << k++);
 444:         sixel |= ((line[5][i] & ~m) << k);
 445:         *c++ = sixel;
 446:         if (--w == 0) break;
 447:         }
 448:     }
 449: #endif
 450:     }
 451: }
 452: 
 453: build_output_filename(name, device, oname)
 454: register char *name, *oname;
 455: enum device device;
 456: {
 457:     while (*name && *name != '.') *oname++ = *name++;
 458:     switch (device) {
 459:     case LN03:  bcopy(".ln03", oname, 6); break;
 460:     case LA100: bcopy(".la100", oname, 7); break;
 461:     }
 462: }
 463: 
 464: 
 465: ln03_grind_fonts(sixmap, iw, ih, scale, pixmap)
 466: unsigned char (*sixmap)[];
 467: int iw;
 468: int ih;
 469: int scale;
 470: struct pixmap (**pixmap)[];
 471: {
 472: }
 473: 
 474: 
 475: ln03_setup(iw, ih, orientation, scale, left, top, left_margin, top_margin,
 476:        flags, header, trailer)
 477: int iw;
 478: int ih;
 479: enum orientation orientation;
 480: int scale;
 481: int left;
 482: int top;
 483: int *left_margin;
 484: int *top_margin;
 485: int flags;
 486: char *header;
 487: char *trailer;
 488: {
 489:     register int i;
 490:     register int lm, tm, xm;
 491:     char fontname[6];
 492:     char buf[256];
 493:     register char *bp = buf;
 494: 
 495:     if (!(flags & F_APPEND)) {
 496:     sprintf(bp, LN_RIS); bp += 2;
 497:     sprintf(bp, LN_SSU, 7); bp += 5;
 498:     sprintf(bp, LN_PUM_SET); bp += sizeof LN_PUM_SET - 1;
 499:     }
 500: 
 501:     if (orientation == PORTRAIT) {
 502:     lm = (left > 0)? left : (((W_MAX - scale * iw) / 2) + W_MARGIN);
 503:     tm = (top > 0)? top : (((H_MAX - scale * ih * 6) / 2) + H_MARGIN);
 504:     sprintf(bp, LN_PFS, "?20"); bp += 7;
 505:     sprintf(bp, LN_DECOPM_SET); bp += sizeof LN_DECOPM_SET - 1;
 506:     sprintf(bp, LN_DECSLRM, lm, W_PAGE - lm); bp += strlen(bp);
 507:     } else {
 508:     lm = (left > 0)? left : (((H_MAX - scale * iw) / 2) + H_MARGIN);
 509:     tm = (top > 0)? top : (((W_MAX - scale * ih * 6) / 2) + W_MARGIN);
 510:     sprintf(bp, LN_PFS, "?21"); bp += 7;
 511:     sprintf(bp, LN_DECOPM_SET); bp += sizeof LN_DECOPM_SET - 1;
 512:     sprintf(bp, LN_DECSLRM, lm, H_PAGE - lm); bp += strlen(bp);
 513:     }
 514: 
 515:     if (header != NULL) {
 516:     sprintf(bp, LN_VPA, tm - 100); bp += strlen(bp);
 517:     i = strlen(header);
 518:     xm = (((scale * iw) - (i * 30)) / 2) + lm;
 519:     sprintf(bp, LN_HPA, xm); bp += strlen(bp);
 520:     sprintf(bp, LN_SGR, 3); bp += strlen(bp);
 521:     bcopy(header, bp, i);
 522:     bp += i;
 523:     }
 524:     if (trailer != NULL) {
 525:     sprintf(bp, LN_VPA, tm + (scale * ih * 6) + 75); bp += strlen(bp);
 526:     i = strlen(trailer);
 527:     xm = (((scale * iw) - (i * 30)) / 2) + lm;
 528:     sprintf(bp, LN_HPA, xm); bp += strlen(bp);
 529:     sprintf(bp, LN_SGR, 3); bp += strlen(bp);
 530:     bcopy(trailer, bp, i);
 531:     bp += i;
 532:     }
 533: 
 534:     sprintf(bp, LN_HPA, lm); bp += strlen(bp);
 535:     sprintf(bp, LN_VPA, tm); bp += strlen(bp);
 536:     sprintf(bp, LN_SIXEL_GRAPHICS, 9, 0, scale); bp += strlen(bp);
 537:     sprintf(bp, "\"1;1"); bp += 4; /* Pixel aspect ratio */
 538:     write(1, buf, bp-buf);
 539:     *top_margin = tm;
 540:     *left_margin = lm;
 541: }
 542: 
 543: #define LN03_RESET "\033c"
 544: 
 545: ln03_finish()
 546: {
 547:     write(1, LN03_RESET, sizeof LN03_RESET - 1);
 548: }
 549: 
 550: la100_setup(iw, ih, scale)
 551: {
 552:     unsigned char buf[256];
 553:     register unsigned char *bp;
 554:     int lm, tm;
 555: 
 556:     bp = buf;
 557:     lm = ((80 - (int)((double)iw / 6.6)) / 2) - 1;
 558:     if (lm < 1) lm = 1;
 559:     tm = ((66 - (int)((double)ih / 2)) / 2) - 1;
 560:     if (tm < 1) tm = 1;
 561:     sprintf(bp, "\033[%d;%ds", lm, 81-lm); bp += strlen(bp);
 562:     sprintf(bp, "\033[?7l"); bp += 5;
 563:     sprintf(bp, "\033[%dd", tm); bp += strlen(bp);
 564:     sprintf(bp, "\033[%d`", lm); bp += strlen(bp);
 565:     sprintf(bp, "\033P0q"); bp += 4;
 566:     write(1, buf, bp-buf);
 567: }
 568: 
 569: #define LA100_RESET "\033[1;80s\033[?7h"
 570: 
 571: la100_finish()
 572: {
 573:     write(1, LA100_RESET, sizeof LA100_RESET - 1);
 574: }
 575: 
 576: ln03_alter_background(sixmap, iw, ih)
 577: unsigned char (*sixmap)[];
 578: int iw;
 579: int ih;
 580: {
 581:     register int size;
 582:     register unsigned char *c, *stopc;
 583:     register unsigned char *startc;
 584:     register int n;
 585: 
 586:     c = (unsigned char *)sixmap;
 587:     stopc = c + (iw * ih);
 588:     n = 0;
 589:     while (c < stopc) {
 590:     switch (*c) {
 591:     case 0x08: case 0x11: case 0x04: case 0x22:
 592:     case 0x20: case 0x21: case 0x24: case 0x00:
 593:         if (n == 0) startc = c;
 594:         n++;
 595:         break;
 596: 
 597:     default:
 598:         if (n >= 2) {
 599:         while (n-- > 0) *startc++ = 0x00;
 600:         } else {
 601:         n = 0;
 602:         }
 603:         break;
 604:     }
 605:     c++;
 606:     }
 607: }
 608: 
 609: ln03_output_sixels(sixmap, iw, ih, nosixopt, split, scale, top_margin,
 610:            left_margin)
 611: unsigned char (*sixmap)[];
 612: int iw;
 613: int ih;
 614: int nosixopt;
 615: int split;
 616: int top_margin;
 617: int left_margin;
 618: {
 619:     unsigned char *buf;
 620:     register unsigned char *bp;
 621:     int i;
 622:     int j;
 623:     register int k;
 624:     register unsigned char *c;
 625:     register int lastc;
 626:     register int count;
 627:     char snum[6];
 628:     register char *snp;
 629: 
 630:     bp = (unsigned char *)malloc(iw*ih+512);
 631:     buf = bp;
 632:     count = 0;
 633:     lastc = -1;
 634:     c = (unsigned char *)sixmap;
 635:     split = ih / split;     /* number of lines per page */
 636: 
 637:     iw--;           /* optimization */
 638:     for (i = 0; i < ih; i++) {
 639:     for (j = 0; j <= iw; j++) {
 640:         if (!nosixopt) {
 641:         if (*c == lastc && j < iw) {
 642:             count++;
 643:             c++;
 644:             continue;
 645:         }
 646:         if (count >= 3) {
 647:             bp--;
 648:             count++;
 649:             *bp++ = '!';
 650:             snp = snum;
 651:             while (count > 0) {
 652:             k = count / 10;
 653:             *snp++ = count - (k * 10) + '0';
 654:             count = k;
 655:             }
 656:             while (--snp >= snum) *bp++ = *snp;
 657:             *bp++ = (~lastc & 0x3F) + 0x3F;
 658:         } else if (count > 0) {
 659:             lastc = (~lastc & 0x3F) + 0x3F;
 660:             do {
 661:             *bp++ = lastc;
 662:             } while (--count > 0);
 663:         }
 664:         }
 665:         lastc = *c++;
 666:         *bp++ = (~lastc & 0x3F) + 0x3F;
 667:     }
 668:     *bp++ = '-';        /* New line */
 669:     lastc = -1;
 670:     if ((i % split) == 0 && i != 0) {
 671:         sprintf(bp, LN_ST); bp += sizeof LN_ST - 1;
 672:         *bp++ = '\f';
 673:         sprintf(bp, LN_VPA, top_margin + (i * 6 * scale)); bp += strlen(bp);
 674:         sprintf(bp, LN_HPA, left_margin); bp += strlen(bp);
 675:         sprintf(bp, LN_SIXEL_GRAPHICS, 9, 0, scale); bp += strlen(bp);
 676:         sprintf(bp, "\"1;1"); bp += 4;
 677:     }
 678:     }
 679: 
 680:     sprintf(bp, LN_ST); bp += sizeof LN_ST - 1;
 681:     *bp++ = '\f';
 682:     write(1, buf, bp-buf);
 683: }
 684: 
 685: la100_output_sixels(sixmap, iw, ih)
 686: unsigned char (*sixmap)[];
 687: int iw;
 688: int ih;
 689: {
 690:     unsigned char *buf;
 691:     register unsigned char *bp;
 692:     int i;
 693:     register int j, k;
 694:     register unsigned char *c;
 695:     register int lastc;
 696:     register int count;
 697:     char snum[6];
 698: 
 699:     bp = (unsigned char *)malloc(iw*ih+512);
 700:     buf = bp;
 701:     count = 0;
 702:     lastc = -1;
 703:     c = (unsigned char *)sixmap;
 704: 
 705:     for (i = 0; i < ih; i++) {
 706:     for (j = 0; j < iw; j++) {
 707:         if (*c == lastc && (j+1) < iw) {
 708:         count++;
 709:         c++;
 710:         continue;
 711:         }
 712:         if (count >= 2) {
 713:         bp -= 2;
 714:         count = 2 * (count + 1);
 715:         *bp++ = '!';
 716:         k = 0;
 717:         while (count > 0) {
 718:             snum[k++] = (count % 10) + '0';
 719:             count /= 10;
 720:         }
 721:         while (--k >= 0) *bp++ = snum[k];
 722:         *bp++ = (~lastc & 0x3F) + 0x3F;
 723:         count = 0;
 724:         } else if (count > 0) {
 725:         lastc = (~lastc & 0x3F) + 0x3F;
 726:         do {
 727:             *bp++ = lastc;
 728:             *bp++ = lastc;
 729:         } while (--count > 0);
 730:         }
 731:         lastc = (~*c & 0x3F) + 0x3F;
 732:         *bp++ = lastc;
 733:         *bp++ = lastc;
 734:         lastc = *c++;
 735:     }
 736:     *bp++ = '-';        /* New line */
 737:     lastc = -1;
 738:     }
 739: 
 740:     sprintf(bp, LN_ST); bp += sizeof LN_ST - 1;
 741:     *bp++ = '\f';
 742:     write(1, buf, bp-buf);
 743: }

Defined functions

build_output_filename defined in line 453; never used
build_sixmap defined in line 379; used 1 times
  • in line 87
dump_sixmap defined in line 361; used 1 times
la100_finish defined in line 571; used 1 times
la100_output_sixels defined in line 685; used 1 times
  • in line 99
la100_setup defined in line 550; used 1 times
  • in line 98
ln03_alter_background defined in line 576; never used
ln03_finish defined in line 545; used 1 times
  • in line 96
ln03_grind_fonts defined in line 465; never used
ln03_output_sixels defined in line 609; used 1 times
  • in line 94
ln03_setup defined in line 475; used 1 times
  • in line 92
main defined in line 46; never used
parse_args defined in line 116; used 1 times
  • in line 66
setup_layout defined in line 312; used 1 times
  • in line 75

Defined variables

debug defined in line 21; never used
rcsid_xpr_c defined in line 11; never used

Defined enum's

device defined in line 23; used 8 times
orientation defined in line 24; used 6 times

Defined macros

F_APPEND defined in line 41; used 4 times
F_DUMP defined in line 39; used 2 times
F_LANDSCAPE defined in line 38; used 2 times
F_NOFF defined in line 42; used 2 times
F_NOSIXOPT defined in line 40; used 3 times
F_PORTRAIT defined in line 37; used 2 times
F_REPORT defined in line 43; used 2 times
H_MARGIN defined in line 29; used 2 times
H_MAX defined in line 27; used 4 times
H_PAGE defined in line 31; used 1 times
LA100_RESET defined in line 569; used 2 times
  • in line 573(2)
LN03_RESET defined in line 543; used 2 times
  • in line 547(2)
W_MARGIN defined in line 28; used 2 times
W_MAX defined in line 26; used 5 times
W_PAGE defined in line 30; used 1 times
min defined in line 34; used 2 times
Last modified: 1986-03-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 2262
Valid CSS Valid XHTML 1.0 Strict