home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 1 / FFMCD01.bin / bbs / libdisks / d700t799 / disk709.lha / Planets / range.c < prev    next >
Encoding:
Text File  |  1992-08-05  |  676 b   |  18 lines
  1. /*******************************************************************************
  2. ** We want to stay inside the first turn of the circle, so we want that       **
  3. **    0 deg <= val < 360 deg.                                                 **
  4. ** This is a combination of the old range-routine in planet and the adj360-   **
  5. ** routine in moonphase.                                                      **
  6. *******************************************************************************/
  7. double range(val)
  8. double val;
  9.    {
  10.    do {
  11.       if(val<0.)
  12.          val += 360.;
  13.       else if(val>=360.)
  14.          val -= 360.;
  15.       } while(val < 0. || val >= 360.);
  16.    return(val);
  17.    }
  18.