Commit a28f73ea authored by Bruno Guillaume's avatar Bruno Guillaume

colors in dot

parent 7d1027c2
......@@ -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)
......
......@@ -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
......
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