Commit 0d999b01 authored by Frontull Samuel's avatar Frontull Samuel
Browse files

updated edge colors according to thesis

parent 4dfe04b6
......@@ -86,22 +86,22 @@ let rec edges_to_dot pre = function
let rec b_edges_to_dot pre = function
| [ p1; p2 ] :: xs ->
edge_to_dot (pre ^ p2) (pre ^ p1) "[color=orange;];"
edge_to_dot (pre ^ p2) (pre ^ p1) "[color=dodgerblue;];"
^ b_edges_to_dot pre xs
| _ -> ""
let rec c_edges_to_dot pre = function
| [ p1; p2 ] :: xs ->
edge_to_dot (pre ^ p1) (pre ^ p2) "[color=blue];" ^ c_edges_to_dot pre xs
edge_to_dot (pre ^ p1) (pre ^ p2) "[color=orange1];" ^ c_edges_to_dot pre xs
| _ -> ""
let rec a_edges_to_dot pre = function
| [ p1; p2 ] :: xs ->
edge_to_dot (pre ^ p1) (pre ^ p2) "[color=green];" ^ a_edges_to_dot pre xs
edge_to_dot (pre ^ p1) (pre ^ p2) "[color=chartreuse3];" ^ a_edges_to_dot pre xs
| _ -> ""
let r_path_to_dot pre xs =
edge_to_dot (pre ^ L.hd xs) (pre ^ L.hd (L.rev xs)) "[color=webpurple];"
edge_to_dot (pre ^ L.hd xs) (pre ^ L.hd (L.rev xs)) "[color=darkorchid2];"
let rec r_paths_to_dot pre = function
| [] -> ""
......
No preview for this file type
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