home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 3 / RISC_DISC_3.iso / resources / etexts / gems / gemsv / ch2_2 / rev.c < prev   
Text File  |  1995-03-07  |  343b  |  13 lines
  1. /*
  2.  * Revisions to Spherical Polygon Area (GG vol.IV entry II.4 [page 136])
  3.  * as described in GG vol.V entry II.2 (page 45, bottom; 46, top).
  4.  */
  5.  
  6. /* OLD */
  7. /*    if (Lam2 < Lam1) Excess = - Excess; */
  8.  
  9. /* NEW */
  10.      double Lam;
  11.      Lam = (Lam2 - Lam1 > 0) ? Lam2 - Lam1 : Lam2 - Lam1 + 4*HalfPi;
  12.      if (Lam > 2*HalfPi) Excess= -Excess; 
  13.