1 |
– |
/* Copyright (c) 1990 Regents of the University of California */ |
2 |
– |
|
1 |
|
#ifndef lint |
2 |
< |
static char SCCSid[] = "$SunId$ LBL"; |
2 |
> |
static const char RCSid[] = "$Id$"; |
3 |
|
#endif |
6 |
– |
|
4 |
|
/* |
5 |
|
* Convert Architrion file to Radiance |
6 |
|
* |
9 |
|
|
10 |
|
#include <stdio.h> |
11 |
|
|
12 |
+ |
#include <stdlib.h> |
13 |
+ |
|
14 |
|
#include "trans.h" |
15 |
|
|
16 |
|
#define DEFMAPFILE "/usr/local/lib/ray/lib/arch.map" |
347 |
|
if (bp->nopenings > 0) { |
348 |
|
for (i = 0; i < bp->nopenings; i++) |
349 |
|
doneid(&bp->opening[i].frame); |
350 |
< |
free((char *)bp->opening); |
350 |
> |
free((void *)bp->opening); |
351 |
|
} |
352 |
|
doneid(&bp->refid); |
353 |
|
} |
425 |
|
/* check for repeats */ |
426 |
|
rept = 0; nrepts = 0; |
427 |
|
for (i = 0; i < nm; i++) { |
428 |
< |
if (ml[i] == sm) { |
428 |
> |
if (ml[i] == sm || !strcmp(ml[i], VOIDID)) { |
429 |
|
rept |= 1<<i; |
430 |
|
nrepts++; |
431 |
+ |
continue; |
432 |
|
} |
433 |
|
for (j = 0; j < i; j++) |
434 |
< |
if (ml[j] == ml[i]) { |
434 |
> |
if (!(rept & 1<<j) && ml[j] == ml[i]) { |
435 |
|
rept |= 1<<j; |
436 |
|
nrepts++; |
437 |
|
} |
438 |
|
} |
439 |
|
/* print antimatter and modlist */ |
440 |
< |
fprintf(fp, "\nvoid antimatter %s\n", openmod); |
440 |
> |
fprintf(fp, "\n%s antimatter %s\n", VOIDID, openmod); |
441 |
|
fprintf(fp, "%d %s", 1+nm-nrepts, sm); |
442 |
|
for (i = 0; i < nm; i++) |
443 |
|
if (!(rept & 1<<i)) |
463 |
|
newp.h[i] = p->h[i]; |
464 |
|
} |
465 |
|
/* spread reference and opposite */ |
466 |
< |
if (p->x[1] > p->x[0]) { |
466 |
> |
if (p->x[2] > p->x[0]) { |
467 |
|
newp.x[0] -= 2; |
468 |
< |
newp.x[1] += 2; |
468 |
> |
newp.x[1] -= 2; |
469 |
|
newp.x[2] += 2; |
470 |
< |
newp.x[3] -= 2; |
471 |
< |
} else if (p->x[0] > p->x[1]) { |
470 |
> |
newp.x[3] += 2; |
471 |
> |
} else if (p->x[0] > p->x[2]) { |
472 |
|
newp.x[0] += 2; |
473 |
< |
newp.x[1] -= 2; |
473 |
> |
newp.x[1] += 2; |
474 |
|
newp.x[2] -= 2; |
475 |
< |
newp.x[3] += 2; |
475 |
> |
newp.x[3] -= 2; |
476 |
|
} |
477 |
< |
if (p->y[1] > p->y[0]) { |
477 |
> |
if (p->y[2] > p->y[0]) { |
478 |
|
newp.y[0] -= 2; |
479 |
< |
newp.y[1] += 2; |
479 |
> |
newp.y[1] -= 2; |
480 |
|
newp.y[2] += 2; |
481 |
< |
newp.y[3] -= 2; |
482 |
< |
} else if (p->y[0] > p->y[1]) { |
481 |
> |
newp.y[3] += 2; |
482 |
> |
} else if (p->y[0] > p->y[2]) { |
483 |
|
newp.y[0] += 2; |
484 |
< |
newp.y[1] -= 2; |
484 |
> |
newp.y[1] += 2; |
485 |
|
newp.y[2] -= 2; |
486 |
< |
newp.y[3] += 2; |
486 |
> |
newp.y[3] -= 2; |
487 |
|
} |
488 |
|
/* put out faces */ |
489 |
|
sprintf(buf, "op%d", ++nopens); |
490 |
< |
putface(openmod, buf, "ref", &newp, 3, 7, 4, 0, fp); |
491 |
< |
putface(openmod, buf, "opp", &newp, 5, 6, 2, 1, fp); |
492 |
< |
putface(openmod, buf, "end1", &newp, 2, 6, 7, 3, fp); |
493 |
< |
putface(openmod, buf, "end2", &newp, 4, 5, 1, 0, fp); |
490 |
> |
putface(openmod, buf, "ref", &newp, 4, 5, 1, 0, fp); |
491 |
> |
putface(openmod, buf, "opp", &newp, 2, 6, 7, 3, fp); |
492 |
> |
putface(openmod, buf, "end1", &newp, 5, 6, 2, 1, fp); |
493 |
> |
putface(openmod, buf, "end2", &newp, 3, 7, 4, 0, fp); |
494 |
|
putface(openmod, buf, "bot", &newp, 1, 2, 3, 0, fp); |
495 |
|
putface(openmod, buf, "top", &newp, 7, 6, 5, 4, fp); |
496 |
|
} |
505 |
|
ID tmpid; |
506 |
|
|
507 |
|
if (rp->qflg & FL(Q_LAY)) { /* check layer */ |
508 |
< |
tmpid.name = NULL; |
508 |
> |
tmpid.name = fhead.layer[bp->layer]; |
509 |
|
tmpid.number = bp->layer; |
510 |
|
if (!matchid(&tmpid, &idm(rp)[Q_LAY])) |
511 |
|
return(0); |
542 |
|
return; |
543 |
|
bn = blkname(bp); |
544 |
|
if (ff & 1<<F_REF) |
545 |
< |
putface(m, bn, "ref", &bp->p, 3, 7, 4, 0, fp); |
545 |
> |
putface(m, bn, "ref", &bp->p, 4, 5, 1, 0, fp); |
546 |
|
if (ff & 1<<F_OPP) |
547 |
< |
putface(m, bn, "opp", &bp->p, 5, 6, 2, 1, fp); |
547 |
> |
putface(m, bn, "opp", &bp->p, 2, 6, 7, 3, fp); |
548 |
|
if (ff & 1<<F_END) { |
549 |
< |
putface(m, bn, "end1", &bp->p, 2, 6, 7, 3, fp); |
550 |
< |
putface(m, bn, "end2", &bp->p, 4, 5, 1, 0, fp); |
549 |
> |
putface(m, bn, "end1", &bp->p, 5, 6, 2, 1, fp); |
550 |
> |
putface(m, bn, "end2", &bp->p, 3, 7, 4, 0, fp); |
551 |
|
} |
552 |
|
if (ff & 1<<F_BOT) |
553 |
|
putface(m, bn, "bot", &bp->p, 1, 2, 3, 0, fp); |
563 |
|
static char nambuf[32]; |
564 |
|
static int blkcnt = 0; |
565 |
|
register char *nam; |
566 |
< |
register int i; |
566 |
> |
register int i, j; |
567 |
|
|
568 |
+ |
sprintf(nambuf, "l%d.", bp->layer); |
569 |
+ |
i = strlen(nambuf); |
570 |
|
nam = bp->refid.name; |
569 |
– |
if (nam == NULL) |
570 |
– |
nam = fhead.layer[bp->layer]; |
571 |
|
if (nam == NULL) { |
572 |
< |
sprintf(nambuf, "l%d.", bp->layer); |
573 |
< |
i = strlen(nambuf); |
574 |
< |
} else { |
575 |
< |
for (i = 0; i < 12 && nam[i]; i++) { |
576 |
< |
if (nam[i] == ' ' || nam[i] == '\t') |
577 |
< |
nambuf[i] = '_'; |
572 |
> |
nam = fhead.layer[bp->layer]; |
573 |
> |
if (nam != NULL) |
574 |
> |
i = 0; |
575 |
> |
} |
576 |
> |
if (nam != NULL) { |
577 |
> |
for (j = 0; j < 12 && nam[j]; j++) { |
578 |
> |
if (nam[j] == ' ' || nam[j] == '\t') |
579 |
> |
nambuf[i++] = '_'; |
580 |
|
else |
581 |
< |
nambuf[i] = nam[i]; |
581 |
> |
nambuf[i++] = nam[j]; |
582 |
|
} |
583 |
|
nambuf[i++] = '.'; |
584 |
|
} |
705 |
|
} |
706 |
|
|
707 |
|
|
708 |
+ |
void |
709 |
|
eputs(s) |
710 |
|
char *s; |
711 |
|
{ |
713 |
|
} |
714 |
|
|
715 |
|
|
716 |
+ |
void |
717 |
|
quit(code) |
718 |
|
int code; |
719 |
|
{ |