src/meta/meta2bmp.c

#ifndef lint
static const char RCSid[] = "$Id: meta2bmp.c,v 1.3 2019/03/19 19:34:41 greg Exp $";
#endif
/*
 *  Program to convert meta-files to BMP 8-bit color-mapped format
 */

#include  "copyright.h"

#include  "rtprocess.h"
#include  "meta.h"
#include  "plot.h"
#include  "rast.h"
#include  "bmpfile.h"
#include  "targa.h"

#define  MAXALLOC  100000
#define  DXSIZE  400            /* default x resolution */
#define  DYSIZE  400            /* default y resolution */
#define  XCOM  "pexpand +vOCImsp -DP %s | psort +y"


char  *progname;

SCANBLOCK       outblock;

int  dxsiz = DXSIZE, dysiz = DYSIZE;

int  maxalloc = MAXALLOC;

int  ydown = 0;

static char  outname[64];
static char  *outtack = NULL;

static BMPWriter  *bmpw = NULL;

static int  lineno = 0;

static short  condonly = FALSE,
              conditioned = FALSE;


char *
findtack(s)                     /* find place to tack on suffix */
register char *s;
{
        while (*s && *s != '.')
                s++;
        return(s);
}


int
main(
        int  argc,
        char  **argv
)

{
 FILE  *fp;
 char  comargs[200], command[300];

 progname = *argv++;
 argc--;

 condonly = FALSE;
 conditioned = FALSE;
 
 while (argc && **argv == '-')  {
    switch (*(*argv+1))  {
       case 'c':
          condonly = TRUE;
          break;
       case 'r':
          conditioned = TRUE;
          break;
       case 'm':
          minwidth = atoi(*++argv);
          argc--;
          break;
       case 'x':
          dxsiz = atoi(*++argv);
          argc--;
          break;
       case 'y':
          dysiz = atoi(*++argv);
          argc--;
          break;
       case 'o':
          strcpy(outname, *++argv);
          outtack = findtack(outname);
          argc--;
          break;
       default:
          error(WARNING, "unknown option");
          break;
       }
    argv++;
    argc--;
    }

 if (conditioned) {
    if (argc)
       while (argc)  {
          fp = efopen(*argv, "r");
          plot(fp);
          fclose(fp);
          argv++;
          argc--;
          }
    else
       plot(stdin);
    if (lineno)
        nextpage();
 } else  {
    comargs[0] = '\0';
    while (argc)  {
       strcat(comargs, " ");
       strcat(comargs, *argv);
       argv++;
       argc--;
       }
    sprintf(command, XCOM, comargs);
    if (condonly)
       return(system(command));
    else  {
       if ((fp = popen(command, "r")) == NULL)
          error(SYSTEM, "cannot execute input filter");
       plot(fp);
       pclose(fp);
       if (lineno)
          nextpage();
       }
    }

 return(0);
 }


void
thispage(void)          /* rewind current file */
{
    if (lineno)
        error(USER, "cannot restart page in thispage");
}


void
initfile(void)          /* initialize this file */
{
    /*
    static unsigned char  cmap[24] = {255,255,255, 255,152,0, 0,188,0, 0,0,255,
                        179,179,0, 255,0,255, 0,200,200, 0,0,0};
     */
    static const unsigned char  cmap[8][3] = {{0,0,0}, {0,0,255}, {0,188,0},
                {255,152,0}, {0,200,200}, {255,0,255}, {179,179,0}, {255,255,255}};
    static int  filenum = 0;
    BMPHeader  *hp;
    register int  i;

    hp = BMPmappedHeader(dxsiz, dysiz, 0, 256);
    hp->compr = BI_RLE8;
    if (hp == NULL)
        error(USER, "Illegal image parameter(s)");
    for (i = 0; i < 8; i++) {
        hp->palette[i].r = cmap[i][2];
        hp->palette[i].g = cmap[i][1];
        hp->palette[i].b = cmap[i][0];
    }
    hp->impColors = 8;
    if (outtack != NULL) {
        sprintf(outtack, "%d.bmp", ++filenum);
        bmpw = BMPopenOutputFile(outname, hp);
    } else {
        bmpw = BMPopenOutputStream(stdout, hp);
    }
    if (bmpw == NULL)
        error(USER, "Cannot create output");
}


void
nextpage(void)          /* advance to next page */

{

    if (lineno == 0)
        return;
    if (bmpw != NULL) {
        while (lineno < dysiz) {
            nextblock();
            outputblock();
        }
        BMPcloseOutput(bmpw);
        bmpw = NULL;
    }
    lineno = 0;

}


#define MINRUN  4

extern void
printblock(void)                /* output scanline block to file */

{
    int  i;
    register unsigned char  *scanline;

    if (lineno == 0)
        initfile();
    for (i = outblock.ybot; i <= outblock.ytop && i < dysiz; i++) {
        scanline = outblock.cols[i-outblock.ybot] + outblock.xleft;
        memcpy((void *)bmpw->scanline, (void *)scanline,
                        sizeof(uint8)*(outblock.xright-outblock.xleft+1));
        if (BMPwriteScanline(bmpw) != BIR_OK)
                error(SYSTEM, "Error writing BMP file");
        lineno++;
    }
    
}
Revision:	1.4
Committed:	Mon Nov 18 22:12:32 2019 UTC (5 years, 11 months ago) by greg
Content type:	text/plain
Branch:	MAIN
Changes since 1.3:	+7 -7 lines
Log Message:	Renamed "dysize" to avoid Linux library conflict
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2	greg	1.4	static const char RCSid[] = "$Id: meta2bmp.c,v 1.3 2019/03/19 19:34:41 greg Exp $";
3	greg	1.1	#endif
4			/*
5			* Program to convert meta-files to BMP 8-bit color-mapped format
6			*/
7
8			#include "copyright.h"
9
10			#include "rtprocess.h"
11			#include "meta.h"
12			#include "plot.h"
13			#include "rast.h"
14			#include "bmpfile.h"
15	schorsch	1.2	#include "targa.h"
16	greg	1.1
17	greg	1.3	#define MAXALLOC 100000
18	greg	1.1	#define DXSIZE 400 /* default x resolution */
19			#define DYSIZE 400 /* default y resolution */
20			#define XCOM "pexpand +vOCImsp -DP %s \| psort +y"
21
22
23			char *progname;
24
25			SCANBLOCK outblock;
26
27	greg	1.4	int dxsiz = DXSIZE, dysiz = DYSIZE;
28	greg	1.1
29			int maxalloc = MAXALLOC;
30
31			int ydown = 0;
32
33			static char outname[64];
34			static char *outtack = NULL;
35
36			static BMPWriter *bmpw = NULL;
37
38			static int lineno = 0;
39
40			static short condonly = FALSE,
41			conditioned = FALSE;
42
43
44
45
46			char *
47			findtack(s) /* find place to tack on suffix */
48			register char *s;
49			{
50			while (s && s != '.')
51			s++;
52			return(s);
53			}
54
55
56			int
57			main(
58			int argc,
59			char **argv
60			)
61
62			{
63			FILE *fp;
64			char comargs[200], command[300];
65
66			progname = *argv++;
67			argc--;
68
69			condonly = FALSE;
70			conditioned = FALSE;
71
72			while (argc && **argv == '-') {
73			switch ((argv+1)) {
74			case 'c':
75			condonly = TRUE;
76			break;
77			case 'r':
78			conditioned = TRUE;
79			break;
80			case 'm':
81			minwidth = atoi(*++argv);
82			argc--;
83			break;
84			case 'x':
85	greg	1.4	dxsiz = atoi(*++argv);
86	greg	1.1	argc--;
87			break;
88			case 'y':
89	greg	1.4	dysiz = atoi(*++argv);
90	greg	1.1	argc--;
91			break;
92			case 'o':
93			strcpy(outname, *++argv);
94			outtack = findtack(outname);
95			argc--;
96			break;
97			default:
98			error(WARNING, "unknown option");
99			break;
100			}
101			argv++;
102			argc--;
103			}
104
105			if (conditioned) {
106			if (argc)
107			while (argc) {
108			fp = efopen(*argv, "r");
109			plot(fp);
110			fclose(fp);
111			argv++;
112			argc--;
113			}
114			else
115			plot(stdin);
116			if (lineno)
117			nextpage();
118			} else {
119			comargs[0] = '\0';
120			while (argc) {
121			strcat(comargs, " ");
122			strcat(comargs, *argv);
123			argv++;
124			argc--;
125			}
126			sprintf(command, XCOM, comargs);
127			if (condonly)
128			return(system(command));
129			else {
130			if ((fp = popen(command, "r")) == NULL)
131			error(SYSTEM, "cannot execute input filter");
132			plot(fp);
133			pclose(fp);
134			if (lineno)
135			nextpage();
136			}
137			}
138
139			return(0);
140			}
141
142
143
144			void
145			thispage(void) /* rewind current file */
146			{
147			if (lineno)
148			error(USER, "cannot restart page in thispage");
149			}
150
151
152			void
153			initfile(void) /* initialize this file */
154			{
155			/*
156			static unsigned char cmap[24] = {255,255,255, 255,152,0, 0,188,0, 0,0,255,
157			179,179,0, 255,0,255, 0,200,200, 0,0,0};
158			*/
159	schorsch	1.2	static const unsigned char cmap[8][3] = {{0,0,0}, {0,0,255}, {0,188,0},
160			{255,152,0}, {0,200,200}, {255,0,255}, {179,179,0}, {255,255,255}};
161	greg	1.1	static int filenum = 0;
162			BMPHeader *hp;
163			register int i;
164
165	greg	1.4	hp = BMPmappedHeader(dxsiz, dysiz, 0, 256);
166	greg	1.1	hp->compr = BI_RLE8;
167			if (hp == NULL)
168			error(USER, "Illegal image parameter(s)");
169			for (i = 0; i < 8; i++) {
170			hp->palette[i].r = cmap[i][2];
171			hp->palette[i].g = cmap[i][1];
172			hp->palette[i].b = cmap[i][0];
173			}
174			hp->impColors = 8;
175			if (outtack != NULL) {
176			sprintf(outtack, "%d.bmp", ++filenum);
177			bmpw = BMPopenOutputFile(outname, hp);
178			} else {
179			bmpw = BMPopenOutputStream(stdout, hp);
180			}
181			if (bmpw == NULL)
182			error(USER, "Cannot create output");
183			}
184
185
186
187			void
188			nextpage(void) /* advance to next page */
189
190			{
191
192			if (lineno == 0)
193			return;
194			if (bmpw != NULL) {
195	greg	1.4	while (lineno < dysiz) {
196	greg	1.1	nextblock();
197			outputblock();
198			}
199			BMPcloseOutput(bmpw);
200			bmpw = NULL;
201			}
202			lineno = 0;
203
204			}
205
206
207
208			#define MINRUN 4
209
210			extern void
211			printblock(void) /* output scanline block to file */
212
213			{
214	schorsch	1.2	int i;
215	greg	1.1	register unsigned char *scanline;
216
217			if (lineno == 0)
218			initfile();
219	greg	1.4	for (i = outblock.ybot; i <= outblock.ytop && i < dysiz; i++) {
220	greg	1.1	scanline = outblock.cols[i-outblock.ybot] + outblock.xleft;
221			memcpy((void )bmpw->scanline, (void )scanline,
222			sizeof(uint8)*(outblock.xright-outblock.xleft+1));
223			if (BMPwriteScanline(bmpw) != BIR_OK)
224			error(SYSTEM, "Error writing BMP file");
225			lineno++;
226			}
227
228			}