home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #6 / amigaacscoverdisc1998-061998.iso / games / descent / source / lib / fix.inc < prev    next >
Text File  |  1998-06-08  |  3KB  |  106 lines
  1. ;THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
  2. ;SOFTWARE CORPORATION ("PARALLAX").  PARALLAX, IN DISTRIBUTING THE CODE TO
  3. ;END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
  4. ;ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
  5. ;IN USING, DISPLAYING,  AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
  6. ;SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
  7. ;FREE PURPOSES.  IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
  8. ;CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES.  THE END-USER UNDERSTANDS
  9. ;AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.  
  10. ;COPYRIGHT 1993-1998 PARALLAX SOFTWARE CORPORATION.  ALL RIGHTS RESERVED.
  11. ;
  12. ; $Source: f:/miner/source/fix/rcs/fix.inc $
  13. ; $Revision: 1.7 $
  14. ; $Author: matt $
  15. ; $Date: 1994/01/19 23:12:00 $
  16. ;
  17. ; Header for fixed-point library
  18. ;
  19. ; $Log: fix.inc $
  20. ; Revision 1.7  1994/01/19  23:12:00  matt
  21. ; Made fix_atan2() left-handed, like our coordinate system
  22. ; 
  23. ; Revision 1.6  1993/10/20  01:08:49  matt
  24. ; Add fix_asin(), improved fix_atan2()
  25. ; 
  26. ; Revision 1.5  1993/10/19  23:53:36  matt
  27. ; Added fix_atan2()
  28. ; 
  29. ; Revision 1.4  1993/10/19  22:32:12  matt
  30. ; Added fix_acos()
  31. ; 
  32. ; Revision 1.3  1993/09/13  12:09:42  matt
  33. ; Added extf,extfa macros to generate externdef's of fixed-point types
  34. ; 
  35. ; Revision 1.2  1993/09/10  11:54:12  matt
  36. ; Added missing 'endif' at end of file
  37. ; 
  38. ; Revision 1.1  1993/08/24  12:59:36  matt
  39. ; Initial revision
  40. ; 
  41. ;
  42. ;
  43.  
  44. ifndef    fix_inc
  45. fix_inc equ 1
  46.  
  47.     include    types.inc
  48.     include    psmacros.inc
  49.  
  50. ;Fixed-point types
  51.  
  52. fix    typedef    dword
  53. fixang    typedef    word
  54.  
  55. ;Externdef macros for fixed-point types
  56.  
  57.     extgen    fix,f    ;generates extf
  58.     extgen    fixang,fa    ;generates extfa
  59.  
  60. ;Some handy constants
  61.  
  62. f0_0    equ 0
  63. f1_0    equ 10000h
  64. f2_0    equ 20000h
  65. f3_0    equ 30000h
  66. f10_0    equ 0a0000h
  67. f0_5    equ 8000h
  68. f0_1    equ 199ah
  69.  
  70. ;Macros
  71.  
  72. ;fixed-point multiply. one parm in eax, other passed to macro. result in eax
  73. ;trashes edx
  74. fixmul    macro    n
  75.     imul    n
  76.     shrd    eax,edx,16
  77.     endm
  78.  
  79. ;fixed-point divide. numerator in eax, divisor passed to macro. result in eax
  80. ;trashes edx. made sure parameter is not edx
  81. fixdiv    macro    n
  82.     mov    edx,eax
  83.     sar    edx,16
  84.     shl    eax,16
  85.     idiv    n
  86.     endm
  87.  
  88. ;fixed-point multiply and divide. result in eax
  89. ;trashes edx. made sure neither parameter is edx
  90. fixmuldiv    macro    a,b
  91.     imul    a
  92.     idiv    b
  93.     endm
  94.  
  95.  
  96. ;Functions
  97.     extn    fix_fastsincos    ;ax=ang, ret eax=sin, ebx=cos
  98.     extn    fix_sincos    ;ax=ang, ret eax=sin, ebx=cos
  99.     extn    fix_asin    ;takes eax=sin, ret ax=angle
  100.     extn    fix_acos    ;takes eax=cos, ret ax=angle
  101.     extn    fix_atan2    ;takes eax,ebx = cos,sin, ret ax=angle
  102.     extn    long_sqrt    ;takes eax, returns ax
  103.     extn    fix_sqrt    ;takes eax, returns eax    
  104.     extn    quad_sqrt    ;takes eds:eax, returns eax
  105. endif
  106.