ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/meta/meta2tga.c
Revision: 1.2
Committed: Fri Aug 1 14:14:24 2003 UTC (21 years, 3 months ago) by schorsch
Content type: text/plain
Branch: MAIN
Changes since 1.1: +1 -15 lines
Log Message:
Eliminated CPM, MAC, and UNIX conditional compiles.

File Contents

# User Rev Content
1 greg 1.1 #ifndef lint
2 schorsch 1.2 static const char RCSid[] = "$Id: meta2tga.c,v 1.1 2003/02/22 02:07:26 greg Exp $";
3 greg 1.1 #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     FILE *popen();
69     char comargs[200], command[300];
70    
71     fout = stdout;
72     progname = *argv++;
73     argc--;
74    
75     condonly = FALSE;
76     conditioned = FALSE;
77    
78     while (argc && **argv == '-') {
79     switch (*(*argv+1)) {
80     case 'c':
81     condonly = TRUE;
82     break;
83     case 'r':
84     conditioned = TRUE;
85     break;
86     case 'm':
87     minwidth = atoi(*++argv);
88     argc--;
89     break;
90     case 'x':
91     dxsize = atoi(*++argv);
92     argc--;
93     break;
94     case 'y':
95     dysize = atoi(*++argv);
96     argc--;
97     break;
98     case 'o':
99     strcpy(outname, *++argv);
100     outtack = findtack(outname);
101     argc--;
102     break;
103     default:
104     error(WARNING, "unknown option");
105     break;
106     }
107     argv++;
108     argc--;
109     }
110    
111     if (conditioned) {
112     if (argc)
113     while (argc) {
114     fp = efopen(*argv, "r");
115     plot(fp);
116     fclose(fp);
117     argv++;
118     argc--;
119     }
120     else
121     plot(stdin);
122     if (lineno)
123     nextpage();
124     } else {
125     comargs[0] = '\0';
126     while (argc) {
127     strcat(comargs, " ");
128     strcat(comargs, *argv);
129     argv++;
130     argc--;
131     }
132     sprintf(command, XCOM, comargs);
133     if (condonly)
134     return(system(command));
135     else {
136     if ((fp = popen(command, "r")) == NULL)
137     error(SYSTEM, "cannot execute input filter");
138     plot(fp);
139     pclose(fp);
140     if (lineno)
141     nextpage();
142     }
143     }
144    
145     return(0);
146     }
147    
148    
149    
150    
151    
152    
153     thispage() /* rewind current file */
154     {
155     if (lineno)
156     error(USER, "cannot restart page in thispage");
157     }
158    
159    
160    
161     initfile() /* initialize this file */
162     {
163     static int filenum = 0;
164     static unsigned char cmap[24] = {255,255,255, 255,152,0, 0,188,0, 0,0,255,
165     179,179,0, 255,0,255, 0,200,200, 0,0,0};
166     struct hdStruct thead;
167     register int i;
168    
169     if (outtack != NULL) {
170     sprintf(outtack, "%d.tga", ++filenum);
171     fout = efopen(outname, "w");
172     }
173     if (fout == NULL)
174     error(USER, "no output file");
175     thead.mapType = CM_HASMAP;
176     thead.dataType = IM_CCMAP;
177     thead.mapOrig = 0;
178     thead.mapLength = 256;
179     thead.CMapBits = 24;
180     thead.XOffset = 0;
181     thead.YOffset = 0;
182     thead.x = dxsize;
183     thead.y = dysize;
184     thead.dataBits = 8;
185     thead.imType = 0;
186     putthead(&thead, NULL, fout);
187     for (i = 0; i < 8*3; i++)
188     putc(cmap[i], fout);
189     while (i++ < 256*3)
190     putc(0, fout);
191     }
192    
193    
194    
195    
196     nextpage() /* advance to next page */
197    
198     {
199    
200     if (lineno == 0)
201     return;
202     if (fout != NULL) {
203     while (lineno < dysize) {
204     nextblock();
205     outputblock();
206     }
207     fclose(fout);
208     fout = NULL;
209     }
210     lineno = 0;
211    
212     }
213    
214    
215    
216     #define MINRUN 4
217    
218    
219     printblock() /* output scanline block to file */
220    
221     {
222     int i, c2;
223     register unsigned char *scanline;
224     register int j, beg, cnt;
225    
226     if (lineno == 0)
227     initfile();
228     for (i = outblock.ybot; i <= outblock.ytop && i < dysize; i++) {
229     scanline = outblock.cols[i-outblock.ybot];
230     for (j = outblock.xleft; j <= outblock.xright; j += cnt) {
231     for (beg = j; beg <= outblock.xright; beg += cnt) {
232     for (cnt = 1; cnt < 128 && beg+cnt <= outblock.xright &&
233     scanline[beg+cnt] == scanline[beg]; cnt++)
234     ;
235     if (cnt >= MINRUN)
236     break; /* long enough */
237     }
238     while (j < beg) { /* write out non-run */
239     if ((c2 = beg-j) > 128) c2 = 128;
240     putc(c2-1, fout);
241     while (c2--)
242     putc(scanline[j++], fout);
243     }
244     if (cnt >= MINRUN) { /* write out run */
245     putc(127+cnt, fout);
246     putc(scanline[beg], fout);
247     } else
248     cnt = 0;
249     }
250     lineno++;
251     }
252    
253     }
254    
255    
256     putint2(i, fp) /* put a 2-byte positive integer */
257     register int i;
258     register FILE *fp;
259     {
260     putc(i&0xff, fp);
261     putc(i>>8&0xff, fp);
262     }
263    
264    
265     putthead(hp, ip, fp) /* write header to output */
266     struct hdStruct *hp;
267     char *ip;
268     register FILE *fp;
269     {
270     if (ip != NULL)
271     putc(strlen(ip), fp);
272     else
273     putc(0, fp);
274     putc(hp->mapType, fp);
275     putc(hp->dataType, fp);
276     putint2(hp->mapOrig, fp);
277     putint2(hp->mapLength, fp);
278     putc(hp->CMapBits, fp);
279     putint2(hp->XOffset, fp);
280     putint2(hp->YOffset, fp);
281     putint2(hp->x, fp);
282     putint2(hp->y, fp);
283     putc(hp->dataBits, fp);
284     putc(hp->imType, fp);
285    
286     if (ip != NULL)
287     fputs(ip, fp);
288    
289     return(ferror(fp) ? -1 : 0);
290     }