minor changes to color normalization function

gbdk-2020 · Feb 4, 2021 · 18ef43a · 18ef43a
1 parent 86f6e74
commit 18ef43a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/gbcomp/Gbconst.pas b/gbcomp/Gbconst.pas
@@ -215,10 +215,10 @@ function NormalizeClipColor(cIn : TColor): TColor;
  Result:= cIn;
  end else begin
  case (byte(RgbToGray(cIn)) SHR 6) of
- 0 : Result := clBlack;
- 1 : Result := clDkGray;
- 2 : Result := clLtGray;
- 3 : Result := clWhite;
+ 0  : Result := clBlack;
+ 1  : Result := clDkGray;
+ 2  : Result := clLtGray;
+ else Result := clWhite;
  end;
  end;
 end;