ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Global/OniImgClass.pas

Comparing oup/current/Global/OniImgClass.pas (file contents):
Revision 122 by alloc, Fri Mar 23 01:41:15 2007 UTC vs.
Revision 124 by alloc, Fri Mar 23 03:07:58 2007 UTC

#	Line 589 | Line 589 | var
589		size: Integer;
590		x, y: Word;
591		bpp:  Byte;
592	+	minside: Byte;
593		begin
594	+	minside := 1;
595		case Self.FStoreType of
596		9:
597	<	bpp := 8;
597	>	begin
598	>	bpp := 4;
599	>	minside := 4;
600	>	end;
601		0, 1, 2:
602		bpp := 16;
603		8:
#	Line 611 | Line 616 | begin
616		x    := x div 2;
617		y    := y div 2;
618		size := size + (x * y * bpp) div 8;
619	<	until (x = 1) or (y = 1);
619	>	until (x = minside) or (y = minside);
620		end;
621		Result := size;
622		end;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)