mirror of
https://github.com/rgleichman/glance.git
synced 2024-08-16 18:30:36 +03:00
Change EndAp1Arg arrow style.
This commit is contained in:
parent
90cbfbc1f1
commit
0d77eaf47a
@ -80,14 +80,15 @@ getArrowOpts (t, h) = arrowOptions
|
||||
where
|
||||
lookupEnd :: (RealFloat n, Typeable n) => EdgeEnd -> ArrowOpts n -> ArrowOpts n
|
||||
lookupEnd EndNone = id
|
||||
lookupEnd EndAp1Arg = (arrowHead .~ thorn) . (headTexture .~ solid cyan)
|
||||
lookupEnd EndAp1Arg = (arrowHead .~ arrowheadDart (0.4 @@ turn))
|
||||
. (headTexture .~ solid black) . (headStyle %~ (lw thick . lc cyan ))
|
||||
lookupEnd EndAp1Result = (arrowTail .~ arg1ResHT) . (tailTexture .~ solid cyan)
|
||||
arrowOptions =
|
||||
with & arrowHead .~ noHead
|
||||
& arrowTail .~ noTail
|
||||
& lengths .~ large
|
||||
& shaftStyle %~ lwG defaultLineWidth . lc white
|
||||
& (lookupEnd t) & (lookupEnd h)
|
||||
& lookupEnd t & lookupEnd h
|
||||
|
||||
plainLine = getArrowOpts (EndNone, EndNone)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user