mirror of
https://github.com/rgleichman/glance.git
synced 2024-08-16 18:30:36 +03:00
Cleanup Rendering.hs.
This commit is contained in:
parent
9380cb6ea2
commit
ddd8475d5e
@ -32,7 +32,6 @@ import Data.Typeable(Typeable)
|
||||
--import qualified Data.GraphViz.Types
|
||||
--import Data.GraphViz.Commands
|
||||
--import qualified Debug.Trace
|
||||
--import Data.Word(Word16)
|
||||
|
||||
import Icons(colorScheme, iconToDiagram, defaultLineWidth, ColorStyle(..)
|
||||
, getPortAngles, TransformParams(..), circleRadius)
|
||||
@ -41,7 +40,6 @@ import Types(Edge(..), EdgeOption(..), Drawing(..), EdgeEnd(..), NameAndPort(..)
|
||||
, SpecialQDiagram, SpecialBackend, SpecialNum, NodeName(..)
|
||||
, Port(..), SgNamedNode, NamedIcon(..), Icon(..))
|
||||
|
||||
|
||||
import Util(fromMaybeError, mapNodeInNamedNode, namedIconToTuple)
|
||||
|
||||
-- If the inferred types for these functions becomes unweildy,
|
||||
@ -244,10 +242,14 @@ makeEdge graph dia rotationMap
|
||||
shaftAngle
|
||||
(findPortAngles node1label namePort1)
|
||||
|
||||
getPortPoint n = head $ fromMaybeError
|
||||
("makeEdge: port not found. Port: " ++ show n ++ ". Valid ports: "
|
||||
++ show diaNodeNamePointMap)
|
||||
(lookup n diaNodeNamePointMap)
|
||||
getPortPoint n = case foundPoints of
|
||||
[point] -> point
|
||||
_ -> error $ "Multiple points with named: " <> show n
|
||||
where
|
||||
foundPoints = fromMaybeError
|
||||
( "makeEdge: port not found. Port: " ++ show n ++ ". Valid ports: "
|
||||
++ show diaNodeNamePointMap)
|
||||
(lookup n diaNodeNamePointMap)
|
||||
|
||||
portAngles = (icon0PortAngle, icon1PortAngle)
|
||||
|
||||
@ -298,7 +300,6 @@ bestAngleForIcon positionMap graph key@(NamedIcon (NodeName nodeId) _) reflected
|
||||
<$> ( fmap getSucEdge (ING.lsuc graph nodeId)
|
||||
<> fmap getPreEdge (ING.lpre graph nodeId))
|
||||
|
||||
|
||||
getPositionAndAngles (node, nameAndPort)
|
||||
= (positionMap Map.! nodeLabel, portAngles)
|
||||
where
|
||||
|
Loading…
Reference in New Issue
Block a user