Initial

examples/demo/demo.ml

@@ -0,0 +1,25 @@
+type tree =
+  | Leaf of int
+  | Node of tree * tree
+
+let int_value = 13
+let float_value = 42.0
+let list_value = [ 1; 2; 3 ]
+let array_value = [| "a"; "b"; "c" |]
+let float_array = [| 1.0; 2.0; 3.0 |]
+let shared = Leaf 7
+let tree = Node (shared, shared)
+let rec cycle = 1 :: 2 :: 3 :: cycle
+
+let () =
+  Graphis.context (fun ctx ->
+      Graphis.print_dot Format.std_formatter
+        [
+          "cycle", Graphis.capture ctx cycle;
+          "tree", Graphis.capture ctx tree;
+          "float_array", Graphis.capture ctx float_array;
+          "array", Graphis.capture ctx array_value;
+          "list", Graphis.capture ctx list_value;
+          "float", Graphis.capture ctx float_value;
+          "int", Graphis.capture ctx int_value;
+        ])

examples/demo/dune

@@ -0,0 +1,5 @@
+(executable
+ (name demo)
+ (flags
+  (:standard -w -30))
+ (libraries graphis))