rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-08-16 10:20:27 +03:00
Code Issues Projects Releases Wiki Activity

Make lambdaRegion line color white.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-01-05 16:37:14 -08:00
parent 13325deb6a
commit 1eb21633a1
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Icons.hs
View File

@ -9,7 +9,7 @@ module Icons
nameDiagram,
connectPorts,
connectIconToPort,
connectIconToIcon,
connectIcons,
textBox,
enclosure,
lambdaRegion,
@ -45,7 +45,7 @@ connectPorts icon0 port0 icon1 port1 =
connectIconToPort icon0 icon1 port1 =
connectOutside' arrowOptions icon0 (icon1 .> port1)
connectIconToIcon =
connectIcons =
connectOutside' arrowOptions
-- | Draw the icon with circles where the ports are
@ -114,7 +114,7 @@ coloredTextBox textColor boxColor t =
+ (textBoxFontSize * 0.2)
-- ENCLOSING REGION --
enclosure dia = dia <> boundingRect (dia # frame 0.5) # lc red # lwG defaultLineWidth
enclosure dia = dia <> boundingRect (dia # frame 0.5) # lc white # lwG defaultLineWidth
-- LAMBDA ICON --
-- Don't use === here to put the port under the text box since mempty will stay

3
app/Main.hs
View File

@ -25,6 +25,7 @@ ex8 = enclosure ex6
ex9 = lambdaRegion 3 ex6 # nameDiagram "lam0"
ex10 = ex9 # connectPorts ("lam0" .> "A") (PortName 1) "lam0" (PortName 0)
# connectPorts ("lam0" .> "B") (PortName 1) "lam0" (PortName 2)
ex11 = connectIcons "lam0" "y" $ ex10 === vrule 2 === textBox "y" # named "y"
main :: IO ()
main = mainWith (ex10 # bgFrame 0.1 black)
main = mainWith (ex11 # bgFrame 0.1 black)