void PlayerActor::StepSimulation() {
if (m_rigidBody == 0) {
return;
}
Vec3 linVelWS;
Vec3 angVelWS;
float mass;
// float currentSpeed;
Vec3 impulse;
const Matrix44& xform = m_rigidBody->GetTransform();
// Get coordinate system axes in body space
Vec3 forwardWS;
Vec3 upWS;
Vec3 rightWS;
forwardWS.XformVec(s_forwardAxis, xform);
upWS.XformVec(s_upAxis, xform);
rightWS.Cross(forwardWS, upWS);
// Get various body variables
m_rigidBody->GetLinearVelocity(linVelWS);
m_rigidBody->GetAngularVelocity(angVelWS);
// currentSpeed = linVelWS.Dot(forwardWS);
// currentSpeed = linVelWS.Length();
mass = m_rigidBody->GetMass();
// Compensate for spinning
impulse.Scale(m_deltaTime * -48.0f, angVelWS);
m_rigidBody->ApplyAngularImpulse(impulse);
// Apply drag proportional to speed
impulse.Scale(m_deltaTime * -m_drag * mass, linVelWS);
m_rigidBody->ApplyImpulse(impulse);
if (m_command & CMD_MOVING) {
Coord coord;
Matrix44 fixedXform;
// Get body transformation without pitch and roll
xform.GetOrthoCoord(&coord);
coord.hpr[CB_P] = 0.0f;
coord.hpr[CB_R] = 0.0f;
fixedXform.MakeCoord(&coord);
// Transform world axes into coordinate system
Vec3 forward, up, right;
forward.XformVec(s_forwardAxis, fixedXform);
up.XformVec(s_upAxis, fixedXform);
right.Cross(forward, up);
Vec3 displacement(0.0f, 0.0f, 0.0f);
if (m_command & CMD_MOVE_FORWARD) {
displacement.AddScaled(displacement, 1.0f, forward);
}
if (m_command & CMD_MOVE_BACKWARD) {
displacement.AddScaled(displacement, -1.0f, forward);
}
if (m_command & CMD_STRAFE_LEFT) {
displacement.AddScaled(displacement, -1.0f, right);
}
if (m_command & CMD_STRAFE_RIGHT) {
displacement.AddScaled(displacement, 1.0f, right);
}
displacement.Normalize();
impulse.Scale(m_deltaTime * /*(m_maxSpeed - currentSpeed) **/ mass * m_gain, displacement);
m_rigidBody->ApplyImpulse(impulse);
}
A small program I wrote using the crappy Turing language. Me feels stupid because nietzsche has nice big C++ looking script language instead.setscreen ("graphics:v16")
var x,y,xSun,ySun,th : real
var ix,iy, col : int
xSun := maxx div 2
ySun := maxy div 2
for iTh : 1..5000
th := 2*3.14/500*iTh
x := 200*cos(th)+xSun
y := 25*sin(th)+ySun
ix := round(x)
iy := round
if sin(th)<0 then
drawfilloval(round(xSun),round(ySun),100,100,14)
end if
col := 3
drawfilloval (ix,iy,10,10,col)
if sin(th)>=0 then
drawfilloval(round(xSun),round(ySun),100,100,14)
end if
delay (10)
cls
end for
setscreen ("graphics:v16")
var x,y,xSun,ySun,th : real
var ix,iy, col : int
// Calculate center point of sun
xSun := maxx div 2
ySun := maxy div 2
// Loop from 1 till 5000
for iTh : 1..5000
// Calculate an angle theta
th := 2*3.14/500*iTh
// Calculate point around center point of sun, given angle theta
x := 200*cos(th)+xSun
y := 25*sin(th)+ySun
// Convert point from floating-point to integer
ix := round(x)
iy := round(y)
// If angle theta is > 180 degrees, draw filled oval at center point of sun
if sin(th)<0 then
drawfilloval(round(xSun),round(ySun),100,100,14)
end if
// Draw filled oval at point around sun
col := 3
drawfilloval (ix,iy,10,10,col)
// If angle theta is <= 180 degrees, then draw filled oval at center point of sun
if sin(th)>=0 then
drawfilloval(round(xSun),round(ySun),100,100,14)
end if
delay (10)
cls
end for
)
Sorry but the sun stays still.
