Changeset 260 for trunk/LocalPlayer/Term.pas

Timestamp:

Jun 10, 2020, 11:07:07 PM (4 years ago)

Author:

chronos

Message:

• Modified: Variable with first capital letter.

File:

• trunk/LocalPlayer/Term.pas (modified) (4 diffs)

trunk/LocalPlayer/Term.pas

@@ -551 +551 @@
 procedure InitSmallImp;
 const
-  cut = 4;
+  Cut = 4;
   Sharpen = 80;
 type
@@ -571 +571 @@
     for iy := 0 to BigImp.Height div ySizeBig - 1 do begin
       PixelPtr := PixelPointer(BigImp, ScaleToNative(ix * xSizeBig),
-        ScaleToNative(cut + iy * ySizeBig));
-      for y := 0 to ScaleToNative(ySizeBig - 2 * cut) - 1 do begin
-        ydivider := (ScaleFromNative(y) * ySizeSmall div (ySizeBig - 2 * cut) + 1) *
-          (ySizeBig - 2 * cut) - ScaleFromNative(y) * ySizeSmall;
+        ScaleToNative(Cut + iy * ySizeBig));
+      for y := 0 to ScaleToNative(ySizeBig - 2 * Cut) - 1 do begin
+        ydivider := (ScaleFromNative(y) * ySizeSmall div (ySizeBig - 2 * Cut) + 1) *
+          (ySizeBig - 2 * Cut) - ScaleFromNative(y) * ySizeSmall;
         if ydivider > ySizeSmall then
           ydivider := ySizeSmall;
@@ -580 +580 @@
           ir := ix * xSizeSmall + iy * nx * ySizeSmall + ScaleFromNative(x) *
             xSizeSmall div xSizeBig + ScaleFromNative(y) *
-            ySizeSmall div (ySizeBig - 2 * cut) * nx;
+            ySizeSmall div (ySizeBig - 2 * Cut) * nx;
           xdivider := (ScaleFromNative(x) * xSizeSmall div xSizeBig + 1) *
             xSizeBig - ScaleFromNative(x) * xSizeSmall;
@@ -625 +625 @@
               end;
         Sum := ((Cnt * Sharpen + 800) * Resampled[ScaleFromNative(x) + nx * ScaleFromNative(y), ch] - Sum *
-          Sharpen) div (800 * xSizeBig * (ySizeBig - 2 * cut));
+          Sharpen) div (800 * xSizeBig * (ySizeBig - 2 * Cut));
         if Sum < 0 then Sum := 0;
         if Sum > 255 then Sum := 255;