- for j := 0 to Dimensions['y']-1 do
- for i := 0 to Dimensions['x']-1 do begin
- if @_ColorMap <> nil then begin
- tmpColor := _ColorMap(Data[i,j,_Slice],MinVal,MaxVal);
- Result[j*Dimensions['x']+(i*4)+0] := tmpColor.Red;
- Result[j*Dimensions['x']+(i*4)+1] := tmpColor.Green;
- Result[j*Dimensions['x']+(i*4)+2] := tmpColor.Blue;
- Result[j*Dimensions['x']+(i*4)+3] := tmpColor.Alpha;
- end else
- Result[j*Dimensions['x']+i] := Data[i,j,_Slice]/MaxVal;
- end;