Changeset 124


Ignore:
Timestamp:
Mar 23, 2007, 4:07:58 AM (15 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
3 added
4 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Global/OniImgClass.pas

    r122 r124  
    590590  x, y: Word;
    591591  bpp:  Byte;
    592 begin
     592  minside: Byte;
     593begin
     594  minside := 1;
    593595  case Self.FStoreType of
    594596    9:
    595       bpp := 8;
     597    begin
     598      bpp := 4;
     599      minside := 4;
     600    end;
    596601    0, 1, 2:
    597602      bpp := 16;
     
    612617      y    := y div 2;
    613618      size := size + (x * y * bpp) div 8;
    614     until (x = 1) or (y = 1);
     619    until (x = minside) or (y = minside);
    615620  end;
    616621  Result := size;
  • oup/current/Global/RawList.pas

    r122 r124  
    314314  mipmap:    Byte;
    315315  bpp:       Byte;
     316  minside:   Byte;
    316317begin
    317318  ConManager.Connection[ConnectionID].LoadDatFilePart(fileid, $88, SizeOf(mipmap), @mipmap);
     
    323324
    324325
     326  minside := 1;
    325327  case storetype of
    326328    0, 1, 2:
    327329      bpp := 16;
    328 //      datasize := x * y * 2;
    329330    8:
    330331      bpp := 32;
    331 //      datasize := x * y * 4;
    332332    9:
     333    begin
    333334      bpp := 4;
    334 //      datasize := x * y div 2;
     335      minside := 4;
     336    end;
    335337  end;
    336338
     
    342344      y    := y div 2;
    343345      datasize := datasize + (x * y * bpp) div 8;
    344     until (x = 1) or (y = 1);
     346    until (x = minside) or (y = minside);
    345347  end;
    346348
  • oup/current/Global/TypeDefs.pas

    r118 r124  
    115115  end;
    116116
     117
    117118  TLinkByName = record
    118119      SrcOffset: Integer;
Note: See TracChangeset for help on using the changeset viewer.