/dports/math/vtk6/VTK-6.2.0/ThirdParty/libproj4/vtklibproj4/ |
H A D | proj_ortho.c | 35 #define EPS10 1.e-10 macro 47 if (cosphi * coslam < - EPS10 || 48 fabs(lp.lam) - HALFPI > EPS10) F_ERROR; 53 P->cosph0 * cosphi * coslam < - EPS10) F_ERROR; 59 if (fabs(lp.phi - P->phi0) - EPS10 > HALFPI) F_ERROR; 70 if ((sinc - 1.) > EPS10) I_ERROR; 74 if (fabs(rh) <= EPS10) { 110 if (fabs(fabs(P->phi0) - HALFPI) <= EPS10) 112 else if (fabs(P->phi0) > EPS10) {
|
H A D | proj_bonne.c | 38 #define EPS10 1e-10 macro 52 if (fabs(rh) > EPS10) { 65 if (fabs(fabs(lp.phi) - HALFPI) <= EPS10) 80 } else if (fabs(s - HALFPI) <= EPS10) 96 if (fabs(P->phi1) < EPS10) E_ERROR(-23); 105 if (fabs(P->phi1) + EPS10 >= HALFPI)
|
H A D | proj_laea.c | 44 #define EPS10 1.e-10 macro 78 if (fabs(b) < EPS10) F_ERROR; 114 if (xy.y <= EPS10) F_ERROR; 122 if (fabs(lp.phi + P->phi0) < EPS10) F_ERROR; 137 if ((rho = hypot(xy.x /= P->dd, xy.y *= P->dd)) < EPS10) { 184 lp.phi = fabs(rh) <= EPS10 ? 0. : asin(xy.y * sinz / rh); 189 lp.phi = fabs(rh) <= EPS10 ? P->phi0 : 216 if (fabs((t = fabs(P->phi0)) - HALFPI) < EPS10) 218 else if (fabs(t) < EPS10)
|
H A D | proj_lcc.c | 42 # define EPS10 1.e-10 macro 46 if (fabs(fabs(lp.phi) - HALFPI) < EPS10) { 83 if (fabs(fabs(lp.phi) - HALFPI) < EPS10) { 109 if (fabs(P->phi1 + P->phi2) < EPS10) E_ERROR(-21); 112 secant = fabs(P->phi1 - P->phi2) >= EPS10; 125 P->rho0 *= (fabs(fabs(P->phi0) - HALFPI) < EPS10) ? 0. : 133 P->rho0 = (fabs(fabs(P->phi0) - HALFPI) < EPS10) ? 0. :
|
H A D | proj_stere.c | 41 #define EPS10 1.e-10 macro 103 if (xy.y <= EPS10) F_ERROR; 171 if (fabs(rh) <= EPS10) 179 if (fabs(rh) <= EPS10) 189 if (fabs(rh) <= EPS10) 203 if (fabs((t = fabs(P->phi0)) - HALFPI) < EPS10) 206 P->mode = t > EPS10 ? OBLIQ : EQUIT; 212 if (fabs(P->phits - HALFPI) < EPS10) 245 P->akm1 = fabs(P->phits - HALFPI) >= EPS10 ?
|
H A D | proj_gnom.c | 35 #define EPS10 1.e-10 macro 60 if (xy.y <= EPS10) F_ERROR; 83 if (fabs(rh) <= EPS10) { 120 if (fabs(fabs(P->phi0) - HALFPI) < EPS10) 122 else if (fabs(P->phi0) < EPS10)
|
H A D | proj_aeqd.c | 28 #define EPS10 1.e-10 macro 74 if (fabs(lp.lam) < EPS10 && fabs(lp.phi - P->phi0) < EPS10) { 128 if (fabs(lp.phi - HALFPI) < EPS10) F_ERROR; 152 if ((c = hypot(xy.x, xy.y)) < EPS10) { 168 if ((t = fabs(psi)) < EPS10) 186 if (c_rh - EPS10 > PI) I_ERROR; 188 } else if (c_rh < EPS10) { 225 if (fabs(fabs(P->phi0) - HALFPI) < EPS10) { 229 } else if (fabs(P->phi0) < EPS10) {
|
/dports/math/vtk9/VTK-9.1.0/ThirdParty/libproj/vtklibproj/src/ |
H A D | PJ_ortho.c | 12 #define EPS10 1.e-10 macro 28 if (cosphi * coslam < - EPS10) F_ERROR; in s_forward() 33 Q->cosph0 * cosphi * coslam < - EPS10) F_ERROR; in s_forward() 39 if (fabs(lp.phi - P->phi0) - EPS10 > M_HALFPI) F_ERROR; in s_forward() 54 if ((sinc - 1.) > EPS10) I_ERROR; in s_inverse() 58 if (fabs(rh) <= EPS10) { in s_inverse() 116 if (fabs(fabs(P->phi0) - M_HALFPI) <= EPS10) in PROJECTION() 118 else if (fabs(P->phi0) > EPS10) { in PROJECTION()
|
H A D | PJ_lcc.c | 7 # define EPS10 1.e-10 macro 24 if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { in e_forward() 71 if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { in special() 118 if (fabs(Q->phi1 + Q->phi2) < EPS10) E_ERROR(-21); in PROJECTION() 121 secant = fabs(Q->phi1 - Q->phi2) >= EPS10; in PROJECTION() 134 Q->rho0 *= (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION() 142 Q->rho0 = (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION()
|
H A D | PJ_bonne.c | 6 #define EPS10 1e-10 macro 36 if (fabs(rh) > EPS10) { in s_forward() 53 if (fabs(fabs(lp.phi) - M_HALFPI) <= EPS10) in s_inverse() 72 } else if (fabs(s - M_HALFPI) <= EPS10) in e_inverse() 104 if (fabs(Q->phi1) < EPS10) E_ERROR(-23); in PROJECTION() 113 if (fabs(Q->phi1) + EPS10 >= M_HALFPI) in PROJECTION()
|
H A D | PJ_laea.c | 19 #define EPS10 1.e-10 macro 58 if (fabs(b) < EPS10) F_ERROR; in e_forward() 101 if (xy.y <= EPS10) F_ERROR; in s_forward() 110 if (fabs(lp.phi + P->phi0) < EPS10) F_ERROR; in s_forward() 132 if (rho < EPS10) { in e_inverse() 183 lp.phi = fabs(rh) <= EPS10 ? 0. : asin(xy.y * sinz / rh); in s_inverse() 188 lp.phi = fabs(rh) <= EPS10 ? P->phi0 : in s_inverse() 232 if (fabs(t - M_HALFPI) < EPS10) in PROJECTION() 234 else if (fabs(t) < EPS10) in PROJECTION()
|
H A D | PJ_gnom.c | 6 #define EPS10 1.e-10 macro 43 if (xy.y <= EPS10) F_ERROR; in s_forward() 72 if (fabs(rh) <= EPS10) { in s_inverse() 132 if (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) { in PROJECTION() 134 } else if (fabs(P->phi0) < EPS10) { in PROJECTION()
|
H A D | PJ_aeqd.c | 47 #define EPS10 1.e-10 macro 92 if (fabs(lp.lam) < EPS10 && fabs(lp.phi - P->phi0) < EPS10) { in e_forward() 142 if (fabs(lp.phi - M_HALFPI) < EPS10) F_ERROR; in s_forward() 175 if ((c = hypot(xy.x, xy.y)) < EPS10) { in e_inverse() 207 if (c_rh - EPS10 > M_PI) I_ERROR; in s_inverse() 209 } else if (c_rh < EPS10) { in s_inverse() 266 if (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) { in PROJECTION() 270 } else if (fabs(P->phi0) < EPS10) { in PROJECTION()
|
H A D | PJ_stere.c | 18 #define EPS10 1.e-10 macro 93 if (xy.y <= EPS10) F_ERROR; in s_forward() 169 if (fabs (rh) <= EPS10) in s_inverse() 177 if (fabs (rh) <= EPS10) in s_inverse() 187 if (fabs (rh) <= EPS10) in s_inverse() 215 if (fabs ((t = fabs (P->phi0)) - M_HALFPI) < EPS10) in setup() 218 Q->mode = t > EPS10 ? OBLIQ : EQUIT; in setup() 227 if (fabs (Q->phits - M_HALFPI) < EPS10) in setup() 259 Q->akm1 = fabs (Q->phits - M_HALFPI) >= EPS10 ? in setup()
|
/dports/math/vtk8/VTK-8.2.0/ThirdParty/libproj/vtklibproj/src/ |
H A D | PJ_ortho.c | 12 #define EPS10 1.e-10 macro 28 if (cosphi * coslam < - EPS10) F_ERROR; in s_forward() 33 Q->cosph0 * cosphi * coslam < - EPS10) F_ERROR; in s_forward() 39 if (fabs(lp.phi - P->phi0) - EPS10 > M_HALFPI) F_ERROR; in s_forward() 54 if ((sinc - 1.) > EPS10) I_ERROR; in s_inverse() 58 if (fabs(rh) <= EPS10) { in s_inverse() 116 if (fabs(fabs(P->phi0) - M_HALFPI) <= EPS10) in PROJECTION() 118 else if (fabs(P->phi0) > EPS10) { in PROJECTION()
|
H A D | PJ_lcc.c | 7 # define EPS10 1.e-10 macro 24 if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { in e_forward() 71 if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { in special() 118 if (fabs(Q->phi1 + Q->phi2) < EPS10) E_ERROR(-21); in PROJECTION() 121 secant = fabs(Q->phi1 - Q->phi2) >= EPS10; in PROJECTION() 134 Q->rho0 *= (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION() 142 Q->rho0 = (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION()
|
H A D | PJ_bonne.c | 6 #define EPS10 1e-10 macro 36 if (fabs(rh) > EPS10) { in s_forward() 53 if (fabs(fabs(lp.phi) - M_HALFPI) <= EPS10) in s_inverse() 72 } else if (fabs(s - M_HALFPI) <= EPS10) in e_inverse() 104 if (fabs(Q->phi1) < EPS10) E_ERROR(-23); in PROJECTION() 113 if (fabs(Q->phi1) + EPS10 >= M_HALFPI) in PROJECTION()
|
H A D | PJ_laea.c | 19 #define EPS10 1.e-10 macro 58 if (fabs(b) < EPS10) F_ERROR; in e_forward() 101 if (xy.y <= EPS10) F_ERROR; in s_forward() 110 if (fabs(lp.phi + P->phi0) < EPS10) F_ERROR; in s_forward() 132 if (rho < EPS10) { in e_inverse() 183 lp.phi = fabs(rh) <= EPS10 ? 0. : asin(xy.y * sinz / rh); in s_inverse() 188 lp.phi = fabs(rh) <= EPS10 ? P->phi0 : in s_inverse() 232 if (fabs(t - M_HALFPI) < EPS10) in PROJECTION() 234 else if (fabs(t) < EPS10) in PROJECTION()
|
H A D | PJ_gnom.c | 6 #define EPS10 1.e-10 macro 43 if (xy.y <= EPS10) F_ERROR; in s_forward() 72 if (fabs(rh) <= EPS10) { in s_inverse() 132 if (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) { in PROJECTION() 134 } else if (fabs(P->phi0) < EPS10) { in PROJECTION()
|
/dports/graphics/proj/proj-7.2.1/src/projections/ |
H A D | lcc.cpp | 10 #define EPS10 1.e-10 macro 28 if (fabs(fabs(lp.phi) - M_HALFPI) < EPS10) { in lcc_e_forward() 99 if (fabs(Q->phi1 + Q->phi2) < EPS10) in PROJECTION() 104 secant = fabs(Q->phi1 - Q->phi2) >= EPS10; in PROJECTION() 133 Q->rho0 *= (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION() 136 if( fabs(cosphi) < EPS10 || fabs(cos(Q->phi2)) < EPS10 ) { in PROJECTION() 149 Q->rho0 = (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) ? 0. : in PROJECTION()
|
H A D | bonne.cpp | 10 #define EPS10 1e-10 macro 31 if (fabs(rh) > EPS10) { in bonne_e_forward() 49 if (fabs(rh) > EPS10) { in bonne_s_forward() 71 if (fabs(fabs(lp.phi) - M_HALFPI) <= EPS10) in bonne_s_inverse() 91 } else if (fabs(s - M_HALFPI) <= EPS10) in bonne_e_inverse() 123 if (fabs(Q->phi1) < EPS10) in PROJECTION() 137 if (fabs(Q->phi1) + EPS10 >= M_HALFPI) in PROJECTION()
|
H A D | laea.cpp | 33 #define EPS10 1.e-10 macro 67 if (fabs(b) < EPS10) { in laea_e_forward() 113 if (xy.y <= EPS10) { in laea_s_forward() 126 if (fabs(lp.phi + P->phi0) < EPS10) { in laea_s_forward() 151 if (rho < EPS10) { in laea_e_inverse() 206 lp.phi = fabs(rh) <= EPS10 ? 0. : asin(xy.y * sinz / rh); in laea_s_inverse() 211 lp.phi = fabs(rh) <= EPS10 ? P->phi0 : in laea_s_inverse() 252 if (t > M_HALFPI + EPS10 ) { in PROJECTION() 255 if (fabs(t - M_HALFPI) < EPS10) in PROJECTION() 257 else if (fabs(t) < EPS10) in PROJECTION()
|
H A D | ortho.cpp | 29 #define EPS10 1.e-10 macro 49 if (cosphi * coslam < - EPS10) in ortho_s_forward() 62 if (Q->sinph0 * sinphi + Q->cosph0 * cosphi * coslam < - EPS10) in ortho_s_forward() 70 if (fabs(lp.phi - P->phi0) - EPS10 > M_HALFPI) in ortho_s_forward() 90 if ((sinc - 1.) > EPS10) { in ortho_s_inverse() 98 if (fabs(rh) <= EPS10) { in ortho_s_inverse() 146 if (Q->sinph0 * sinphi + Q->cosph0 * cosphi * coslam < - EPS10) { in ortho_e_forward() 178 if ((rh2 - 1.) > EPS10) { in ortho_e_inverse() 289 if (fabs(fabs(P->phi0) - M_HALFPI) <= EPS10) in PROJECTION() 291 else if (fabs(P->phi0) > EPS10) { in PROJECTION()
|
H A D | gnom.cpp | 12 #define EPS10 1.e-10 macro 56 if (xy.y <= EPS10) { in gnom_s_forward() 89 if (fabs(rh) <= EPS10) { in gnom_s_inverse() 132 if (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) { in PROJECTION() 134 } else if (fabs(P->phi0) < EPS10) { in PROJECTION()
|
H A D | aeqd.cpp | 61 #define EPS10 1.e-10 macro 115 if (fabs(lp.lam) < EPS10 && fabs(lp.phi - P->phi0) < EPS10) { in aeqd_e_forward() 170 if (fabs(lp.phi - M_HALFPI) < EPS10) { in aeqd_s_forward() 208 if ((c = hypot(xy.x, xy.y)) < EPS10) { in aeqd_e_inverse() 241 if (c_rh - EPS10 > M_PI) { in aeqd_s_inverse() 246 } else if (c_rh < EPS10) { in aeqd_s_inverse() 285 if (fabs(fabs(P->phi0) - M_HALFPI) < EPS10) { in PROJECTION() 289 } else if (fabs(P->phi0) < EPS10) { in PROJECTION()
|