Commit ee05b9b2 authored by Bruno Guillaume's avatar Bruno Guillaume

colors

parent 3784ca74
......@@ -87,7 +87,7 @@ module Label_domain = struct
@ (match style.line with
| Dot -> ["style=dot"]
| Dash -> ["style=dash"]
| Solid when deco -> ["bgcolor=yellow"]
| Solid when deco -> ["bgcolor=#8bf56e"]
| Solid -> []) in
sprintf "{ label = \"%s\"; %s}" style.text (String.concat "; " dep_items)
......
......@@ -317,12 +317,12 @@ module G_fs = struct
| Some (feat_name, atom) ->
let esc_atom = escape_sharp (string_of_value atom) in
[ if List.mem feat_name (snd decorated_feat)
then sprintf "%s:B:yellow" esc_atom
then sprintf "%s:B:#8bf56e" esc_atom
else esc_atom] in
let word_list = match pid_name with
| "" -> main
| _ -> (sprintf "[%s]:B:yellow" pid_name)::main in
| _ -> (sprintf "[%s]:B:#8bf56e" pid_name)::main in
let word = match word_list with
| [] -> "_"
......@@ -336,7 +336,7 @@ module G_fs = struct
(fun acc (feat_name, atom) ->
let esc_atom = escape_sharp (G_feature.to_string (decode_feat_name feat_name, atom)) in
if List.mem feat_name (snd decorated_feat)
then (sprintf "%s:B:yellow" esc_atom) :: acc
then (sprintf "%s:B:#8bf56e" esc_atom) :: acc
else
match filter with
| Some test when not (test feat_name) -> acc
......
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