| 8 | 
  | 
extern "C" { | 
| 9 | 
  | 
#endif | 
| 10 | 
  | 
 | 
| 11 | 
– | 
#include "copyright.h" | 
| 12 | 
– | 
 | 
| 11 | 
  | 
#ifdef  SMLFLT | 
| 12 | 
  | 
#define  RREAL          float | 
| 13 | 
  | 
#define  FTINY          (1e-3) | 
| 14 | 
+ | 
#define  FVFORMAT       "%f %f %f" | 
| 15 | 
  | 
#else | 
| 16 | 
  | 
#define  RREAL          double | 
| 17 | 
  | 
#define  FTINY          (1e-6) | 
| 18 | 
+ | 
#define  FVFORMAT       "%lf %lf %lf" | 
| 19 | 
  | 
#endif | 
| 20 | 
  | 
#define  FHUGE          (1e10) | 
| 21 | 
  | 
 | 
| 22 | 
+ | 
#define  FABSEQ(x1,x2)  ((x1)+FTINY > (x2) && (x2)+FTINY > (x1)) | 
| 23 | 
+ | 
#define  FRELEQ(x1,x2)  ((x1)*(1.+FTINY) >= (x2) && (x2)*(1.+FTINY) >= (x1)) | 
| 24 | 
+ | 
 | 
| 25 | 
+ | 
#define  VABSEQ(v,w)    (FABSEQ((v)[0],(w)[0]) && FABSEQ((v)[1],(w)[1]) \ | 
| 26 | 
+ | 
                                && FABSEQ((v)[2],(w)[2])) | 
| 27 | 
+ | 
#define  VRELEQ(v,w)    (FRELEQ((v)[0],(w)[0]) && FRELEQ((v)[1],(w)[1]) \ | 
| 28 | 
+ | 
                                && FRELEQ((v)[2],(w)[2])) | 
| 29 | 
+ | 
 | 
| 30 | 
  | 
typedef RREAL  FVECT[3]; | 
| 31 | 
  | 
 | 
| 32 | 
  | 
#define  VCOPY(v1,v2)   ((v1)[0]=(v2)[0],(v1)[1]=(v2)[1],(v1)[2]=(v2)[2]) | 
| 46 | 
  | 
                        (vr)[1]=(v1)[2]*(v2)[0]-(v1)[0]*(v2)[2], \ | 
| 47 | 
  | 
                        (vr)[2]=(v1)[0]*(v2)[1]-(v1)[1]*(v2)[0]) | 
| 48 | 
  | 
 | 
| 49 | 
+ | 
#define GEOD_RAD        0       /* geodesic distance specified in radians */ | 
| 50 | 
+ | 
#define GEOD_ABS        1       /* absolute geodesic distance */ | 
| 51 | 
+ | 
#define GEOD_REL        2       /* relative geodesic distance */ | 
| 52 | 
  | 
 | 
| 53 | 
< | 
extern double   fdot(FVECT v1, FVECT v2); | 
| 54 | 
< | 
extern double   dist2(FVECT v1, FVECT v2); | 
| 55 | 
< | 
extern double   dist2line(FVECT p, FVECT ep1, FVECT ep2); | 
| 56 | 
< | 
extern double   dist2lseg(FVECT p, FVECT ep1, FVECT ep2); | 
| 57 | 
< | 
extern void     fcross(FVECT vres, FVECT v1, FVECT v2); | 
| 58 | 
< | 
extern void     fvsum(FVECT vres, FVECT v0, FVECT v1, double f); | 
| 53 | 
> | 
extern double   Acos(double x); | 
| 54 | 
> | 
extern double   Asin(double x); | 
| 55 | 
> | 
extern double   fdot(const FVECT v1, const FVECT v2); | 
| 56 | 
> | 
extern double   dist2(const FVECT v1, const FVECT v2); | 
| 57 | 
> | 
extern double   dist2line(const FVECT p, const FVECT ep1, const FVECT ep2); | 
| 58 | 
> | 
extern double   dist2lseg(const FVECT p, const FVECT ep1, const FVECT ep2); | 
| 59 | 
> | 
extern void     fcross(FVECT vres, const FVECT v1, const FVECT v2); | 
| 60 | 
> | 
extern void     fvsum(FVECT vres, const FVECT v0, const FVECT v1, double f); | 
| 61 | 
  | 
extern double   normalize(FVECT v); | 
| 62 | 
< | 
extern void     spinvector(FVECT vres, FVECT vorig, FVECT vnorm, double theta); | 
| 63 | 
< | 
 | 
| 64 | 
< | 
 | 
| 62 | 
> | 
extern int      getperpendicular(FVECT vp, const FVECT v, int randomize); | 
| 63 | 
> | 
extern int      closestapproach(RREAL t[2], | 
| 64 | 
> | 
                        const FVECT rorg0, const FVECT rdir0, | 
| 65 | 
> | 
                        const FVECT rorg1, const FVECT rdir1); | 
| 66 | 
> | 
extern void     spinvector(FVECT vres, const FVECT vorig, | 
| 67 | 
> | 
                        const FVECT vnorm, double theta); | 
| 68 | 
> | 
extern double   geodesic(FVECT vres, const FVECT vorig, | 
| 69 | 
> | 
                        const FVECT vtarg, double t, int meas); | 
| 70 | 
  | 
#ifdef __cplusplus | 
| 71 | 
  | 
} | 
| 72 | 
  | 
#endif |