Browse Source

fix for new FPC 3.2.3

Johann ELSASS 2 years ago
parent
commit
e6e4769f49
1 changed files with 1 additions and 1 deletions
  1. 1 1
      bgraknob.pas

+ 1 - 1
bgraknob.pas

@@ -159,7 +159,7 @@ begin
         v.x := v.x /(tx / 2 + 1);
         v.y := v.y / (ty / 2 + 1);
         //compute squared distance with scalar product
-        d2 := v {$if FPC_FULLVERSION < 030301}*{$ELSE}**{$ENDIF} v;
+        d2 := v {$if FPC_FULLVERSION < 30203}*{$ELSE}**{$ENDIF} v;
         //interpolate as quadratic curve and apply power function
         if d2 > 1 then
           h := 0