gnorm.pas

function NormalizeGradient (Gradient : TGradient; Norm : Integer) : TGradient;
var
    i, j : Integer;
    Step : Integer;
    
begin

    Result := TGradient.Create (Norm);
    Step   := Gradient.Size/Norm;
    i      := 0;
    j      := 0;

    while (1) do
    begin

        Result.Data[i] := Gradient.Data[j];
        Inc (i); j := j+Step;
    
    end;

end;