Fix scaling for lines

Sudha247 · Mar 11, 2024 · 15c1e5d · 15c1e5d
1 parent ddc8ef2
commit 15c1e5d
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/transform.ml b/lib/transform.ml
@@ -48,7 +48,13 @@ let rec scale factor = function
           rx = scale_length factor ellipse'.rx;
           ry = scale_length factor ellipse'.ry;
         }
-  | Line _line' -> failwith "Not Implemented"
+  | Line line' ->
+      Line
+      {
+        line' with
+        a = Util.pmap (scale_length factor) line'.a;
+        b = Util.pmap (scale_length factor) line'.b;
+      }
   | Polygon polygon' ->
       Polygon
         {