- // Note: isn't perfect, would consider the object has fallen if its just been rotated a bit
- Function TQuake3BSP.HasFallenOver(Matrix : TGLMatrixf4) : Boolean;
- var
- x,y : integer;
- begin
- Result := False;
- If (Matrix[0,0] <> 1) or (Matrix[1,1] <> 1) or (Matrix[2,2] <> 1) or (Matrix[3,3] <> 1) then
- Result := True;
- for x := 0 to 2 do
- for y := 0 to 3 do
- If x <> y then
- If (Matrix[x,y] <> 0) then
- Result := True;
- end;