moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-30 23:00:18 -05:00
Code Issues Releases Wiki Activity

Two small fixes.

Browse Source 
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@339 3f818213-9676-44b0-a9b4-5e4c4e03d09d
This commit is contained in:
Wizzup? 2009-12-25 23:06:13 +00:00
parent 19c927036e
commit 6e0136acfc
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Units/MMLCore/bitmaps.pas
View File

@ -436,9 +436,9 @@ begin
Self.SetSize(RawImage.Description.Width, RawImage.Description.Height);
{writeln(format('Image size: %d, %d', [w,h])); }
rs := RawImage.Description.RedShift;
gs := RawImage.Description.GreenShift;
bs := RawImage.Description.BlueShift;
rs := RawImage.Description.RedShift shr 3;
gs := RawImage.Description.GreenShift shr 3;
bs := RawImage.Description.BlueShift shr 3;
{ writeln(format('Shifts(R,G,B): %d, %d, %d', [rs,gs,bs]));
writeln(format('Bits per line %d, expected: %d',
[RawImage.Description.BitsPerLine, RawImage.Description.BitsPerPixel * self.w]));
@ -458,15 +458,14 @@ begin
for x := 0 to self.w -1 do
begin
// b is the first byte in the record.
data^.b := _24_old_p[round(bs shr 3)];
data^.g := _24_old_p[round(gs shr 3)];
data^.r := _24_old_p[round(rs shr 3)];
data^.b := _24_old_p[bs];
data^.g := _24_old_p[gs];
data^.r := _24_old_p[rs];
data^.a := 0;
inc(_24_old_p, 3);
inc(data);
end;
inc(_24_old_p, 1); // align to dword!
case RawImage.Description.LineEnd of
rileTight, rileByteBoundary: ; // do nothing
@ -480,7 +479,7 @@ begin
while (_24_old_p - RawImage.Data) mod 4 <> 0 do
inc(_24_old_p);
rileDQWordBoundary:
while (_24_old_p - RawImage.Data) mod 4 <> 0 do
while (_24_old_p - RawImage.Data) mod 8 <> 0 do
inc(_24_old_p);
end;
end;