* hopefully the final fix to #40288

(cherry picked from commit 0af25e1644b0a6a113bd96a5f5a78163feee8c42)

packages/fcl-image/src/freetype.pp

@@ -547,8 +547,8 @@ begin
   with Transformation do
     begin
       sincos(Angle,asin,acos);
-      yx:=round(asin)*$10000;
-      xx:=round(acos)*$10000;
+      yx:=round(asin*$10000);
+      xx:=round(acos*$10000);
       xy:=-yx; yy:=xx;
     end;
 end;