Return to rastlib.c CVS log

Up to [Research Unix] / researchv10no / cmd / bcp

Annotation of researchv10no/cmd/bcp/rastlib.c, revision 1.1

1.1     ! root        1: /* Copyright (c) 1989, 1990 AT&T --- All Rights Reserved.              */
        !             2: /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T.                */
        !             3: /* The copyright notice does not imply actual or intended publication. */
        !             4: /* AUTHORS:                                            */
        !             5: /*     T. Thompson - ATT-BL HO - first version         */
        !             6: /* Routines for generating PostScript from RLE. */
        !             7: /* The routines at the bottom of this file, which */
        !             8: /* do the actual conversion to postscript, were */
        !             9: /* take from 'sun2ps'.  The original header */
        !            10: /* giving credit to its authors is there. */
        !            11: 
        !            12: /* The 'binary' version of the output is collected in a */
        !            13: /* temporary file, which is then fed back to the routines */
        !            14: /* that generate postscript in a run-length-encoded form. */
        !            15: /* Ideally it should just convert the original run-length */
        !            16: /* encoding directly, but this is just a hack.  The REAL */
        !            17: /* bottleneck is the PostScript printer, of course.  */
        !            18: /* Printing an 800 by 800 pixel image takes 5 minutes. */
        !            19: 
        !            20: #include <stdio.h>
        !            21: #include <math.h>
        !            22: #include <string.h>
        !            23: #include "CPU.h"
        !            24: #include "boole.h"
        !            25: #include "limits.h"     /* numeric extreme values */
        !            26: #include "Units.h"
        !            27: #include "Coord.h"
        !            28: #include "pic.h"
        !            29: #include <sys/types.h>
        !            30: #include <suntool/sunview.h>
        !            31: #include <pixrect/pixrect.h>
        !            32: #include <pixrect/pr_io.h>
        !            33: 
        !            34: int Raswidth;
        !            35: int Raslength;
        !            36: extern char Revbyte[256];
        !            37: extern char Revnib[16];
        !            38: 
        !            39: static FILE *fout;
        !            40:  
        !            41: void
        !            42: RAST_start(h)
        !            43: PIC_hdr *h;
        !            44: {
        !            45:        int n, v;
        !            46:        struct rasterfile rh;
        !            47: 
        !            48:        /* build a table of reversed bytes */
        !            49:        for ( n=0; n<256; n++ )
        !            50:                Revbyte[n] = Revnib[(n>>4)&0xf] | Revnib[n&0xf]<<4;
        !            51: 
        !            52:        fout = h->fp;
        !            53:        h->bpl = (h->bpl+7)/8;
        !            54:        Raslength = h->bpl * h->bx.b.y;
        !            55:        Raswidth = h->bx.b.x;
        !            56: 
        !            57:        rh.ras_magic = RAS_MAGIC;
        !            58:        rh.ras_width = h->bx.b.x;
        !            59:        rh.ras_height = h->bx.b.y;
        !            60:        rh.ras_depth = 1;
        !            61:        rh.ras_length = Raslength;
        !            62:        rh.ras_type = RT_STANDARD;
        !            63:        rh.ras_maptype = RMT_NONE;
        !            64:        rh.ras_maplength = 0;
        !            65:        pr_dump_header(fout,&rh,(colormap_t*)0);
        !            66: }
        !            67: 
        !            68: void
        !            69: RAST_end()
        !            70: {
        !            71: }
        !            72: 
        !            73: /* write a full line of picture data, returning status:  1 OK, 0 EOF,
        !            74: -1 ERR */
        !            75: int RAST_wline(h,line)
        !            76:     PIC_hdr *h;
        !            77:     unsigned char *line;
        !            78: {   int stat;
        !            79:        int n;
        !            80: 
        !            81:        for ( n=h->bpl; n>0; n-- ) {
        !            82:                if ( putc(Revbyte[*line++],fout) == EOF )
        !            83:                        break;
        !            84:        }
        !            85:        if ( n == 0 ) {
        !            86:                 h->seek += h->bpl;
        !            87:                 h->cy++;
        !            88:                 return(1);
        !            89:                 }
        !            90:         else { /* ERR */
        !            91:                 err("write to fd%d stat%d",fileno(h->fp),stat);
        !            92:                 if((stat>=0)&&(stat<h->bpl)) return(0 /*EOF*/);
        !            93:                 else return(-1);
        !            94:                 };
        !            95:         }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.