| 71 |  | typedef struct { | 
| 72 |  | int     type;                           /* RECT, DISK, SPHERE */ | 
| 73 |  | double  w, l, h;                        /* width, length, height */ | 
| 74 | < | double  area;                           /* effective radiating area */ | 
| 74 | > | double  area;                           /* max. projected area */ | 
| 75 |  | } SHAPE;                                /* a source shape */ | 
| 76 |  |  | 
| 77 |  | int     gargc;                          /* global argc (minus filenames) */ | 
| 696 |  | shp->area = shp->w * shp->l; | 
| 697 |  | break; | 
| 698 |  | case DISK: | 
| 699 | – | shp->area = PI/4. * shp->w * shp->w; | 
| 700 | – | break; | 
| 699 |  | case SPHERE: | 
| 700 | < | shp->area = PI * shp->w * shp->w; | 
| 700 | > | shp->area = PI/4. * shp->w * shp->w; | 
| 701 |  | break; | 
| 702 |  | } | 
| 703 |  | return(0); |