40 |
|
/* file types */ |
41 |
|
#define T_RAD ".rad" |
42 |
|
#define T_DST ".dat" |
43 |
< |
#define T_TLT "+.dat" |
43 |
> |
#define T_TLT "%.dat" |
44 |
|
/* shape types */ |
45 |
|
#define RECT 1 |
46 |
|
#define DISK 2 |
660 |
|
register SHAPE *shp; |
661 |
|
double width, length, height; |
662 |
|
{ |
663 |
< |
if (illumrad >= MINDIM/2.) { |
663 |
> |
if (illumrad/meters2out >= MINDIM/2.) { |
664 |
|
shp->type = SPHERE; |
665 |
< |
shp->w = shp->l = shp->h = 2.*illumrad; |
665 |
> |
shp->w = shp->l = shp->h = 2.*illumrad / meters2out; |
666 |
|
} else if (width < MINDIM) { |
667 |
|
width = -width; |
668 |
|
if (width < MINDIM) { |