anchor.diff:      SlideX, SlideY: Single;
       Action: TKMUnitActionType;
       AnimStep: Integer;
  +    AnimFraction: Single;
   
       procedure SetFromUnit(aUnit: TObject);
  -
  -    class function Lerp(const A, B: TKMUnitVisualState; Mix: Single): TKMUnitVisualState; static;
     end;
   
     // Purely visual thing. Split from TKMUnit to aviod mixup of game-logic and render Positions
  
positive.code: 
  function TKMUnitVisual.GetLerp(aLag: Single): TKMUnitVisualState;
  begin
    Result := TKMUnitVisualState.Lerp(fCurr, fPrev, aLag);
  end;
  
  
  
negative.code:   SlideX := U.GetSlide(axX);
    SlideY := U.GetSlide(axY);
    AnimStep := U.AnimStep;
    AnimFraction := 0.0;
  
    if U.Action <> nil then
      Action := U.Action.ActionType
    else
      Action := uaUnknown;
  end;
  
  
  