Browse Source

pull request #175: restore version check

Juliette ELSASS 1 year ago
parent
commit
83a44a3d76
1 changed files with 1 additions and 1 deletions
  1. 1 1
      bgraknob.pas

+ 1 - 1
bgraknob.pas

@@ -225,7 +225,7 @@ begin
         v.y := v.y / (ty / 2 + 1);
         v.y := v.y / (ty / 2 + 1);
 
 
         //compute squared distance with scalar product
         //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
         //interpolate as quadratic curve and apply power function
         if d2 > 1 then
         if d2 > 1 then