src/meta/meta2tga.c

#ifndef lint
static const char       RCSid[] = "$Id$";
#endif
/*
 *  Program to convert meta-files to Targa 8-bit color-mapped format
 */


#define  MAXALLOC  5000

#define  DXSIZE  400            /* default x resolution */

#define  DYSIZE  400            /* default y resolution */

#define  XCOM  "pexpand +vOCImsp -DP %s | psort +y"


#include  "meta.h"

#include  "plot.h"

#include  "rast.h"

#include  "targa.h"


char  *progname;

SCANBLOCK       outblock;

int  dxsize = DXSIZE, dysize = DYSIZE;

int  maxalloc = MAXALLOC;

int  ydown = 0;

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

static FILE  *fout;

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);
}


main(argc, argv)

int  argc;
char  **argv;

{
 FILE  *fp;
#ifdef  UNIX
 FILE  *popen();
#endif
 char  comargs[200], command[300];

#ifdef  CPM
 fixargs("meta2tga", &argc, &argv);
#endif

  fout = stdout;
 progname = *argv++;
 argc--;

 condonly = FALSE;
#ifdef  CPM
 conditioned = TRUE;
#else
 conditioned = FALSE;
#endif
 
 while (argc && **argv == '-')  {
    switch (*(*argv+1))  {
#ifdef  UNIX
       case 'c':
          condonly = TRUE;
          break;
       case 'r':
          conditioned = TRUE;
          break;
#endif
       case 'm':
          minwidth = atoi(*++argv);
          argc--;
          break;
       case 'x':
          dxsize = atoi(*++argv);
          argc--;
          break;
       case 'y':
          dysize = 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);
#ifdef  UNIX
    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();
       }
#endif
    }

 return(0);
 }


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


initfile()              /* initialize this file */
{
    static int  filenum = 0;
    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};
    struct hdStruct  thead;
    register int  i;

    if (outtack != NULL) {
        sprintf(outtack, "%d.tga", ++filenum);
        fout = efopen(outname, "w");
    }
    if (fout == NULL)
        error(USER, "no output file");
    thead.mapType = CM_HASMAP;
    thead.dataType = IM_CCMAP;
    thead.mapOrig = 0;
    thead.mapLength = 256;
    thead.CMapBits = 24;
    thead.XOffset = 0;
    thead.YOffset = 0;
    thead.x = dxsize;
    thead.y = dysize;
    thead.dataBits = 8;
    thead.imType = 0;
    putthead(&thead, NULL, fout);
    for (i = 0; i < 8*3; i++)
        putc(cmap[i], fout);
    while (i++ < 256*3)
        putc(0, fout);
}


nextpage()              /* advance to next page */

{

    if (lineno == 0)
        return;
    if (fout != NULL) {
        while (lineno < dysize) {
            nextblock();
            outputblock();
        }
        fclose(fout);
        fout = NULL;
    }
    lineno = 0;

}


#define MINRUN  4


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

{
    int  i, c2;
    register unsigned char  *scanline;
    register int  j, beg, cnt;

    if (lineno == 0)
        initfile();
    for (i = outblock.ybot; i <= outblock.ytop && i < dysize; i++) {
        scanline = outblock.cols[i-outblock.ybot];
        for (j = outblock.xleft; j <= outblock.xright; j += cnt) {
            for (beg = j; beg <= outblock.xright; beg += cnt) {
                for (cnt = 1; cnt < 128 && beg+cnt <= outblock.xright &&
                        scanline[beg+cnt] == scanline[beg]; cnt++)
                    ;
                if (cnt >= MINRUN)
                    break;                      /* long enough */
            }
            while (j < beg) {           /* write out non-run */
                if ((c2 = beg-j) > 128) c2 = 128;
                putc(c2-1, fout);
                while (c2--)
                    putc(scanline[j++], fout);
            }
            if (cnt >= MINRUN) {                /* write out run */
                putc(127+cnt, fout);
                putc(scanline[beg], fout);
            } else
                cnt = 0;
        }
        lineno++;
    }
    
}


putint2(i, fp)                  /* put a 2-byte positive integer */
register int  i;
register FILE   *fp;
{
        putc(i&0xff, fp);
        putc(i>>8&0xff, fp);
}


putthead(hp, ip, fp)            /* write header to output */
struct hdStruct  *hp;
char  *ip;
register FILE  *fp;
{
        if (ip != NULL)
                putc(strlen(ip), fp);
        else
                putc(0, fp);
        putc(hp->mapType, fp);
        putc(hp->dataType, fp);
        putint2(hp->mapOrig, fp);
        putint2(hp->mapLength, fp);
        putc(hp->CMapBits, fp);
        putint2(hp->XOffset, fp);
        putint2(hp->YOffset, fp);
        putint2(hp->x, fp);
        putint2(hp->y, fp);
        putc(hp->dataBits, fp);
        putc(hp->imType, fp);

        if (ip != NULL)
                fputs(ip, fp);

        return(ferror(fp) ? -1 : 0);
}
Revision:	1.1
Committed:	Sat Feb 22 02:07:26 2003 UTC (21 years, 2 months ago) by greg
Content type:	text/plain
Branch:	MAIN
CVS Tags:	rad3R5
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	User	Rev	Content
1	greg	1.1	#ifndef lint
2			static const char RCSid[] = "$Id$";
3			#endif
4			/*
5			* Program to convert meta-files to Targa 8-bit color-mapped format
6			*/
7
8
9			#define MAXALLOC 5000
10
11			#define DXSIZE 400 /* default x resolution */
12
13			#define DYSIZE 400 /* default y resolution */
14
15			#define XCOM "pexpand +vOCImsp -DP %s \| psort +y"
16
17
18
19
20			#include "meta.h"
21
22			#include "plot.h"
23
24			#include "rast.h"
25
26			#include "targa.h"
27
28
29
30
31			char *progname;
32
33			SCANBLOCK outblock;
34
35			int dxsize = DXSIZE, dysize = DYSIZE;
36
37			int maxalloc = MAXALLOC;
38
39			int ydown = 0;
40
41			static char outname[64];
42			static char *outtack = NULL;
43
44			static FILE *fout;
45
46			static int lineno = 0;
47
48			static short condonly = FALSE,
49			conditioned = FALSE;
50
51			char *
52			findtack(s) /* find place to tack on suffix */
53			register char *s;
54			{
55			while (s && s != '.')
56			s++;
57			return(s);
58			}
59
60
61			main(argc, argv)
62
63			int argc;
64			char **argv;
65
66			{
67			FILE *fp;
68			#ifdef UNIX
69			FILE *popen();
70			#endif
71			char comargs[200], command[300];
72
73			#ifdef CPM
74			fixargs("meta2tga", &argc, &argv);
75			#endif
76
77			fout = stdout;
78			progname = *argv++;
79			argc--;
80
81			condonly = FALSE;
82			#ifdef CPM
83			conditioned = TRUE;
84			#else
85			conditioned = FALSE;
86			#endif
87
88			while (argc && **argv == '-') {
89			switch ((argv+1)) {
90			#ifdef UNIX
91			case 'c':
92			condonly = TRUE;
93			break;
94			case 'r':
95			conditioned = TRUE;
96			break;
97			#endif
98			case 'm':
99			minwidth = atoi(*++argv);
100			argc--;
101			break;
102			case 'x':
103			dxsize = atoi(*++argv);
104			argc--;
105			break;
106			case 'y':
107			dysize = atoi(*++argv);
108			argc--;
109			break;
110			case 'o':
111			strcpy(outname, *++argv);
112			outtack = findtack(outname);
113			argc--;
114			break;
115			default:
116			error(WARNING, "unknown option");
117			break;
118			}
119			argv++;
120			argc--;
121			}
122
123			if (conditioned) {
124			if (argc)
125			while (argc) {
126			fp = efopen(*argv, "r");
127			plot(fp);
128			fclose(fp);
129			argv++;
130			argc--;
131			}
132			else
133			plot(stdin);
134			if (lineno)
135			nextpage();
136			} else {
137			comargs[0] = '\0';
138			while (argc) {
139			strcat(comargs, " ");
140			strcat(comargs, *argv);
141			argv++;
142			argc--;
143			}
144			sprintf(command, XCOM, comargs);
145			#ifdef UNIX
146			if (condonly)
147			return(system(command));
148			else {
149			if ((fp = popen(command, "r")) == NULL)
150			error(SYSTEM, "cannot execute input filter");
151			plot(fp);
152			pclose(fp);
153			if (lineno)
154			nextpage();
155			}
156			#endif
157			}
158
159			return(0);
160			}
161
162
163
164
165
166
167			thispage() /* rewind current file */
168			{
169			if (lineno)
170			error(USER, "cannot restart page in thispage");
171			}
172
173
174
175			initfile() /* initialize this file */
176			{
177			static int filenum = 0;
178			static unsigned char cmap[24] = {255,255,255, 255,152,0, 0,188,0, 0,0,255,
179			179,179,0, 255,0,255, 0,200,200, 0,0,0};
180			struct hdStruct thead;
181			register int i;
182
183			if (outtack != NULL) {
184			sprintf(outtack, "%d.tga", ++filenum);
185			fout = efopen(outname, "w");
186			}
187			if (fout == NULL)
188			error(USER, "no output file");
189			thead.mapType = CM_HASMAP;
190			thead.dataType = IM_CCMAP;
191			thead.mapOrig = 0;
192			thead.mapLength = 256;
193			thead.CMapBits = 24;
194			thead.XOffset = 0;
195			thead.YOffset = 0;
196			thead.x = dxsize;
197			thead.y = dysize;
198			thead.dataBits = 8;
199			thead.imType = 0;
200			putthead(&thead, NULL, fout);
201			for (i = 0; i < 8*3; i++)
202			putc(cmap[i], fout);
203			while (i++ < 256*3)
204			putc(0, fout);
205			}
206
207
208
209
210			nextpage() /* advance to next page */
211
212			{
213
214			if (lineno == 0)
215			return;
216			if (fout != NULL) {
217			while (lineno < dysize) {
218			nextblock();
219			outputblock();
220			}
221			fclose(fout);
222			fout = NULL;
223			}
224			lineno = 0;
225
226			}
227
228
229
230			#define MINRUN 4
231
232
233			printblock() /* output scanline block to file */
234
235			{
236			int i, c2;
237			register unsigned char *scanline;
238			register int j, beg, cnt;
239
240			if (lineno == 0)
241			initfile();
242			for (i = outblock.ybot; i <= outblock.ytop && i < dysize; i++) {
243			scanline = outblock.cols[i-outblock.ybot];
244			for (j = outblock.xleft; j <= outblock.xright; j += cnt) {
245			for (beg = j; beg <= outblock.xright; beg += cnt) {
246			for (cnt = 1; cnt < 128 && beg+cnt <= outblock.xright &&
247			scanline[beg+cnt] == scanline[beg]; cnt++)
248			;
249			if (cnt >= MINRUN)
250			break; /* long enough */
251			}
252			while (j < beg) { /* write out non-run */
253			if ((c2 = beg-j) > 128) c2 = 128;
254			putc(c2-1, fout);
255			while (c2--)
256			putc(scanline[j++], fout);
257			}
258			if (cnt >= MINRUN) { /* write out run */
259			putc(127+cnt, fout);
260			putc(scanline[beg], fout);
261			} else
262			cnt = 0;
263			}
264			lineno++;
265			}
266
267			}
268
269
270			putint2(i, fp) /* put a 2-byte positive integer */
271			register int i;
272			register FILE *fp;
273			{
274			putc(i&0xff, fp);
275			putc(i>>8&0xff, fp);
276			}
277
278
279			putthead(hp, ip, fp) /* write header to output */
280			struct hdStruct *hp;
281			char *ip;
282			register FILE *fp;
283			{
284			if (ip != NULL)
285			putc(strlen(ip), fp);
286			else
287			putc(0, fp);
288			putc(hp->mapType, fp);
289			putc(hp->dataType, fp);
290			putint2(hp->mapOrig, fp);
291			putint2(hp->mapLength, fp);
292			putc(hp->CMapBits, fp);
293			putint2(hp->XOffset, fp);
294			putint2(hp->YOffset, fp);
295			putint2(hp->x, fp);
296			putint2(hp->y, fp);
297			putc(hp->dataBits, fp);
298			putc(hp->imType, fp);
299
300			if (ip != NULL)
301			fputs(ip, fp);
302
303			return(ferror(fp) ? -1 : 0);
304			}