annotate ai/steer.d @ 22:4fce5596d1f6

ai work
author zzzzrrr <mason.green@gmail.com>
date Thu, 26 Mar 2009 16:56:30 -0400
parents cad384ad349e
children e79347dd38a3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
1 /*
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
2 * Copyright (c) 2009, Mason Green (zzzzrrr)
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
3 * http://www.dsource.org/projects/openmelee
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
4 * Based on OpenSteer, Copyright (c) 2002-2003, Sony Computer Entertainment America
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
5 * Original author: Craig Reynolds
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
6 *
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
7 * All rights reserved.
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
8 *
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
9 * Redistribution and use in source and binary forms, with or without modification,
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
10 * are permitted provided that the following conditions are met:
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
11 *
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
12 * * Redistributions of source code must retain the above copyright notice,
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
13 * this list of conditions and the following disclaimer.
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
14 * * Redistributions in binary form must reproduce the above copyright notice,
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
15 * this list of conditions and the following disclaimer in the documentation
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
16 * and/or other materials provided with the distribution.
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
17 * * Neither the name of the polygonal nor the names of its contributors may be
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
18 * used to endorse or promote products derived from this software without specific
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
19 * prior written permission.
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
20 *
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
21 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
22 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
23 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
24 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
25 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
26 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
27 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
28 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
29 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
30 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
31 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
32 */
18
7f74e064dad5 refactored code
zzzzrrr <mason.green@gmail.com>
parents: 15
diff changeset
33 module openmelee.ai.steer;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
34
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
35 import tango.io.Stdout : Stdout;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
36
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
37 import blaze.common.bzMath: bzDot, bzClamp, bzVec2;
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
38 import blaze.collision.shapes.bzShape : bzShape;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
39 import tango.math.Math : sqrt;
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
40 import blaze.dynamics.bzBody: bzBody;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
41
18
7f74e064dad5 refactored code
zzzzrrr <mason.green@gmail.com>
parents: 15
diff changeset
42 import openmelee.ships.ship : Ship, State;
7f74e064dad5 refactored code
zzzzrrr <mason.green@gmail.com>
parents: 15
diff changeset
43 import openmelee.ai.utilities;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
44
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
45 class Steer
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
46 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
47 // Constructor: initializes state
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
48 this (Ship ship)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
49 {
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
50 m_ship = ship;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
51 m_body = ship.rBody;
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
52 }
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
53
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
54 struct PathIntersection
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
55 {
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
56 bool intersect;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
57 float distance;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
58 bzVec2 surfacePoint;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
59 bzVec2 surfaceNormal;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
60 bzBody obstacle;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
61 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
62
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
63 // reset state
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
64 void reset () {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
65 // initial state of wander behavior
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
66 m_wanderSide = 0;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
67 m_wanderUp = 0;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
68 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
69
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
70 void update() {
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
71 m_position = m_ship.state.position;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
72 m_velocity = m_ship.state.velocity;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
73 m_speed = m_ship.state.speed;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
74 m_maxForce = m_ship.state.maxForce;
12
2ecd16840900 added tracker
Mason Green <mason.green@gmail.com>
parents: 11
diff changeset
75 m_forward = m_ship.state.forward;
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
76 m_radius = m_ship.state.radius;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
77 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
78
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
79 // -------------------------------------------------- steering behaviors
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
80
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
81 bzVec2 steerForWander (float dt) {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
82 // random walk m_wanderSide and m_wanderUp between -1 and +1
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
83 float speed = 12 * dt; // maybe this (12) should be an argument?
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
84 m_wanderSide = scalarRandomWalk (m_wanderSide, speed, -1, +1);
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
85 m_wanderUp = scalarRandomWalk (m_wanderUp, speed, -1, +1);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
86
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
87 // return a pure lateral steering vector: (+/-Side) + (+/-Up)
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
88 return (m_side * m_wanderSide) + (m_up * m_wanderUp);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
89 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
90
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
91 // Seek behavior
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
92 bzVec2 steerForSeek (bzVec2 target) {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
93 bzVec2 desiredVelocity = target - m_position;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
94 return desiredVelocity - m_velocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
95 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
96
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
97 // Flee behavior
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
98 bzVec2 steerForFlee (bzVec2 target) {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
99 bzVec2 desiredVelocity = m_position - target;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
100 return desiredVelocity - m_velocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
101 }
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
102
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
103 /*
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
104 // xxx proposed, experimental new seek/flee [cwr 9-16-02]
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
105 bzVec2 xxxsteerForFlee (bzVec2 target) {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
106 bzVec2 offset = m_position - target;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
107 bzVec2 desiredVelocity = bzClamp(offset.truncateLength (maxSpeed ());
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
108 return desiredVelocity - m_velocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
109 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
110
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
111 bzVec2 xxxsteerForSeek (bzVec2 target) {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
112 // bzVec2 offset = target - position;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
113 bzVec2 offset = target - m_position;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
114 bzVec2 desiredVelocity = offset.truncateLength (maxSpeed ()); //xxxnew
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
115 return desiredVelocity - m_velocity;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
116 }
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
117 */
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
118
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
119 /*
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
120 // ------------------------------------------------------------------------
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
121 // Obstacle Avoidance behavior
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
122 //
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
123 // Returns a steering force to avoid a given obstacle. The purely
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
124 // lateral steering force will turn our vehicle towards a silhouette edge
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
125 // of the obstacle. Avoidance is required when (1) the obstacle
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
126 // intersects the vehicle's current path, (2) it is in front of the
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
127 // vehicle, and (3) is within minTimeToCollision seconds of travel at the
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
128 // vehicle's current velocity. Returns a zero vector value (bzVec2::zero)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
129 // when no avoidance is required.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
130 bzVec2 steerToAvoidObstacle (float minTimeToCollision, Obstacle obstacle) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
131
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
132 bzVec2 avoidance = obstacle.steerToAvoid (this, minTimeToCollision);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
133 return avoidance;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
134 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
135
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
136 // avoids all obstacles in an ObstacleGroup
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
137 */
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
138
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
139 bzVec2 steerToAvoidObstacles (float minTimeToCollision, bzBody obstacles) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
140
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
141 bzVec2 avoidance;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
142 PathIntersection nearest, next;
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
143 float minDistanceToCollision = 10; //minTimeToCollision * m_speed;
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
144
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
145 next.intersect = false;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
146 nearest.intersect = false;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
147
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
148 // test all obstacles for intersection with my forward axis,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
149 // select the one whose point of intersection is nearest
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
150 for (bzBody o = obstacles; o; o = o.next) {
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
151
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
152 if(o is m_body) continue;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
153
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
154 // This code which presumes the obstacle is spherical
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
155 findNextIntersectionWithSphere(o, next);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
156
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
157 if (!nearest.intersect || (next.intersect && next.distance < nearest.distance)) {
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
158 nearest = next;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
159 }
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
160 }
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
161
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
162 // when a nearest intersection was found
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
163 if (nearest.intersect && (nearest.distance < minDistanceToCollision)) {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
164 // compute avoidance steering force: take offset from obstacle to me,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
165 // take the component of that which is lateral (perpendicular to my
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
166 // forward direction), set length to maxForce, add a bit of forward
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
167 // component (in capture the flag, we never want to slow down)
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
168 bzVec2 offset = m_position - nearest.obstacle.position;
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
169 avoidance = perpendicularComponent(offset, m_forward);
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
170 avoidance.normalize;
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
171 avoidance = m_body.localPoint(avoidance);
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
172 ///avoidance *= m_maxForce;
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
173 //avoidance += m_forward * m_maxForce * 0.75f;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
174 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
175
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
176 auto state = cast(State) m_body.userData;
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
177 state.avoid = avoidance;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
178 return avoidance;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
179 }
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
180
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
181 bzVec2 avoid(float minTimeToCollision, bzBody obstacles) {
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
182
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
183 float avoidMargin = 1.0f;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
184 float maxLookahead = minTimeToCollision * m_speed;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
185
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
186 // Make sure we're moving
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
187 if (m_velocity.length > 0)
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
188 {
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
189 for (bzBody o = obstacles; o; o = o.next) {
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
190
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
191 if(o is m_body) continue;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
192
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
193 // Find the distance from the line we're moving along to the obstacle.
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
194 bzVec2 movementNormal = m_velocity;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
195 movementNormal.normalize();
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
196 bzVec2 characterToObstacle = o.position - m_position;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
197
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
198 real distanceSquared = bzDot(characterToObstacle, movementNormal);
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
199 distanceSquared = characterToObstacle.lengthSquared - distanceSquared*distanceSquared;
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
200
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
201 // Check for collision
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
202 float oRad = 0;
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
203 for (bzShape s = o.shapeList; s; s = s.next) {
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
204 if(s.sweepRadius > oRad) {
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
205 oRad = s.sweepRadius;
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
206 }
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
207 }
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
208
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
209 real radius = oRad + avoidMargin;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
210 if (distanceSquared < radius*radius)
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
211 {
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
212 // Find how far along our movement vector the closest pass is
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
213 real distanceToClosest = bzDot(characterToObstacle, movementNormal);
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
214
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
215 // Make sure this isn't behind us and is closer than our lookahead.
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
216 if (distanceToClosest > 0 && distanceToClosest < maxLookahead)
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
217 {
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
218 // Find the closest point
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
219 bzVec2 closestPoint = o.position + movementNormal * distanceToClosest;
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
220
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
221 // Find the point of avoidance
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
222 bzVec2 target = o.position + (closestPoint - o.position).length * radius;
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
223
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
224 auto state = cast(State) m_body.userData;
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
225 state.avoid = target;
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
226
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
227 return target;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
228 }
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
229 }
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
230 }
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
231 }
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
232
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
233 auto state = cast(State) m_body.userData;
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
234 state.avoid = bzVec2.zeroVect;
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
235
21
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
236 return bzVec2.zeroVect;
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
237
zzzzrrr <mason.green@gmail.com>
parents: 20
diff changeset
238 }
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
239
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
240 void findNextIntersectionWithSphere(bzBody obs,
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
241 inout PathIntersection intersection) {
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
242
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
243 // This routine is based on the Paul Bourke's derivation in:
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
244 // Intersection of a Line and a Sphere (or circle)
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
245 // http://local.wasp.uwa.edu.au/~pbourke/geometry/sphereline/raysphere.c
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
246
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
247 float b, c, d, p, q, s;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
248 bzVec2 lc;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
249
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
250 // initialize pathIntersection object
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
251 intersection.intersect = false;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
252 intersection.obstacle = obs;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
253
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
254 // find "local center" (lc) of sphere in coordinate space
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
255 lc = m_body.localPoint(obs.position);
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
256
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
257 // computer line-sphere intersection parameters
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
258 b = 0;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
259
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
260 // Find radius of obstacle
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
261 float obsRadius = 0;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
262 for (bzShape shape = obs.shapeList; shape; shape = shape.next) {
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
263 if(shape.sweepRadius > obsRadius) {
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
264 obsRadius = shape.sweepRadius;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
265 }
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
266 }
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
267
22
4fce5596d1f6 ai work
zzzzrrr <mason.green@gmail.com>
parents: 21
diff changeset
268 c = square(lc.x) + square(lc.y) - square(obsRadius + m_radius);
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
269 d = (b * b) - (4 * c);
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
270
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
271 // when the path does not intersect the sphere
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
272 if (d < 0) return;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
273
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
274 // otherwise, the path intersects the sphere in two points with
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
275 // parametric coordinates of "p" and "q".
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
276 // (If "d" is zero the two points are coincident, the path is tangent)
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
277 s = sqrt(d);
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
278 p = (-b + s) * 0.5f;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
279 q = (-b - s) * 0.5f;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
280
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
281 // both intersections are behind us, so no potential collisions
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
282 if ((p < 0) && (q < 0)) return;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
283
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
284 // at least one intersection is in front of us
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
285 intersection.intersect = true;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
286 intersection.distance =
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
287 ((p > 0) && (q > 0)) ?
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
288 // both intersections are in front of us, find nearest one
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
289 ((p < q) ? p : q) :
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
290 // otherwise only one intersections is in front, select it
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
291 ((p > 0) ? p : q);
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
292 }
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
293
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
294 /*
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
295 // ------------------------------------------------------------------------
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
296 // Unaligned collision avoidance behavior: avoid colliding with other
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
297 // nearby vehicles moving in unconstrained directions. Determine which
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
298 // (if any) other other vehicle we would collide with first, then steers
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
299 // to avoid the site of that potential collision. Returns a steering
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
300 // force vector, which is zero length if there is no impending collision.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
301
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
302 bzVec2 steerToAvoidNeighbors (float minTimeToCollision, AVGroup others) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
303
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
304 // first priority is to prevent immediate interpenetration
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
305 bzVec2 separation = steerToAvoidCloseNeighbors (0, others);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
306 if (separation != bzVec2::zero) return separation;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
307
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
308 // otherwise, go on to consider potential future collisions
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
309 float steer = 0;
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
310 Ship threat;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
311
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
312 // Time (in seconds) until the most immediate collision threat found
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
313 // so far. Initial value is a threshold: don't look more than this
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
314 // many frames into the future.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
315 float minTime = minTimeToCollision;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
316
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
317 // xxx solely for annotation
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
318 bzVec2 xxxThreatPositionAtNearestApproach;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
319 bzVec2 xxxOurPositionAtNearestApproach;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
320
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
321 // for each of the other vehicles, determine which (if any)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
322 // pose the most immediate threat of collision.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
323 for (AVIterator i = others.begin(); i != others.end(); i++)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
324 {
15
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
325 Ship other = i;
8e6a9e390cba Added binary win32 demo
zzzzrrr <mason.green@gmail.com>
parents: 12
diff changeset
326 if (other !is this)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
327 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
328 // avoid when future positions are this close (or less)
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
329 float collisionDangerThreshold = radius * 2;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
330
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
331 // predicted time until nearest approach of "this" and "other"
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
332 float time = predictNearestApproachTime (other);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
333
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
334 // If the time is in the future, sooner than any other
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
335 // threatened collision...
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
336 if ((time >= 0) (time < minTime))
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
337 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
338 // if the two will be close enough to collide,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
339 // make a note of it
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
340 if (computeNearestApproachPositions (other, time)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
341 < collisionDangerThreshold)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
342 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
343 minTime = time;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
344 threat = other;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
345 xxxThreatPositionAtNearestApproach
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
346 = hisPositionAtNearestApproach;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
347 xxxOurPositionAtNearestApproach
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
348 = ourPositionAtNearestApproach;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
349 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
350 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
351 }
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
352 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
353
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
354 // if a potential collision was found, compute steering to avoid
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
355 if (threat)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
356 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
357 // parallel: +1, perpendicular: 0, anti-parallel: -1
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
358 float parallelness = m_forward.dot(threat.forward);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
359 float angle = 0.707f;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
360
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
361 if (parallelness < -angle)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
362 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
363 // anti-parallel "head on" paths:
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
364 // steer away from future threat position
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
365 bzVec2 offset = xxxThreatPositionAtNearestApproach - m_position;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
366 float sideDot = offset.dot(m_side());
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
367 steer = (sideDot > 0) ? -1.0f : 1.0f;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
368 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
369 else
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
370 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
371 if (parallelness > angle)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
372 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
373 // parallel paths: steer away from threat
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
374 bzVec2 offset = threat.position - m_position;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
375 float sideDot = bzDot(offset, m_side);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
376 steer = (sideDot > 0) ? -1.0f : 1.0f;
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
377 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
378 else
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
379 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
380 // perpendicular paths: steer behind threat
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
381 // (only the slower of the two does this)
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
382 if (threat.speed() <= speed)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
383 {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
384 float sideDot = bzDot(m_side, threat.velocity);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
385 steer = (sideDot > 0) ? -1.0f : 1.0f;
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
386 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
387 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
388 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
389 }
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
390
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
391 return m_side() * steer;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
392 }
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
393 */
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
394
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
395 // Given two vehicles, based on their current positions and velocities,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
396 // determine the time until nearest approach
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
397 float predictNearestApproachTime (State other) {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
398
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
399 // imagine we are at the origin with no velocity,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
400 // compute the relative velocity of the other vehicle
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
401 bzVec2 myVelocity = m_velocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
402 bzVec2 otherVelocity = other.velocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
403 bzVec2 relVelocity = otherVelocity - myVelocity;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
404 float relSpeed = relVelocity.length;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
405
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
406 // for parallel paths, the vehicles will always be at the same distance,
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
407 // so return 0 (aka "now") since "there is no time like the present"
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
408 if (relSpeed == 0) return 0;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
409
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
410 // Now consider the path of the other vehicle in this relative
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
411 // space, a line defined by the relative position and velocity.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
412 // The distance from the origin (our vehicle) to that line is
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
413 // the nearest approach.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
414
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
415 // Take the unit tangent along the other vehicle's path
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
416 bzVec2 relTangent = relVelocity / relSpeed;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
417
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
418 // find distance from its path to origin (compute offset from
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
419 // other to us, find length of projection onto path)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
420 bzVec2 relPosition = m_position - other.position;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
421 float projection = bzDot(relTangent, relPosition);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
422
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
423 return projection / relSpeed;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
424 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
425
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
426 // Given the time until nearest approach (predictNearestApproachTime)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
427 // determine position of each vehicle at that time, and the distance
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
428 // between them
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
429 float computeNearestApproachPositions (State other, float time) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
430
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
431 bzVec2 myTravel = m_forward * m_speed * time;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
432 bzVec2 otherTravel = other.forward * other.speed * time;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
433
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
434 bzVec2 myFinal = m_position + myTravel;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
435 bzVec2 otherFinal = other.position + otherTravel;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
436
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
437 return (myFinal - otherFinal).length;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
438 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
439
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
440 // ------------------------------------------------------------------------
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
441 // pursuit of another vehicle ( version with ceiling on prediction time)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
442
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
443 bzVec2 steerForPursuit (State quarry) {
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
444 return steerForPursuit (quarry, float.max);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
445 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
446
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
447 bzVec2 steerForPursuit (State quarry, float maxPredictionTime) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
448
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
449 // offset from this to quarry, that distance, unit vector toward quarry
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
450 bzVec2 offset = quarry.position - m_position;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
451 float distance = offset.length;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
452 bzVec2 unitOffset = offset / distance;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
453
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
454 // how parallel are the paths of "this" and the quarry
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
455 // (1 means parallel, 0 is pependicular, -1 is anti-parallel)
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
456 float parallelness = bzDot(m_forward , quarry.forward);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
457
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
458 // how "forward" is the direction to the quarry
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
459 // (1 means dead ahead, 0 is directly to the side, -1 is straight back)
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
460 float forwardness = bzDot(m_forward , unitOffset);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
461
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
462 float directTravelTime = distance / m_speed;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
463 int f = intervalComparison (forwardness, -0.707f, 0.707f);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
464 int p = intervalComparison (parallelness, -0.707f, 0.707f);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
465
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
466 float timeFactor = 0; // to be filled in below
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
467
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
468 // Break the pursuit into nine cases, the cross product of the
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
469 // quarry being [ahead, aside, or behind] us and heading
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
470 // [parallel, perpendicular, or anti-parallel] to us.
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
471 switch (f)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
472 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
473 case +1:
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
474 switch (p)
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
475 {
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
476 case +1: // ahead, parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
477 timeFactor = 4;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
478 break;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
479 case 0: // ahead, perpendicular
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
480 timeFactor = 1.8f;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
481 break;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
482 case -1: // ahead, anti-parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
483 timeFactor = 0.85f;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
484 break;
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
485 }
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
486 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
487 case 0:
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
488 switch (p)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
489 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
490 case +1: // aside, parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
491 timeFactor = 1;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
492 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
493 case 0: // aside, perpendicular
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
494 timeFactor = 0.8f;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
495 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
496 case -1: // aside, anti-parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
497 timeFactor = 4;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
498 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
499 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
500 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
501 case -1:
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
502 switch (p)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
503 {
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
504 case +1: // behind, parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
505 timeFactor = 0.5f;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
506 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
507 case 0: // behind, perpendicular
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
508 timeFactor = 2;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
509 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
510 case -1: // behind, anti-parallel
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
511 timeFactor = 2;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
512 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
513 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
514 break;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
515 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
516
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
517 // estimated time until intercept of quarry
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
518 float et = directTravelTime * timeFactor;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
519
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
520 // xxx experiment, if kept, this limit should be an argument
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
521 float etl = (et > maxPredictionTime) ? maxPredictionTime : et;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
522
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
523 // estimated position of quarry at intercept
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
524 bzVec2 target = quarry.predictFuturePosition(etl);
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
525
12
2ecd16840900 added tracker
Mason Green <mason.green@gmail.com>
parents: 11
diff changeset
526 return target; //steerForSeek (target);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
527 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
528
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
529 // ------------------------------------------------------------------------
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
530 // evasion of another vehicle
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
531 bzVec2 steerForEvasion (State menace, float maxPredictionTime) {
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
532
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
533 // offset from this to menace, that distance, unit vector toward menace
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
534 bzVec2 offset = menace.position - m_position;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
535 float distance = offset.length;
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
536
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
537 float roughTime = distance / menace.speed;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
538 float predictionTime = ((roughTime > maxPredictionTime) ? maxPredictionTime : roughTime);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
539 bzVec2 target = menace.predictFuturePosition (predictionTime);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
540
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
541 return steerForFlee (target);
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
542 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
543
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
544
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
545 // ------------------------------------------------------------------------
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
546 // tries to maintain a given speed, returns a maxForce-clipped steering
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
547 // force along the forward/backward axis
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
548 bzVec2 steerForTargetSpeed (float targetSpeed) {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
549 float mf = m_maxForce;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
550 float speedError = targetSpeed - m_speed;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
551 return m_forward * bzClamp(speedError, -mf, +mf);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
552 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
553
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
554
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
555 // ----------------------------------------------------------- utilities
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
556 bool isAhead (bzVec2 target) {return isAhead (target, 0.707f);};
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
557 bool isAside (bzVec2 target) {return isAside (target, 0.707f);};
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
558 bool isBehind (bzVec2 target) {return isBehind (target, -0.707f);};
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
559
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
560 bool isAhead (bzVec2 target, float cosThreshold)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
561 {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
562 bzVec2 targetDirection = target - m_position;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
563 targetDirection.normalize();
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
564 return bzDot(m_forward, targetDirection) > cosThreshold;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
565 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
566
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
567 bool isAside (bzVec2 target, float cosThreshold)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
568 {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
569 bzVec2 targetDirection = target - m_position;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
570 targetDirection.normalize();
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
571 float dp = bzDot(m_forward, targetDirection);
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
572 return (dp < cosThreshold) && (dp > -cosThreshold);
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
573 }
0
c10bc63824e7 Initial commit!
zzzzrrr <mason.green@gmail.com>
parents:
diff changeset
574
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
575 bool isBehind (bzVec2 target, float cosThreshold)
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
576 {
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
577 bzVec2 targetDirection = target - m_position;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
578 targetDirection.normalize();
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
579 return bzDot(m_forward, targetDirection) < cosThreshold;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
580 }
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
581
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
582 private:
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
583
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
584 Ship m_ship;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
585
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
586 bzVec2 m_position;
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
587 bzVec2 m_velocity;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
588 bzVec2 m_up;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
589 bzVec2 m_side;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
590 bzVec2 m_forward;
19
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
591 float m_radius;
08ddf9e71b88 steer to avoid
zzzzrrr <mason.green@gmail.com>
parents: 18
diff changeset
592 bzBody m_body;
11
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
593
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
594 float m_speed = 0;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
595 float m_maxForce = 0;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
596
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
597 // Wander behavior
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
598 float m_wanderSide;
d998bf1b0654 Added utilities and AI; fixed steer
Mason Green <mason.green@gmail.com>
parents: 9
diff changeset
599 float m_wanderUp;
9
5b61327b5a7c update steer
zzzzrrr <mason.green@gmail.com>
parents: 2
diff changeset
600 }