CompressFrameTiles: compression ratio tweak

gligli · May 28, 2023 · a4be65d · a4be65d
1 parent 54d53ff
commit a4be65d
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 1 deletion.
diff --git a/tiler.exe b/tiler.exe
diff --git a/tilingencoder.pas b/tilingencoder.pas
@@ -1426,7 +1426,7 @@ procedure TFrame.CompressFrameTiles;
   CompStream: Tcompressionstream;
 begin
   CompressedFrameTiles.Clear;
-  CompStream := Tcompressionstream.create(Tcompressionlevel.clfastest, CompressedFrameTiles, True);
+  CompStream := Tcompressionstream.create(Tcompressionlevel.cldefault, CompressedFrameTiles, True);
   try
     CompStream.WriteBuffer(FrameTiles[0]^, Length(TileMap) * Length(TileMap[0]) * (SizeOf(TTile) + SizeOf(TRGBPixels) + SizeOf(TPalPixels)));
     CompStream.flush;