fix: the -seed in gg was ignored (the Random.init was done too late).

test/rsp-tree/4.13.1/grid4.rif.exp

-# Automatically generated by /home/jahier/.opam/4.13.1/bin/sasa version "v4.5.7" ("38972d1")
-# on crevetete the 16/2/2022 at 18:55:07
+# Automatically generated by /home/jahier/.opam/4.13.1/bin/sasa version "v4.5.9" ("da5b46e")
+# on crevetete the 11/5/2022 at 11:30:16
 #sasa grid4.dot -seed 42
 
 #seed 42

tools/gg/graphGen.ml

@@ -272,6 +272,10 @@ let () = (
       else
         Some g
     in
+    (match t.seed with
+     | None ->  Random.self_init ()
+     | Some i -> Random.init i
+    );
     let g =
       match gen_graph () with
       | None ->
@@ -279,10 +283,6 @@ let () = (
          exit 2
       | Some g -> g
     in
-    (match t.seed with
-     | None ->  Random.self_init ()
-     | Some i ->     Random.init i
-    );
     make_dot g t.outputFile (all_attr t.rooted t.diameter g);
     if (t.outputFile <> "" && not t.silent)
     then Printf.printf "Done.\nOutput file : '%s'\n" t.outputFile