| 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) { |