boxshape

src/Gargantext/Viz/AdaptativePhylo.hs

@@ -133,8 +133,8 @@ defaultConfig =
             , phyloName      = pack "Default Phylo"
             , phyloLevel     = 2
             , phyloProximity = WeightedLogJaccard 10 0 0.1
-            , phyloSynchrony = ByProximityThreshold 1 0 SiblingBranches MergeAllGroups
-            , phyloQuality   = Quality 1 1
+            , phyloSynchrony = ByProximityThreshold 0.1 10 AllBranches MergeAllGroups
+            , phyloQuality   = Quality 0.1 1
             , timeUnit       = Year 3 1 5
             , clique         = Fis 1 5
             , exportLabel    = [BranchLabel MostInclusive 2, GroupLabel MostEmergentInclusive 2]

src/Gargantext/Viz/Phylo/PhyloExport.hs

@@ -121,7 +121,7 @@ branchToDotNode b =
 periodToDotNode :: (Date,Date) -> Dot DotId
 periodToDotNode prd =
     node (periodIdToDotId prd)
-         ([Shape Square, FontSize 50, Label (toDotLabel $ Text.pack (show (fst prd) <> " " <> show (snd prd)))]
+         ([Shape BoxShape, FontSize 50, Label (toDotLabel $ Text.pack (show (fst prd) <> " " <> show (snd prd)))]
          <> [ toAttr "nodeType" "period" 
             , toAttr "from" (fromStrict $ Text.pack $ (show $ fst prd))
             , toAttr "to"   (fromStrict $ Text.pack $ (show $ snd prd))])
@@ -130,7 +130,7 @@ periodToDotNode prd =
 groupToDotNode :: Vector Ngrams -> PhyloGroup -> Dot DotId
 groupToDotNode fdt g = 
     node (groupIdToDotId $ getGroupId g)
-                     ([FontName "Arial", Shape Square, toLabel (groupToTable fdt g)]
+                     ([FontName "Arial", Shape BoxShape, toLabel (groupToTable fdt g)]
                       <> [ toAttr "nodeType" "group"
                          , toAttr "from" (pack $ show (fst $ g ^. phylo_groupPeriod))
                          , toAttr "to"   (pack $ show (snd $ g ^. phylo_groupPeriod))