Changeset 260 for trunk/LocalPlayer


Ignore:
Timestamp:
Jun 10, 2020, 11:07:07 PM (4 years ago)
Author:
chronos
Message:
  • Modified: Variable with first capital letter.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LocalPlayer/Term.pas

    r245 r260  
    551551procedure InitSmallImp;
    552552const
    553   cut = 4;
     553  Cut = 4;
    554554  Sharpen = 80;
    555555type
     
    571571    for iy := 0 to BigImp.Height div ySizeBig - 1 do begin
    572572      PixelPtr := PixelPointer(BigImp, ScaleToNative(ix * xSizeBig),
    573         ScaleToNative(cut + iy * ySizeBig));
    574       for y := 0 to ScaleToNative(ySizeBig - 2 * cut) - 1 do begin
    575         ydivider := (ScaleFromNative(y) * ySizeSmall div (ySizeBig - 2 * cut) + 1) *
    576           (ySizeBig - 2 * cut) - ScaleFromNative(y) * ySizeSmall;
     573        ScaleToNative(Cut + iy * ySizeBig));
     574      for y := 0 to ScaleToNative(ySizeBig - 2 * Cut) - 1 do begin
     575        ydivider := (ScaleFromNative(y) * ySizeSmall div (ySizeBig - 2 * Cut) + 1) *
     576          (ySizeBig - 2 * Cut) - ScaleFromNative(y) * ySizeSmall;
    577577        if ydivider > ySizeSmall then
    578578          ydivider := ySizeSmall;
     
    580580          ir := ix * xSizeSmall + iy * nx * ySizeSmall + ScaleFromNative(x) *
    581581            xSizeSmall div xSizeBig + ScaleFromNative(y) *
    582             ySizeSmall div (ySizeBig - 2 * cut) * nx;
     582            ySizeSmall div (ySizeBig - 2 * Cut) * nx;
    583583          xdivider := (ScaleFromNative(x) * xSizeSmall div xSizeBig + 1) *
    584584            xSizeBig - ScaleFromNative(x) * xSizeSmall;
     
    625625              end;
    626626        Sum := ((Cnt * Sharpen + 800) * Resampled[ScaleFromNative(x) + nx * ScaleFromNative(y), ch] - Sum *
    627           Sharpen) div (800 * xSizeBig * (ySizeBig - 2 * cut));
     627          Sharpen) div (800 * xSizeBig * (ySizeBig - 2 * Cut));
    628628        if Sum < 0 then Sum := 0;
    629629        if Sum > 255 then Sum := 255;
Note: See TracChangeset for help on using the changeset viewer.