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

Change EndAp1Arg arrow style.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-01-20 20:00:53 -08:00
parent 90cbfbc1f1
commit 0d77eaf47a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Rendering.hs
View File

@ -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)