module Dodge.Render.Connectors
    ( zConnect
    , zConnectCol
    , lConnect
    ) where
import Picture
import Geometry

zConnect :: Point2 -> Point2 -> Picture
zConnect (V2 x y) (V2 a b) = line $ map toV2
    [(x,y)
    ,(0.5 * (x+a), y)
    ,(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]

lConnect :: Point2 -> Point2 -> Picture
lConnect sp@(V2 _ y) ep@(V2 x _) = line 
    [ sp
    , V2 x y
    , ep
    ]