Fix scaling factor: shouldn't be sqrt

Sudha247 · Jan 16, 2024 · ee59e4e · ee59e4e
1 parent 6a9209d
commit ee59e4e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/transform.ml b/lib/transform.ml
@@ -18,8 +18,8 @@ let rec translate dx dy shape =
   | Complex shapes -> Complex (List.map (translate dx dy) shapes)
 
 let rec scale factor s =
-  let scale_length fact len = len *. sqrt fact in
-  let scale_point fact pt = pt *! sqrt fact in
+  let scale_length fact len = len *. fact in
+  let scale_point fact pt = pt *! fact in
   match s with
   | Circle circle' ->
       Circle { c = scale_point factor circle'.c; radius = scale_length factor circle'.radius  }