Changeset 522 for trunk/LocalPlayer/IsoEngine.pas

Timestamp:

Jan 7, 2024, 10:24:51 PM (4 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Added: High DPI aware SetWindowPos function.

File:

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

trunk/LocalPlayer/IsoEngine.pas

@@ -1372 +1372 @@
   I: Integer;
 begin
-  FOutput.Canvas.pen.Color := $000000; // $FF shl (8*random(3));
+  FOutput.Canvas.pen.Color := $000000; // $FF shl (8 * Random(3));
   for I := 0 to nx div 2 do
     ClippedLine(I * 2, 0, False);
@@ -1430 +1430 @@
   for Y := 0 to ScaleToNative(Height) - 1 do begin
     y_n := (ScaleFromNative(Y) + y0 - ym) / yyt;
-    if abs(y_n) < rShade then begin
+    if Abs(y_n) < rShade then begin
       // Darken left and right parts of elipsis
       w_n := sqrt(sqr(rShade) - sqr(y_n));