ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/vgaimage.c
Revision: 2.1
Committed: Tue Oct 13 17:42:07 1992 UTC (31 years, 6 months ago) by greg
Content type: text/plain
Branch: MAIN
Log Message:
Initial revision

File Contents

# Content
1 /* Copyright (c) 1992 Regents of the University of California */
2
3 #ifndef lint
4 static char SCCSid[] = "$SunId$ LBL";
5 #endif
6
7 /*
8 * vgaimage.c - driver for VGA board under DOS
9 */
10
11 #include "standard.h"
12 #include <graph.h>
13 #include "color.h"
14 #include "random.h"
15 #include "resolu.h"
16 #include <dos.h>
17 #include <i86.h>
18
19 #define M_RDOWN 0x8
20 #define M_RUP 0x10
21 #define M_LDOWN 0x2
22 #define M_LUP 0x4
23 #define M_MOTION 0x1
24
25 int crad;
26 #define right_button (mouse_event & M_RIGHTBUTT)
27 #define left_button (mouse_event & M_LEFTBUTT)
28 int mouse_event = 0;
29 int mouse_xpos = -1;
30 int mouse_ypos = -1;
31
32
33 #define CTRL(c) ((c)-'@')
34
35 #define MAXWIDTH 1024
36 #define MAXHEIGHT 768
37
38 short ourblack = 0; ourwhite = 1;
39
40 double gamcor = 2.2; /* gamma correction */
41
42 int dither = 1; /* dither colors? */
43
44 int maxcolors = 0; /* maximum colors */
45 int minpix = 0; /* minimum pixel value */
46 int greyscale = 0; /* in grey */
47
48 int scale = 0; /* scalefactor; power of two */
49
50 COLR scanline[MAXWIDTH]; /* scan line buffer */
51
52 int xmax, ymax; /* picture dimensions */
53 FILE *fin = stdin; /* input file */
54 long scanpos[MAXHEIGHT]; /* scan line positions in file */
55 int cury = 0; /* current scan location */
56
57 double exposure = 1.0; /* exposure compensation used */
58
59 int wrongformat = 0; /* input in another format? */
60
61 struct {
62 int xmin, ymin, xsiz, ysiz;
63 } box = {0, 0, 0, 0}; /* current box */
64
65 int initialized = 0;
66 int cheight, cwidth;
67
68 #define postext(x,y) _settextposition(1+(y)/cheight,1+(x)/cwidth)
69
70 char *progname;
71
72 char errmsg[128];
73
74 extern BYTE clrtab[256][3]; /* global color map */
75
76 extern long ftell();
77
78
79 main(argc, argv)
80 int argc;
81 char *argv[];
82 {
83 extern char *getenv(), *fixargv0();
84 char *gv;
85 int headline();
86 int i;
87
88 progname = argv[0] = fixargv0(argv[0]);
89 if ((gv = getenv("GAMMA")) != NULL)
90 gamcor = atof(gv);
91
92 for (i = 1; i < argc; i++)
93 if (argv[i][0] == '-')
94 switch (argv[i][1]) {
95 case 'c':
96 maxcolors = atoi(argv[++i]);
97 break;
98 case 'b':
99 greyscale = !greyscale;
100 break;
101 case 'm':
102 maxcolors = 2;
103 break;
104 case 'd':
105 dither = !dither;
106 break;
107 case 'e':
108 if (argv[i+1][0] != '+' && argv[i+1][0] != '-')
109 goto userr;
110 scale = atoi(argv[++i]);
111 break;
112 case 'g':
113 gamcor = atof(argv[++i]);
114 break;
115 default:
116 goto userr;
117 }
118 else
119 break;
120
121 if (i == argc-1) { /* open picture */
122 fin = fopen(argv[i], "r");
123 if (fin == NULL) {
124 sprintf(errmsg, "cannot open file \"%s\"", argv[i]);
125 quiterr(errmsg);
126 }
127 } else if (i != argc)
128 goto userr;
129 setmode(fileno(fin), O_BINARY);
130 /* get header */
131 getheader(fin, headline, NULL);
132 /* get picture dimensions */
133 if (wrongformat || fgetresolu(&xmax, &ymax, fin) < 0)
134 quiterr("bad picture format");
135 if (xmax > MAXWIDTH | ymax > MAXHEIGHT)
136 quiterr("input picture too large for VGA");
137
138 init(); /* initialize and display */
139
140 while (docommand()) /* loop on command */
141 ;
142 quiterr(NULL);
143 userr:
144 fprintf(stderr,
145 "Usage: %s [-b][-m][-d][-c ncolors][-e +/-stops] file\n", progname);
146 exit(1);
147 }
148
149
150 headline(s) /* get relevant info from header */
151 char *s;
152 {
153 char fmt[32];
154
155 if (isexpos(s))
156 exposure *= exposval(s);
157 else if (isformat(s)) {
158 formatval(fmt, s);
159 wrongformat = strcmp(fmt, COLRFMT);
160 }
161 }
162
163
164 init() /* initialize and load display */
165 {
166 static struct {
167 short mode;
168 short xsiz, ysiz;
169 } video[] = {
170 {_MRES256COLOR, 320, 200},
171 {_VRES256COLOR, 640, 400},
172 {_SVRES256COLOR, 800, 600},
173 {_XRES256COLOR, 1024, 768},
174 -1
175 };
176 struct videoconfig config;
177 register int i;
178 /* pick a card... */
179 for (i = 0; video[i].mode != -1; i++)
180 if (video[i].xsiz >= xmax && video[i].ysiz >= ymax)
181 break;
182 if (video[i].mode == -1)
183 quiterr("input picture too large");
184 if (_setvideomode(video[i].mode) == 0)
185 quiterr("inadequate display card for picture");
186 initialized = 1;
187 _getvideoconfig(&config);
188 if (maxcolors == 0)
189 maxcolors = config.numcolors;
190 if (maxcolors > 4) {
191 maxcolors -= minpix = 2;
192 _settextcolor(ourwhite);
193 }
194 cheight = config.numypixels/config.numtextrows;
195 cwidth = config.numxpixels/config.numtextcols;
196 /* clear scan position array */
197 for (i = 0; i < ymax; i++)
198 scanpos[i] = -1;
199 /* display image */
200 if (greyscale)
201 greyimage();
202 else
203 mappedimage();
204 }
205
206
207 quiterr(err) /* print message and exit */
208 char *err;
209 {
210 if (initialized)
211 _setvideomode(_DEFAULTMODE);
212 if (err != NULL) {
213 fprintf(stderr, "%s: %s\n", progname, err);
214 exit(1);
215 }
216 exit(0);
217 }
218
219
220 int
221 docommand() /* execute command */
222 {
223 char buf[64];
224 COLOR cval;
225 int com;
226 double comp;
227
228 while (!kbhit())
229 watch_mouse();
230 com = getch();
231 switch (com) { /* interpret command */
232 case 'q':
233 case CTRL('Z'): /* quit */
234 return(0);
235 case '\n':
236 case '\r':
237 case 'l':
238 case 'c': /* value */
239 if (avgbox(cval) == -1)
240 return(-1);
241 switch (com) {
242 case '\n':
243 case '\r': /* radiance */
244 sprintf(buf, "%.3f", intens(cval)/exposure);
245 break;
246 case 'l': /* luminance */
247 sprintf(buf, "%.0fL", luminance(cval)/exposure);
248 break;
249 case 'c': /* color */
250 comp = pow(2.0, (double)scale);
251 sprintf(buf, "(%.2f,%.2f,%.2f)",
252 colval(cval,RED)*comp,
253 colval(cval,GRN)*comp,
254 colval(cval,BLU)*comp);
255 break;
256 }
257 postext(box.xmin+box.xsiz/2, box.ymin+box.ysiz/2);
258 _outtext(buf);
259 return(1);
260 default:
261 return(-1);
262 }
263 }
264
265
266 watch_mouse() /* look after mousie */
267 {
268 static int mouse_installed = 0;
269 int a_x, a_y, l_x, l_y;
270
271 if (!mouse_installed) {
272 ms_init();
273 mouse_installed = 1;
274 }
275 if (mouse_event & M_MOTION)
276 move_cursor(mouse_xpos, mouse_ypos);
277 if (!(mouse_event & M_LDOWN))
278 return;
279 l_x = a_x = mouse_xpos; l_y = a_y = mouse_ypos;
280 move_cursor(-1, -1); /* hide cursor */
281 revbox(a_x, a_y, l_x, l_y); /* show box */
282 do {
283 mouse_event = 0;
284 while (!mouse_event)
285 ;
286 if (mouse_event & M_MOTION) {
287 revbox(a_x, a_y, l_x, l_y);
288 revbox(a_x, a_y, l_x=mouse_xpos, l_y=mouse_ypos);
289 }
290 } while (!(mouse_event & M_LUP));
291 revbox(a_x, a_y, l_x, l_y); /* hide box */
292 move_cursor(mouse_xpos, mouse_ypos); /* show cursor */
293 box.xmin = mouse_xpos;
294 box.ymin = mouse_ypos;
295 if (box.xmin > a_x) {
296 box.xsiz = box.xmin - a_x + 1;
297 box.xmin = a_x;
298 } else {
299 box.xsiz = a_x - box.xmin + 1;
300 }
301 if (box.ymin > a_y) {
302 box.ysiz = box.ymin - a_y + 1;
303 box.ymin = a_y;
304 } else {
305 box.ysiz = a_y - box.ymin + 1;
306 }
307 mouse_event = 0;
308 }
309
310
311 revbox(x0, y0, x1, y1) /* draw box with reversed lines */
312 int x0, y0, x1, y1;
313 {
314 _setplotaction(_GXOR);
315 _setcolor(255);
316 _moveto(x0, y0);
317 _lineto(x1, y0);
318 _lineto(x1, y1);
319 _lineto(x0, y1);
320 _lineto(x0, y0);
321 }
322
323
324 int
325 avgbox(clr) /* average color over current box */
326 COLOR clr;
327 {
328 static COLOR lc;
329 static int ll, lr, lt, lb;
330 int left, right, top, bottom;
331 int y;
332 double d;
333 COLOR ctmp;
334 register int x;
335
336 setcolor(clr, 0.0, 0.0, 0.0);
337 left = box.xmin;
338 right = left + box.xsiz;
339 if (left < 0)
340 left = 0;
341 if (right > xmax)
342 right = xmax;
343 if (left >= right)
344 return(-1);
345 top = box.ymin;
346 bottom = top + box.ysiz;
347 if (top < 0)
348 top = 0;
349 if (bottom > ymax)
350 bottom = ymax;
351 if (top >= bottom)
352 return(-1);
353 if (left == ll && right == lr && top == lt && bottom == lb) {
354 copycolor(clr, lc);
355 return(0);
356 }
357 for (y = top; y < bottom; y++) {
358 if (getscan(y) == -1)
359 return(-1);
360 for (x = left; x < right; x++) {
361 colr_color(ctmp, scanline[x]);
362 addcolor(clr, ctmp);
363 }
364 }
365 d = 1.0/((right-left)*(bottom-top));
366 scalecolor(clr, d);
367 ll = left; lr = right; lt = top; lb = bottom;
368 copycolor(lc, clr);
369 return(0);
370 }
371
372
373 setpalette() /* set our palette using clrtab */
374 {
375 long cvals[256];
376 register int i;
377
378 if (minpix >= 2) {
379 cvals[ourblack] = _BLACK; cvals[ourwhite] = _BRIGHTWHITE;
380 }
381 for (i = 0; i < maxcolors; i++)
382 cvals[i+minpix] = clrtab[i][BLU]<<14 & 0x3f0000L |
383 clrtab[i][GRN]<<6 & 0x3f00 |
384 clrtab[i][RED]>>2;
385 _remapallpalette(cvals);
386 }
387
388
389 greyimage() /* display greyscale image */
390 {
391 short thiscolor, lastcolor = -1;
392 int y;
393 register int x;
394 /* set gamma correction */
395 setcolrgam(gamcor);
396 /* set up color map */
397 for (x = 0; x < maxcolors; x++)
398 clrtab[x][RED] = clrtab[x][GRN] =
399 clrtab[x][BLU] = ((long)x*256+maxcolors/2)/maxcolors;
400 setpalette();
401 _setplotaction(_GPSET);
402 /* read and display file */
403 for (y = 0; y < ymax; y++) {
404 getscan(y);
405 if (scale)
406 shiftcolrs(scanline, xmax, scale);
407 colrs_gambs(scanline, xmax);
408 if (maxcolors < 256)
409 for (x = 0; x < xmax; x++) {
410 thiscolor = ((long)normbright(scanline[x]) *
411 maxcolors + 128) >> 8;
412 if (thiscolor != lastcolor)
413 _setcolor((lastcolor=thiscolor)+minpix);
414 _setpixel(x, y);
415 }
416 else
417 for (x = 0; x < xmax; x++) {
418 thiscolor = normbright(scanline[x]);
419 if (thiscolor != lastcolor)
420 _setcolor((lastcolor=thiscolor)+minpix);
421 _setpixel(x, y);
422 }
423 }
424 }
425
426
427 mappedimage() /* display color-mapped image */
428 {
429 BYTE bscan[MAXWIDTH];
430 int y;
431 register int x;
432 /* set gamma correction */
433 setcolrgam(gamcor);
434 /* make histogram */
435 new_histo();
436 for (y = 0; y < ymax; y++) {
437 if (getscan(y) < 0)
438 quiterr("seek error in getmapped");
439 if (scale)
440 shiftcolrs(scanline, xmax, scale);
441 colrs_gambs(scanline, xmax);
442 cnt_colrs(scanline, xmax);
443 }
444 /* map pixels */
445 if (!new_clrtab(maxcolors))
446 quiterr("cannot create color map");
447 setpalette();
448 _setplotaction(_GPSET);
449 /* display image */
450 for (y = 0; y < ymax; y++) {
451 if (getscan(y) < 0)
452 quiterr("seek error in getmapped");
453 if (scale)
454 shiftcolrs(scanline, xmax, scale);
455 colrs_gambs(scanline, xmax);
456 if (dither)
457 dith_colrs(bscan, scanline, xmax);
458 else
459 map_colrs(bscan, scanline, xmax);
460 for (x = 0; x < xmax; x++) {
461 if (x==0 || bscan[x] != bscan[x-1])
462 _setcolor(bscan[x]+minpix);
463 _setpixel(x, y);
464 }
465 }
466 }
467
468
469 getscan(y)
470 int y;
471 {
472 if (y != cury) {
473 if (scanpos[y] == -1)
474 return(-1);
475 if (fseek(fin, scanpos[y], 0) == -1)
476 quiterr("fseek error");
477 cury = y;
478 } else if (scanpos != NULL && scanpos[y] == -1)
479 scanpos[y] = ftell(fin);
480
481 if (freadcolrs(scanline, xmax, fin) < 0)
482 quiterr("picture read error");
483
484 cury++;
485 return(0);
486 }
487
488
489 /*
490 * Microsoft Mouse handling routines
491 */
492
493
494 #pragma off (check_stack)
495 void _loadds far mouse_handler (int max, int mcx, int mdx)
496 {
497 #pragma aux mouse_handler parm [EAX] [ECX] [EDX]
498 mouse_event = max;
499 mouse_xpos = mcx;
500 mouse_ypos = mdx * (long)ymax / 200; /* kludge */
501 if (mouse_xpos >= xmax) mouse_xpos = xmax-1;
502 if (mouse_ypos >= ymax) mouse_ypos = ymax-1;
503 }
504 #pragma on (check_stack)
505
506
507 void
508 move_cursor(newx, newy) /* move cursor to new position */
509 int newx, newy;
510 {
511 static char *imp = NULL;
512 static int curx = -1, cury = -1;
513 #define xcmin (curx-crad<0 ? 0 : curx-crad)
514 #define ycmin (cury-crad<0 ? 0 : cury-crad)
515 #define xcmax (curx+crad>=xmax ? xmax-1 : curx+crad)
516 #define ycmax (cury+crad>=ymax ? ymax-1 : cury+crad)
517
518 if (newx == curx & newy == cury)
519 return;
520 if (imp == NULL &&
521 (imp = bmalloc(_imagesize(0,0,2*crad+1,2*crad+1))) == NULL) {
522 quiterr("out of memory in move_cursor");
523 }
524 if (curx >= 0 & cury >= 0) /* clear old cursor */
525 _putimage(xcmin, ycmin, imp, _GPSET);
526 /* record new position */
527 curx = newx; cury = newy;
528 if (curx < 0 | cury < 0)
529 return; /* no cursor */
530 /* save under new cursor */
531 _getimage(xcmin, ycmin, xcmax, ycmax, imp);
532 /* draw new cursor */
533 _setplotaction(_GPSET);
534 _setcolor(ourwhite);
535 _rectangle(_GFILLINTERIOR, xcmin, cury-1, xcmax, cury+1);
536 _rectangle(_GFILLINTERIOR, curx-1, ycmin, curx+1, ycmax);
537 _setcolor(ourblack);
538 _moveto(xcmin+1, cury);
539 _lineto(xcmax-1, cury);
540 _moveto(curx, ycmin+1);
541 _lineto(curx, ycmax-1);
542 #undef xcmin
543 #undef ycmin
544 #undef xcmax
545 #undef ycmax
546 }
547
548
549 int
550 ms_init()
551 {
552 struct SREGS sregs;
553 union REGS inregs, outregs;
554 int far *ptr;
555 int (far *function_ptr)();
556
557 segread(&sregs);
558
559 /* check for mouse driver */
560
561 inregs.w.ax = 0;
562 int386 (0x33, &inregs, &outregs);
563 if( outregs.w.ax != -1 ) {
564 return(0);
565 }
566
567 crad = ymax/40;
568
569 /* install watcher */
570
571 inregs.w.ax = 0xC;
572 inregs.w.cx = M_LDOWN | M_LUP | M_MOTION;
573 function_ptr = mouse_handler;
574 inregs.x.edx = FP_OFF( function_ptr );
575 sregs.es = FP_SEG( function_ptr );
576 int386x( 0x33, &inregs, &outregs, &sregs );
577
578 return(1);
579 }