quakeforge/tools/qfcc/test/old/vector.r
Bill Currie 49ca09a64f Clean up qfcc's test directory.
I don't remember what half these tests were for :/
2012-11-22 21:58:52 +09:00

23 lines
456 B
R

entity self;
.vector velocity;
.vector oldorigin;
.float speed;
@extern .vector avel;
@extern vector vel;
void (vector tdest, float speed, void () func) SUB_CalcMove = {}
vector normalize (vector x) = #0;
float vlen (vector x) = #0;
void oof (void)
{
}
void foo (void)
{
float forward = vlen (self.velocity);
forward *= 0.8;
self.velocity = forward * normalize (self.velocity);
SUB_CalcMove(self.oldorigin, self.speed, oof);
self.avel_y = vel_z;
}