home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 470 / rccl090 < prev    next >
Text File  |  1987-03-02  |  757b  |  36 lines
  1. #include "../h/which.h"
  2. #ifdef PUMA
  3. #include "../h/pumadata.h"
  4. #endif
  5. #ifdef STAN
  6. #include "../h/standata.h"
  7. #endif
  8.  
  9. #define RD      57.29577951308232100
  10. #define CHK     20
  11.  
  12. main()
  13. {
  14.     int i;
  15.     short e1[6], e2[6];
  16.     double a[6], r[6];
  17.  
  18.     for (i = 0; i < CHK + 1;  ++i) {
  19.         rngtoenc(e1, r);
  20.         enctorng(r, e1);
  21.         enctoang(a, e1);
  22.         angtoenc(e2, a);
  23. printf(" %-5d %-5d %-5d %-5d %-5d %-5d | %-4.1f %-4.1f %-4.1f %-4.1f %-4.1f %-4.
  24. e1[0] - e2[0], e1[1] - e2[1], e1[2] - e2[2], e1[3] - e2[3], e1[4] - e2[4], e1[5]
  25. (a[0]) * RD, (a[1]) * RD, (a[2]) * RD,
  26. (a[3]) * RD, (a[4]) * RD, (a[5]) * RD);
  27.     r[0] += JRNG1 / CHK;
  28.     r[1] += JRNG2 / CHK;
  29.     r[2] += JRNG3 / CHK;
  30.     r[3] += JRNG4 / CHK;
  31.     r[4] += JRNG5 / CHK;
  32.     r[5] += JRNG6 / CHK;
  33.  
  34.     }
  35. }
  36.