rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-09-11 15:05:41 +03:00
Code Issues Projects Releases Wiki Activity

Draw the edges underneath the nodes.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-12-09 18:28:48 -08:00
parent d0f400466b
commit 47be07f4a8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Rendering.hs
View File

@ -209,10 +209,10 @@ makeEdge graph dia rotationMap (node0, node1, edge@(Edge _ _ (namePort0, namePor
portAngles = (icon0PortAngle, icon1PortAngle)
-- | addEdges draws the edges underneath the nodes.
addEdges :: (SpecialBackend b n, ING.Graph gr) =>
gr (NodeName, Icon) Edge -> (SpecialQDiagram b n, [((NodeName, Icon), (Bool, Angle n))]) -> SpecialQDiagram b n
addEdges graph (dia, rotationMap) = applyAll connections dia
addEdges graph (dia, rotationMap) = dia <> applyAll connections dia
where
connections = makeEdge graph dia rotationMap <$> ING.labEdges graph