home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #6 / amigaacscoverdisc1998-061998.iso / games / descent / source / lib / vecmat.inc < prev    next >
Text File  |  1998-06-08  |  6KB  |  222 lines
  1. ;
  2. ; $Source: f:/miner/source/vecmat/rcs/vecmat.inc $
  3. ; $Revision: 1.21 $
  4. ; $Author: matt $
  5. ; $Date: 1994/12/13 14:44:21 $
  6. ;
  7. ; Header file for vector/matrix library
  8. ;
  9. ; $Log: vecmat.inc $
  10. ; Revision 1.21  1994/12/13  14:44:21  matt
  11. ; Added vm_vector_2_matrix_norm()
  12. ; 
  13. ; Revision 1.20  1994/09/11  19:23:04  matt
  14. ; Added vm_vec_normalized_dir_quick()
  15. ; 
  16. ; Revision 1.19  1994/07/19  18:52:55  matt
  17. ; Added vm_vec_normalize_quick() and vm_vec_copy_normalize_quick()
  18. ; 
  19. ; Revision 1.18  1994/06/16  18:24:31  matt
  20. ; Added vm_vec_mag_quick()
  21. ; 
  22. ; Revision 1.17  1994/05/19  12:07:20  matt
  23. ; Fixed globals and macros and added a constant
  24. ; 
  25. ; Revision 1.16  1994/05/18  22:28:55  matt
  26. ; Added function vm_vec_normalized_dir()
  27. ; Added C macros IS_ZERO_VEC(), vm_vec_zero(), and vm_set_identity()
  28. ; Added C global static vars vmd_zero_vector & vmd_identity_matrix
  29. ; 
  30. ; Revision 1.15  1994/05/18  21:45:05  matt
  31. ; Added functions:
  32. ;   vm_extract_angles_vector()
  33. ;   vm_extract_angles_vector_normalized()
  34. ;   vm_vec_copy_normalize()
  35. ; 
  36. ; Revision 1.14  1994/05/13  12:42:09  matt
  37. ; Added new function, vm_vec_dist_quick(), which does an approximation.
  38. ; 
  39. ; Revision 1.13  1994/03/30  15:43:54  matt
  40. ; Added two functions, vm_vec_scale_add() & vm_vec_scale_add2()
  41. ; 
  42. ; Revision 1.12  1994/01/31  19:45:24  matt
  43. ; Added function vm_extract_angles_matrix()
  44. ; 
  45. ; Revision 1.11  1993/12/21  19:46:29  matt
  46. ; Added function vm_dist_to_plane()
  47. ; 
  48. ; Revision 1.10  1993/12/13  17:26:40  matt
  49. ; Added vm_vec_dist()
  50. ; 
  51. ; Revision 1.9  1993/12/02  12:44:04  matt
  52. ; New functions: vm_vec_copy_scale(), vm_vec_scale2()
  53. ; 
  54. ; Revision 1.8  1993/10/29  22:39:08  matt
  55. ; Changed matrix order, making direction vectors the rows
  56. ; 
  57. ; Revision 1.7  1993/10/25  11:49:58  matt
  58. ; Made vm_vec_delta_ang() take optional forward vector to return signed delta
  59. ; 
  60. ; Revision 1.6  1993/10/20  01:10:04  matt
  61. ; Added vm_vec_delta_ang(), vm_vec_delta_ang_norm(), and vm_vec_ang_2_matrix()
  62. ; 
  63. ; Revision 1.5  1993/09/28  12:16:04  matt
  64. ; Added func vm_vector_2_matrix()
  65. ; 
  66. ; Revision 1.4  1993/09/24  21:19:14  matt
  67. ; Added vm_vec_avg() and vm_vec_avg4()
  68. ; 
  69. ; Revision 1.3  1993/09/20  14:56:35  matt
  70. ; Added new function, vm_vec_perp()
  71. ; 
  72. ; Revision 1.2  1993/09/17  11:09:57  matt
  73. ; Added vm_vec_add2() and vm_vec_sub2(), which take 2 args (dest==src0)
  74. ; 
  75. ; Revision 1.1  1993/09/16  20:19:29  matt
  76. ; Initial revision
  77. ; 
  78. ;
  79. ;
  80.  
  81. ifndef _VECMAT_INC
  82. _VECMAT_INC equ 1
  83.  
  84.     include    fix.inc
  85.  
  86. ;Structures
  87.  
  88. vms_vector    struct
  89.     union
  90.      struct
  91. x      fix    ?
  92. y      fix    ?
  93. z      fix    ?
  94.      ends
  95. xyz     fix    3 dup (?)
  96.     ends
  97. vms_vector    ends
  98.  
  99.  
  100. vms_svec    struct
  101.     union
  102.      struct
  103. sv_x      dw    ?
  104. sv_y      dw    ?
  105. sv_z      dw    ?
  106.      ends
  107. sv_xyz     dw    3 dup (?)
  108.     ends
  109. vms_svec    ends
  110.  
  111. vms_angvec    struct
  112.     union
  113.     struct
  114. pitch     fixang    ?
  115. bank     fixang    ?
  116. head     fixang    ?
  117.     ends
  118.     struct
  119. ;p     fixang    ?
  120. ;b     fixang    ?
  121. ;h     fixang    ?
  122.     ends
  123.     ends
  124. vms_angvec    ends
  125.  
  126. vms_matrix    struct
  127.     union
  128.      struct
  129. m1      fix    ?
  130. m4      fix    ?
  131. m7      fix    ?
  132. m2      fix    ?
  133. m5      fix    ?
  134. m8      fix    ?
  135. m3      fix    ?
  136. m6      fix    ?
  137. m9      fix    ?
  138.      ends
  139.      struct
  140. rvec      fix    ?,?,?
  141. uvec      fix    ?,?,?
  142. fvec      fix    ?,?,?
  143.      ends
  144. ;;mm     fix    9 dup (?)
  145.     ends
  146. vms_matrix    ends
  147.  
  148.  
  149. ;Macros
  150.  
  151. ;copies one vector to another, using the register specified.  If none
  152. ;specified, uses eax
  153. vm_copy    macro    dest,src,reg:=<eax>
  154.     for    ofs,<x,y,z>
  155.      mov    reg,[src].ofs
  156.      mov    [dest].ofs,reg
  157.     endm
  158.     endm
  159.  
  160. ;copies one angvec to another, using the register specified.  If none
  161. ;specified, uses eax (and ax). Note the trick to get the word part of
  162. ;the register without knowing what the register is.
  163. vm_acopy    macro    dest,src,reg:=<eax>
  164.     mov    reg,fix ptr [src].p    ;copy two at once
  165.     mov    fix ptr [dest].p,reg
  166.     db    66h    ;size override, use short
  167.     mov    reg,fix ptr [src].h ;copy last angle
  168.     db    66h    ;size override, use short
  169.     mov    fix ptr [dest].h,reg
  170.     endm
  171.  
  172. ;Global contants
  173.     extdef    vms_vector,_vmd_zero_vector
  174.     extdef    vms_matrix,_vmd_identity_matrix
  175.  
  176. ;Routines
  177.  
  178. ;register usage appears here, but see VECMAT.H for other info
  179.  
  180.     extn    vm_vec_add    ;eax=dest, esi,edi=srcs
  181.     extn    vm_vec_sub    ;eax=dest, esi,edi=srcs
  182.     extn    vm_vec_add2    ;edi=dest, esi=source
  183.     extn    vm_vec_sub2    ;edi=dest, esi=source
  184.     extn    vm_vec_avg    ;eax=dest, esi,edi=srcs
  185.     extn    vm_vec_avg4    ;eax=dest, esi,edi,ecx,edx=srcs
  186.     extn    vm_vec_scale    ;ebx=vec, ecx=scale
  187.     extn    vm_vec_copy_scale    ;edi=dest, ebx=src, ecx=scale
  188.     extn    vm_vec_scale2    ;edi=vec, ebx=n,edx=d
  189.     extn    vm_vec_mag    ;esi=vec, returns eax=mag
  190.     extn    vm_vec_dist    ;esi,edi=vecs, returns eax=dist
  191.     extn    vm_vec_mag_quick    ;esi=vec, returns eax=approx dist
  192.     extn    vm_vec_dist_quick    ;esi,edi=vecs, returns eax=approx dist
  193.     extn    vm_vec_normalize    ;esi=vec, returns ecx=mag
  194.     extn    vm_vec_normalize_quick    ;esi=vec, returns ecx=mag
  195.     extn    vm_vec_copy_normalize    ;edi=dest, esi=src
  196.     extn    vm_vec_copy_normalize_quick    ;edi=dest, esi=src
  197.     extn    vm_vec_normalized_dir    ;edi=dest, esi=endpoint, ebx=startpoint
  198.     extn    vm_vec_normalized_dir_quick    ;edi=dest, esi=endpoint, ebx=startpoint
  199.     extn    vm_vec_dotprod    ;esi,edi=vecs, ret eax=dotprod
  200.     extn    vm_vec_crossprod    ;eax=dest, esi,edi=srcs
  201.     extn    vm_vec_normal    ;ebx=dest, eax,esi,edi=srcs
  202.     extn    vm_vec_perp    ;ebx=dest, eax,esi,edi=srcs
  203.     extn    vm_vec_delta_ang    ;esi,edi=vecs, eax=(optional) fvec, ret ax=angle
  204.     extn    vm_vec_delta_ang_norm ;esi,edi=vec, ret ax=angle
  205.     extn    vm_angles_2_matrix    ;edi=dest, esi=angvec
  206.     extn    vm_vector_2_matrix    ;edi=dest, esi=fwdvec, eax=upvec, ebx=rightvec
  207.     extn    vm_vector_2_matrix_norm    ;edi=dest, esi=fwdvec, eax=upvec, ebx=rightvec
  208.     extn    vm_vec_rotate    ;eax=dest, esi=src, edi=matrix
  209.     extn    vm_transpose_matrix    ;edi=matrix (transpose in place)
  210.     extn    vm_copy_transpose_matrix ;edi=dest, esi=src
  211.     extn    vm_matrix_x_matrix    ;eax=dest, esi,edi=srcs
  212.     extn    vm_vec_ang_2_matrix    ;esi=vector, eax=angle, edi=matrix
  213.     extn    vm_dist_to_plane    ;ebx=norm, edi=plane pnt, esi=check pnt, ret eax=dist
  214.     extn    vm_extract_angles_matrix    ;edi=angles, esi=matrix
  215.     extn    vm_vec_scale_add    ;edi=dest, ebx=src1, esi=src2, ecx=scale
  216.     extn    vm_vec_scale_add2    ;edi=dest, esi=src, ecx=scale
  217.     extn    vm_extract_angles_vector    ;edi=angvec, esi=vec TRASHES ESI
  218.     extn    vm_extract_angles_vector_normalized    ;edi=angvec, esi=vec
  219.  
  220. endif
  221.  
  222.