small example program

Armael · Jan 23, 2023 · a413252 · a413252
1 parent 3408729
commit a413252
Show file tree

Hide file tree

Showing 7 changed files with 27 additions and 6 deletions.
diff --git a/README b/README
@@ -0,0 +1,9 @@
+# Kitty's terminal graphics protocol -- client-side OCaml implementation
+
+![demo screenshot](demo.png)
+
+See [https://sw.kovidgoyal.net/kitty/graphics-protocol/](https://sw.kovidgoyal.net/kitty/graphics-protocol/).
+
+This is WIP but should be enough for basic tasks. Support for "advanced" uses of
+the protocols (using images/pattern ids) probably needs more work. Contributions
+welcome!
diff --git a/bin/dune b/bin/dune
diff --git a/bin/main.ml b/bin/main.ml
diff --git a/demo.png b/demo.png
diff --git a/examples/dune b/examples/dune
@@ -0,0 +1,3 @@
+(executable
+ (name icat)
+ (libraries kittyimg stb_image))
diff --git a/examples/icat.ml b/examples/icat.ml
@@ -0,0 +1,15 @@
+let icat filename =
+  let img = Result.get_ok (Stb_image.load ~channels:4 filename) in
+  let img_s = Kittyimg.string_of_bytes_ba img.Stb_image.data in
+  print_newline ();
+  Kittyimg.send_image
+    ~w:img.Stb_image.width ~h:img.Stb_image.height
+    ~format:`RGBA ~mode:(`Display (Kittyimg.display_opts ()))
+    img_s;
+  print_newline ()
+
+let () =
+  match Array.to_list Sys.argv |> List.tl with
+  | [ filename ] -> icat filename
+  | _ ->
+    Printf.eprintf "usage: %s <imagefile>\n" Sys.argv.(0); exit 1
diff --git a/examples/ocaml.png b/examples/ocaml.png