home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D3.DMS / in.adf / Interfaces / MathTrans.mod < prev    next >
Encoding:
Text File  |  1992-12-17  |  2.0 KB  |  60 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Interface Module:                    Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE MathTrans;
  10.  
  11. IMPORT e * := Exec,
  12.        I   := Intuition,
  13.        s   := SYSTEM;
  14.  
  15. CONST
  16.   MathTransName * = "mathtrans.library";
  17.  
  18. VAR
  19.   base * : e.LibraryPtr;
  20.  
  21. PROCEDURE Atan  * {base,- 30}(x{0}       : REAL): REAL;
  22. PROCEDURE Sin   * {base,- 36}(x{0}       : REAL): REAL;
  23. PROCEDURE Cos   * {base,- 42}(x{0}       : REAL): REAL;
  24. PROCEDURE Tan   * {base,- 48}(x{0}       : REAL): REAL;
  25. PROCEDURE Sincos* {base,- 54}(VAR cos{1} : REAL;
  26.                               x{0}       : REAL): REAL;
  27. PROCEDURE Sinh  * {base,- 60}(x{0}       : REAL): REAL;
  28. PROCEDURE Cosh  * {base,- 66}(x{0}       : REAL): REAL;
  29. PROCEDURE Tanh  * {base,- 72}(x{0}       : REAL): REAL;
  30. PROCEDURE Exp   * {base,- 78}(x{0}       : REAL): REAL;
  31. PROCEDURE Log   * {base,- 84}(x{0}       : REAL): REAL;
  32. PROCEDURE Pow   * {base,- 90}(e{1}       : REAL;
  33.                               b{0}       : REAL): REAL;
  34. PROCEDURE Sqrt  * {base,- 96}(x{0}       : REAL): REAL;
  35. PROCEDURE Tieee * {base,-102}(x{0}       : REAL): LONGINT;
  36. PROCEDURE Fieee * {base,-108}(x{0}       : LONGINT): REAL;
  37. PROCEDURE Asin  * {base,-114}(x{0}       : REAL): REAL;
  38. PROCEDURE Acos  * {base,-120}(x{0}       : REAL): REAL;
  39. PROCEDURE Log10 * {base,-126}(x{0}       : REAL): REAL;
  40.  
  41.  
  42. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  43.  
  44. BEGIN
  45.  
  46.   base := e.OpenLibrary(MathTransName,33);
  47.   IF base=NIL THEN
  48.     s.SETREG(0,I.DisplayAlert(0,"\x00\x64\x14missing mathtrans.library\o\o",50));
  49.     HALT(0)
  50.   END;
  51.  
  52. CLOSE
  53.  
  54.   IF base#NIL THEN e.CloseLibrary(base) END;
  55.  
  56. END MathTrans.
  57.  
  58.  
  59.  
  60.