class function ToVector(data: IPixelEnumerator; scaleFactor: integer): TFloatArray; overload;

var t: float; begin if (Length(eigenvalues) > 2) then // 3 eigenvalues. begin if (eigenvalues[0] < eigenvalues[2]) then begin t := eigenvalues[0]; eigenvalues[0] := eigenvalues[2]; eigenvalues[2] := t; t := eigenvectors[0][0]; eigenvectors[0][0] := eigenvectors[0][1]; eigenvectors[0][1] := t; t := eigenvectors[2][0]; eigenvectors[2][0] := eigenvectors[2][1]; eigenvectors[2][1] := t; end; end; if (eigenvalues[0] < eigenvalues[1]) then // 2 or 3 eigenvalues begin t := eigenvalues[0]; eigenvalues[0] := eigenvalues[1]; eigenvalues[1] := t; t := eigenvectors[0][0]; eigenvectors[0][0] := eigenvectors[0][1]; eigenvectors[0][1] := t; t := eigenvectors[1][0]; eigenvectors[1][0] := eigenvectors[1][1]; eigenvectors[1][1] := t; end; if (Length(eigenvalues) > 2) then // 3 eigenvalues. begin 

if (eigenvalues[1] < eigenvalues[2]) then begin t := eigenvalues[1]; eigenvalues[1] := eigenvalues[2]; eigenvalues[2] := t; t := eigenvectors[1][0]; eigenvectors[1][0] := eigenvectors[1][1]; eigenvectors[1][1] := t; t := eigenvectors[2][0]; eigenvectors[2][0] := eigenvectors[2][1]; eigenvectors[2][1] := t; end; end; end;