| # | Line 12 | Line 12 | static char SCCSid[] = "$SunId$ LBL"; | |
|---|---|---|
| 12 | ||
| 13 | #include <stdio.h> | |
| 14 | ||
| 15 | + | #include <math.h> |
| 16 | + | |
| 17 | #include "random.h" | |
| 18 | ||
| 17 | – | |
| 19 | #define PI 3.14159265359 | |
| 20 | ||
| 21 | typedef double FVECT[3]; | |
| 22 | ||
| 23 | double bubble(); /* pretty cute, huh? */ | |
| 24 | ||
| 25 | + | #ifdef DCL_ATOF |
| 26 | + | extern double atof(); |
| 27 | + | #endif |
| 28 | ||
| 29 | + | |
| 30 | main(argc, argv) | |
| 31 | int argc; | |
| 32 | char **argv; | |
| 33 | { | |
| 29 | – | double atof(); |
| 34 | char *cmtype, *cname; | |
| 35 | FVECT cent; | |
| 36 | double rad; | |
| # | Line 73 | Line 77 | bubble(v, cent, rad, bubrad) /* compute location of ra | |
| 77 | FVECT v, cent; | |
| 78 | double rad, bubrad; | |
| 79 | { | |
| 76 | – | double sqrt(); |
| 80 | double r, ro, theta, phi; | |
| 81 | ||
| 82 | r = frandom()*bubrad; | |
| # | Line 90 | Line 93 | sphere_cart(v, ro, theta, phi) /* spherical to cartesi | |
| 93 | FVECT v; | |
| 94 | double ro, theta, phi; | |
| 95 | { | |
| 93 | – | double sin(), cos(); |
| 96 | double d; | |
| 97 | ||
| 98 | d = sin(phi); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |