Fix combinations display

2024-11-04 10:19:53 +00:00
parent 0b43541080
commit 2a314d22e3
6 changed files with 105 additions and 91 deletions
@@ -3,6 +3,7 @@
 module Dodge.Render.Connectors (
    zConnect,
    zConnectCol,
+    zConnectColMidX,
    lConnect,
    lConnectMulti,
 ) where
@@ -25,14 +26,17 @@ zConnect (V2 x y) (V2 a b) =
            ]

 zConnectCol :: Point2 -> Point2 -> Color -> Color -> Color -> Color -> Picture
-zConnectCol (V2 x y) (V2 a b) c1 c2 c3 c4 =
+zConnectCol (V2 x y) (V2 a b) = zConnectColMidX (V2 x y) (V2 a b) (0.5 * (x + a))
+
+zConnectColMidX :: Point2 -> Point2 -> Float -> Color -> Color -> Color -> Color -> Picture
+zConnectColMidX (V2 x y) (V2 a b) midx c1 c2 c3 c4 =
    lineCol $
        zip
            ( map
                toV2
                [ (x, y)
-                , (0.5 * (x + a), y)
-                , (0.5 * (x + a), b)
+                , (midx, y)
+                , (midx, b)
                , (a, b)
                ]
            )