automatic connections compatible with drakon requirements if applied …

…to correct shapes
PiotrJustyna · Mar 4, 2024 · edab6de · edab6de
1 parent 72b1032
commit edab6de
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/HelloWorld.hs b/HelloWorld.hs
@@ -22,8 +22,8 @@ steps = [
     Step {
         originCoordinates = p2 (x, y),
         name = x * 10 + y }
-    | x <- [0 .. 1],
-    y <- [0 .. 2]]
+    | x <- [0],
+    y <- [0, -1, -2, -3]]
 
 connections :: [Step] -> [QDiagram B V2 Double Any -> QDiagram B V2 Double Any]
 connections (x1: x2: xn) =

diff --git a/hello-world.svg b/hello-world.svg