home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / dial_cde.hqx / sincos.c < prev    next >
Text File  |  1988-09-06  |  260b  |  30 lines
  1. /*
  2.  * sine and cosine from math.c
  3.  */
  4.  
  5. /*
  6.  *  sin - circular sine
  7.  *
  8.  */
  9.  
  10. #include "sincos.h"
  11.  
  12. double sin(x)
  13. double x;
  14. {
  15.     elems68k(&x, FOSINX);
  16.     return(x);
  17. }
  18.  
  19. /*
  20.  *  cos - circular cosine
  21.  *
  22.  */
  23.  
  24. double cos(x)
  25. double x;
  26. {    
  27.     elems68k(&x, FOCOSX);
  28.     return(x);
  29. }
  30.