| 15 |
|
#define PI 3.14159265358979323846 |
| 16 |
|
|
| 17 |
|
extern char *gets(), *strcpy(); |
| 18 |
+ |
#ifndef atof |
| 19 |
|
extern double atof(); |
| 20 |
+ |
#endif |
| 21 |
|
extern float *matchlamp(); |
| 22 |
|
|
| 23 |
|
/* lamp parameters */ |
| 209 |
|
|
| 210 |
|
getpolygon() /* get projected area for a polygon */ |
| 211 |
|
{ |
| 212 |
< |
static double area = 1.0; |
| 212 |
> |
static double parea = 1.0; |
| 213 |
|
|
| 214 |
< |
getd("Polygon area", &area, |
| 214 |
> |
getd("Polygon area", &parea, |
| 215 |
|
"Enter the total radiating area of the polygon."); |
| 216 |
< |
area = unit2meter*unit2meter * area; |
| 216 |
> |
area = unit2meter*unit2meter * parea; |
| 217 |
|
return(1); |
| 218 |
|
} |
| 219 |
|
|
