view release on metacpan or  search on metacpan

GeoTool.xs  view on Meta::CPAN

void
p2v_xs(f,a,rd,lat,lon,tlat,tlon)
    double f
    double a
    double rd
    double lat
    double lon
    double tlat
    double tlon

    PPCODE:
    double e2,r,tu1,tu2;
    double cu1,su1,cu2,s1,b1,f1,x,d;
    double sx,cx,sy,cy,y,sa,c2a,cz,e,c;
    double dir,dis;
    int iter;

    e2 = 2.0*f - f*f;
    r = 1.0 - f;
    tu1 = r * tan(lat);
    tu2 = r * tan(tlat);

GeoTool.xs  view on Meta::CPAN

void
v2p_xs(f,a,rd,lat,lon,dir,dis)
    double f
    double a
    double rd
    double lat
    double lon
    double dir
    double dis

    PPCODE:
    double r,tu,sf,cf,b,cu,su,sa,c2a,x;
    double c,d,y,sy,cy,cz,e;
    double rlat,rlon;

    lat = lat *rd;
    lon = lon *rd;
    dir = dir * rd;

    r = 1 - f;
    tu = r * tan(lat);

GeoTool.xs  view on Meta::CPAN

    double h
    double a
    double f
    double ab
    double fb
    double dx
    double dy
    double dz
    double rd

    PPCODE:
    double bda,e2,da,df,db,dl,dh;
    double sb,cb,sl,cl,rn,rm;
    double rb,rl,rh;

    b *= rd;
    l *= rd;

    e2 = 2*f - f*f;
    bda = 1- f;
    da = ab - a;