Commit b0cb3af5 authored by Benoit Barbot's avatar Benoit Barbot
Browse files

fix

parent 174f67ef
Pipeline #1747 failed with stage
in 29 seconds
......@@ -78,6 +78,10 @@
let get_new_arc_attr atlist _ = []
let get_new_def_attr _ = []
let update_def_attr _ _ _ = None
let get_def_attr _ = "",[]
let string_of_attribute = function
| `Prob arc -> string_of_float arc
| `StringExpr s -> s
......
......@@ -192,6 +192,10 @@ let get_new_arc_attr atlist (p1,p2) =
("Node", fun (at,cp) -> (at , cp @ [`Text (0.5,"node")]),C (List.length cp) )
]
let get_new_def_attr _ = []
let update_def_attr _ _ _ = None
let get_def_attr _ = "",[]
let print_single_attr f a=
let open DrawingGeom.Color in
match is_prefix a "fill=" with
......
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