home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / SUNPAS / PGETGP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-27  |  509 b   |  62 lines
  1. #include "vogle.h"
  2.  
  3. /*
  4.  * GetGp
  5.  */
  6. void
  7. GetGp(x, y, z)
  8.     double    *x, *y, *z;
  9. {
  10.     float    a, b, c;
  11.     getgp(&a, &b, &c);
  12.  
  13.     *x = a;
  14.     *y = b;
  15.     *z = c;
  16. }
  17.  
  18. /*
  19.  * GetGpT
  20.  */
  21. void
  22. GetGpT(x, y, z, w)
  23.     double    *x, *y, *z, *w;
  24. {
  25.     float    a, b, c, d;
  26.     getgpt(&a, &b, &c, &d);
  27.  
  28.     *x = a;
  29.     *y = b;
  30.     *z = c;
  31.     *w = d;
  32. }
  33.  
  34. /*
  35.  * GetGp2
  36.  */
  37. void
  38. GetGp2(x, y)
  39.     double    *x, *y;
  40. {
  41.     float    a, b;
  42.     getgp2(&a, &b);
  43.  
  44.     *x = a;
  45.     *y = b;
  46. }
  47.  
  48. /*
  49.  * SgetGp2
  50.  */
  51. void
  52. Sgetgp2(x, y)
  53.     double    *x, *y;
  54. {
  55.     float    a, b;
  56.  
  57.     sgetgp2(&a, &b);
  58.  
  59.     *x = a;
  60.     *y = b;
  61. }
  62.