Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
H
haskell-igraph
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
1
Issues
1
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
haskell-igraph
Commits
edc195d9
Commit
edc195d9
authored
Jun 15, 2017
by
Kai Zhang
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
change some default options
parent
6683a364
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
4 additions
and
4 deletions
+4
-4
Graphics.hs
src/IGraph/Exporter/Graphics.hs
+1
-1
Layout.hs
src/IGraph/Layout.hs
+2
-2
stack.yaml
stack.yaml
+1
-1
No files found.
src/IGraph/Exporter/Graphics.hs
View file @
edc195d9
...
@@ -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
%~
fc
A
(
_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
...
...
src/IGraph/Layout.hs
View file @
edc195d9
...
@@ -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
=
10
00
,
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
=
1
5
0
{
lgl_nIter
=
1
0
0
,
lgl_maxdelta
=
\
x
->
fromIntegral
x
,
lgl_maxdelta
=
\
x
->
fromIntegral
x
,
lgl_area
=
area
,
lgl_area
=
area
,
lgl_coolexp
=
1.5
,
lgl_coolexp
=
1.5
...
...
stack.yaml
View file @
edc195d9
...
@@ -7,4 +7,4 @@ packages:
...
@@ -7,4 +7,4 @@ packages:
extra-deps
:
[]
extra-deps
:
[]
resolver
:
lts-8.
5
resolver
:
lts-8.
17
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment