Source position: _crw_funmin.pas line 594
procedure SetIdentityScale(
var f: Double;
var xLo: array of Double;
var xHi: array of Double;
n: Integer
);