Add count of used items to combinations

2022-02-17 10:05:04 +00:00
parent 6573b3346e
commit bae0e1f0b7
3 changed files with 37 additions and 10 deletions
@@ -1,5 +1,6 @@
 module Dodge.Render.Connectors
    ( zConnect
+    , zConnectCol
    , bConnect
    , lConnect
    ) where
@@ -13,6 +14,15 @@ zConnect (V2 x y) (V2 a b) = line $ map toV2
    ,(0.5 * (x+a), b)
    ,(a, b)
    ]
+zConnectCol :: Point2 -> Point2 -> Color -> Color -> Color -> Color -> Picture
+zConnectCol (V2 x y) (V2 a b) c1 c2 c3 c4 = lineCol $ zip
+    ( map toV2
+    [(x,y)
+    ,(0.5 * (x+a), y)
+    ,(0.5 * (x+a), b)
+    ,(a, b)
+    ]
+    ) [c1,c2,c3,c4]

 bConnect :: Point2 -> Point2 -> Picture
 bConnect (V2 x y) (V2 z w) = pictures