rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-11-27 03:02:44 +03:00
Code Issues Projects Releases Wiki Activity

Use roundedRect for nested icons.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-12-11 18:56:11 -08:00
parent 63fc34da9e
commit 0b5fd6dd4c
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/Icons.hs
View File

@ -135,10 +135,10 @@ makePort x = named x mempty
defaultLineWidth :: (Fractional a) => a
defaultLineWidth = 0.15
-- APPLY0 ICON --
circleRadius :: (Fractional a) => a
circleRadius = 0.5
-- APPLY0 ICON --
apply0Triangle :: SpecialBackend b n => Colour Double -> SpecialQDiagram b n
apply0Triangle col = fc col $ lw none $ rotateBy (-1/12) $ eqTriangle (2 * circleRadius)
@ -230,7 +230,7 @@ generalNestedDia dia borderCols funcNodeNameAndArgs name nestingLevel reflect an
allPorts = makeQualifiedPort (Port 0) <> alignL trianglePortsCircle
topAndBottomLineWidth = width allPorts - circleRadius
argBox = alignL $ lwG defaultLineWidth $ lc borderCol $ rect topAndBottomLineWidth (height allPorts + verticalSeperation)
argBox = alignL $ lwG defaultLineWidth $ lc borderCol $ roundedRect topAndBottomLineWidth (height allPorts + verticalSeperation) (circleRadius * 0.5)
finalDia = argBox <> allPorts
makeInnerIcon _ portNum Nothing = makeQualifiedPort (Port portNum) <> portCircle