home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / OMOVE.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.4 KB  |  18 lines
  1.       SUBROUTINE OMOVE(X,Y,V,D,WV,WD,DV,DD)                             2564
  2. C     ...MOVEMENT SUBROUTINE FOR KLINGONS AND GHOSTSHIPS.               2565
  3.       DELV=AMIN1(DV,ABS(WV-V))                                          2566
  4.       DELTA=WD-D                                                        2567
  5.       IF(WV.LT.V)DELV=-DELV                                             2568
  6.       IF(ABS(DELTA).GT.180.)DELTA=DELTA-SIGN(360.,DELTA)                2569
  7.       IF(ABS(DELTA).GT.DD)DELTA=SIGN(DD,DELTA)                          2570
  8.       VX=COSD(D+DELTA/2.)*(V+DELV/2.)                                   2571
  9.       VY=SIND(D+DELTA/2.)*(V+DELV/2.)                                   2572
  10.       V=V+DELV                                                          2573
  11.       D=D+DELTA                                                         2574
  12.       IF(D.GE.360.)D=D-360.                                             2575
  13.       IF(D.LT.0.)D=D+360.                                               2576
  14.       X=X+VX                                                            2577
  15.       Y=Y+VY                                                            2578
  16.       RETURN                                                            2579
  17.       END                                                               2580
  18.