colors in dot

src/grew_domain.ml

@@ -111,7 +111,7 @@ module Label_domain = struct
         | Dash -> ["style=dashed"]
         | Solid -> []) in
       let label = match (deco,style.bgcolor) with
-      | (true, _) -> sprintf "<<TABLE BORDER=\"0\" CELLBORDER=\"0\"> <TR> <TD BGCOLOR=\"green\">%s</TD> </TR> </TABLE>>" style.text
+      | (true, _) -> sprintf "<<TABLE BORDER=\"0\" CELLBORDER=\"0\"> <TR> <TD BGCOLOR=\"#00FF00\">%s</TD> </TR> </TABLE>>" style.text
       | (false, Some c) -> sprintf "<<TABLE BORDER=\"0\" CELLBORDER=\"0\"> <TR> <TD BGCOLOR=\"%s\">%s</TD> </TR> </TABLE>>" c style.text
       | _ -> sprintf "\"%s\"" style.text in
       sprintf "[label=%s, %s]" label (String.concat ", " dot_items)

src/grew_fs.ml

@@ -277,14 +277,14 @@ module G_fs = struct
     let buff = Buffer.create 32 in
     let () = match pid_name with
       | "" -> ()
-      | pid -> bprintf buff "<TR><TD COLSPAN=\"3\" BGCOLOR=\"green\"><B>[%s]</B></TD></TR>\n" pid in
+      | pid -> bprintf buff "<TR><TD COLSPAN=\"3\" BGCOLOR=\"#00FF00\"><B>[%s]</B></TD></TR>\n" pid in
 
     let next =
       match get_main ?main_feat t with
       | (None, sub) -> sub
       | (Some (feat_name,atom), sub) ->
         if is_highlithed feat_name
-        then bprintf buff "<TR><TD COLSPAN=\"3\" BGCOLOR=\"green\"><B>%s</B></TD></TR>\n" (string_of_value atom)
+        then bprintf buff "<TR><TD COLSPAN=\"3\" BGCOLOR=\"#00FF00\"><B>%s</B></TD></TR>\n" (string_of_value atom)
         else bprintf buff "<TR><TD COLSPAN=\"3\"><B>%s</B></TD></TR>\n" (string_of_value atom);
         sub in
     let next = List.sort G_feature.print_cmp next in