mirror of
https://github.com/rgleichman/glance.git
synced 2024-09-11 15:05:41 +03:00
Make lambdaRegion line color white.
This commit is contained in:
parent
13325deb6a
commit
1eb21633a1
@ -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
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user