Commit edc195d9 authored by Kai Zhang's avatar Kai Zhang

change some default options

parent 6683a364
...@@ -29,7 +29,7 @@ graphToDiagram gr = mconcat $ fst $ unzip $ sortBy (flip (comparing snd)) $ ...@@ -29,7 +29,7 @@ graphToDiagram gr = mconcat $ fst $ unzip $ sortBy (flip (comparing snd)) $
drawEdge (from, to) = ( arrowBetween' drawEdge (from, to) = ( arrowBetween'
( with & arrowTail .~ noTail ( with & arrowTail .~ noTail
& arrowHead .~ arrowH & arrowHead .~ arrowH
& headStyle %~ fc red & headStyle %~ fcA (_edgeColour eattr)
& headLength .~ output (_edgeArrowLength eattr) & headLength .~ output (_edgeArrowLength eattr)
) start end # lwO (_edgeWeight eattr) # lcA (_edgeColour eattr), _edgeZindex eattr ) ) start end # lwO (_edgeWeight eattr) # lcA (_edgeColour eattr), _edgeZindex eattr )
where where
......
...@@ -41,7 +41,7 @@ data LayoutMethod = ...@@ -41,7 +41,7 @@ data LayoutMethod =
defaultKamadaKawai :: LayoutMethod defaultKamadaKawai :: LayoutMethod
defaultKamadaKawai = KamadaKawai defaultKamadaKawai = KamadaKawai
{ kk_seed = Nothing { kk_seed = Nothing
, kk_nIter = 1000 , kk_nIter = 10
, kk_sigma = \x -> fromIntegral x / 4 , kk_sigma = \x -> fromIntegral x / 4
, kk_startTemp = 10 , kk_startTemp = 10
, kk_coolFact = 0.99 , kk_coolFact = 0.99
...@@ -50,7 +50,7 @@ defaultKamadaKawai = KamadaKawai ...@@ -50,7 +50,7 @@ defaultKamadaKawai = KamadaKawai
defaultLGL :: LayoutMethod defaultLGL :: LayoutMethod
defaultLGL = LGL defaultLGL = LGL
{ lgl_nIter = 150 { lgl_nIter = 100
, lgl_maxdelta = \x -> fromIntegral x , lgl_maxdelta = \x -> fromIntegral x
, lgl_area = area , lgl_area = area
, lgl_coolexp = 1.5 , lgl_coolexp = 1.5
......
...@@ -7,4 +7,4 @@ packages: ...@@ -7,4 +7,4 @@ packages:
extra-deps: [] extra-deps: []
resolver: lts-8.5 resolver: lts-8.17
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment