Changeset 124 for oup/current/Global/RawList.pas

Timestamp:

Mar 23, 2007, 4:07:58 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Global/RawList.pas (modified) (3 diffs)

oup/current/Global/RawList.pas

@@ -314 +314 @@
   mipmap:    Byte;
   bpp:       Byte;
+  minside:   Byte;
 begin
   ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(mipmap), @mipmap);
@@ -323 +324 @@
 
 
+  minside := 1;
   case storetype of
     0, 1, 2:
       bpp := 16;
-//      datasize := x * y * 2;
     8:
       bpp := 32;
-//      datasize := x * y * 4;
     9:
+    begin
       bpp := 4;
-//      datasize := x * y div 2;
+      minside := 4;
+    end;
   end;
 
@@ -342 +344 @@
       y    := y div 2;
       datasize := datasize + (x * y * bpp) div 8;
-    until (x = 1) or (y = 1);
+    until (x = minside) or (y = minside);
   end;