anchor.diff:    Self.Y := Self.Y / GetLength;
   end;
   
  +function TelVector2f.Equals(aVector: TelVector2f): Boolean;
  +begin
  +  if ((Self.X = aVector.X) and (Self.Y = aVector.Y)) then
  +    Result := true
  +  else
  +    Result := false;
  +end;
   
   procedure TelVector2i.Clear();
   begin
  
positive.code:   Self.X := 1;
    Self.Y := 0;
    Self.Z := 0;
  end;
  
  
  
negative.code:   Self.Height := Trunc(Self.Height * Factor);
  end;
  
  function TelSize.GetAspectRatio(): Single;
  begin
    Result := Width / Height;
  end;
  
  function TelSize.IsWide(): Boolean;
  begin
    if GetAspectRatio > (4 / 3) then Result := true
    else Result := false;
  end;
  
  function TelSize.Equals(aSize: TelSize): Boolean;
  begin
    if ((Self.Width = aSize.Width) and (Self.Height = aSize.Height)) then Result := true
    else Result := false;
  end;
  
  procedure TelVector3f.Clear();
  begin
  