minor correction to connections

PiotrJustyna · Mar 17, 2024 · 8059beb · 8059beb
1 parent 27226e8
commit 8059beb
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/HelloWorld.hs b/HelloWorld.hs
@@ -74,10 +74,10 @@ decisionShape x = text (show x) # fontSize (local 0.1) # light # font "courier"
         V2 0.1 (stepHeight * 0.5),
         V2 (stepWidth - 0.1 - 0.1) 0.0,
         V2 0.1 (stepHeight * (-0.5)),
-        V2 (cellWidth * 0.5) 0.0,
+        V2 ((cellWidth + cellWidth - stepWidth) * 0.5) 0.0,
         V2 0.0 (-0.8),
         V2 0.0 0.8,
-        V2 (cellWidth * (-0.5)) 0.0,
+        V2 ((cellWidth + cellWidth - stepWidth) * (-0.5)) 0.0,
         V2 (-0.1) (stepHeight * (-0.5)),
         V2 ((stepWidth - 0.1 - 0.1) * (-0.5)) 0.0,
         V2 (0.0) (-0.6),