Changeset 348 for trunk/LocalPlayer

Timestamp:

Apr 6, 2021, 8:09:37 PM (4 years ago)

Author:

chronos

Message:

• Added: Dummy scaling functions in IsoEngine.

File:

• trunk/LocalPlayer/IsoEngine.pas (modified) (5 diffs)

trunk/LocalPlayer/IsoEngine.pas

@@ -255 +255 @@
   for ySrc := 0 to TerrainIconLines - 1 do begin
     for i := 0 to yyt * 3 - 1 do
-      MaskLine[i] := PixelPointer(Mask24, 0, 1 + ySrc * (yyt * 3 + 1) + i);
+      MaskLine[i] := PixelPointer(Mask24, ScaleToNative(0),
+        ScaleToNative(1 + ySrc * (yyt * 3 + 1) + i));
     for xSrc := 0 to TerrainIconCols - 1 do begin
       i := ySrc * 9 + xSrc;
@@ -262 +263 @@
         Border := true;
         for y := 0 to yyt * 3 - 1 do begin
-          MaskLine[y].SetX(1 + xSrc * (xxt * 2 + 1) + TSpriteSize[i].Left);
+          MaskLine[y].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + TSpriteSize[i].Left));
           if MaskLine[y].Pixel^.B = 0 then Border := false;
         end;
@@ -271 +272 @@
         Border := true;
         for x := 0 to xxt * 2 - 1 do begin
-          MaskLine[TSpriteSize[i].Top].SetX(1 + xSrc * (xxt * 2 + 1) + x);
+          MaskLine[TSpriteSize[i].Top].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + x));
           if MaskLine[TSpriteSize[i].Top].Pixel^.B = 0 then Border := false;
         end;
@@ -280 +281 @@
         Border := true;
         for y := 0 to yyt * 3 - 1 do begin
-          MaskLine[y].SetX(xSrc * (xxt * 2 + 1) + TSpriteSize[i].Right);
+          MaskLine[y].SetX(ScaleToNative(xSrc * (xxt * 2 + 1) + TSpriteSize[i].Right));
           if MaskLine[y].Pixel^.B = 0 then Border := false;
         end;
@@ -289 +290 @@
         Border := true;
         for x := 0 to xxt * 2 - 1 do begin
-          MaskLine[TSpriteSize[i].Bottom - 1].SetX(1 + xSrc * (xxt * 2 + 1) + x);
+          MaskLine[TSpriteSize[i].Bottom - 1].SetX(ScaleToNative(1 + xSrc * (xxt * 2 + 1) + x));
           if MaskLine[TSpriteSize[i].Bottom - 1].Pixel^.B = 0 then Border := false;
         end;