[Krobot-commits] [SCM] krobot branch, master, updated. e3f33788e79e9241470742226c84c3e94bbcf028

[Jérémie D. <Ba...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "krobot".

The branch, master has been updated
       via  e3f33788e79e9241470742226c84c3e94bbcf028 (commit)
       via  b7de81419d83e46680fb4fd3e00c71a200b30349 (commit)
      from  6e40e45accc2b802974c2194f515f152b2d89374 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit e3f33788e79e9241470742226c84c3e94bbcf028
Author: Jérémie Dimino <je...@di...>
Date:   Tue May 18 17:13:53 2010 +0200

    script to reverse the robot orientation

commit b7de81419d83e46680fb4fd3e00c71a200b30349
Author: Jérémie Dimino <je...@di...>
Date:   Mon May 17 16:59:31 2010 +0200

    add a program to display lines on the lcd

-----------------------------------------------------------------------

Changes:
diff --git a/info/control/Makefile b/info/control/Makefile
index 2df1ff4..ae5a197 100644
--- a/info/control/Makefile
+++ b/info/control/Makefile
@@ -51,6 +51,7 @@ install:
 	install -m 0755 _build/clients/play.best $(PREFIX)/bin/krobot-play
 	install -m 0755 _build/clients/recorder.best $(PREFIX)/bin/krobot-recorder
 	install -m 0755 _build/clients/jack.best $(PREFIX)/bin/krobot-jack
+	install -m 0755 _build/clients/write_lcd.best $(PREFIX)/bin/krobot-write-lcd
 
 .PHONY: uninstall
 uninstall:
diff --git a/info/control/clients/write_lcd.ml b/info/control/clients/write_lcd.ml
new file mode 100644
index 0000000..4ff335a
--- /dev/null
+++ b/info/control/clients/write_lcd.ml
@@ -0,0 +1,16 @@
+(*
+ * write_lcd.ml
+ * ------------
+ * Copyright : (c) 2010, Jeremie Dimino <je...@di...>
+ * Licence   : BSD3
+ *
+ * This file is a part of [kro]bot.
+ *)
+
+lwt () =
+  try_lwt
+    lwt krobot = Krobot.create () in
+    Krobot.LCD.set krobot (List.tl (Array.to_list Sys.argv))
+  with exn ->
+    prerr_endline (Printexc.to_string exn);
+    exit 0
diff --git a/info/control/myocamlbuild.ml b/info/control/myocamlbuild.ml
index cf13383..0ab6141 100644
--- a/info/control/myocamlbuild.ml
+++ b/info/control/myocamlbuild.ml
@@ -81,6 +81,7 @@ let targets = List.filter_opt (function (true, target) -> Some target | (false,
   (have_lwt_unix && have_obus && have_lwt_text, "clients/play.best");
   (have_lwt_unix && have_obus, "clients/recorder.best");
   (have_lwt_unix && have_obus, "clients/jack.best");
+  (have_lwt_unix && have_obus, "clients/write_lcd.best");
 
   (* Services *)
   (have_lwt_unix && have_obus, "services/hard_stop.best");
diff --git a/info/control/scripts/reversse b/info/control/scripts/reversse
new file mode 100644
index 0000000..7b6107e
--- /dev/null
+++ b/info/control/scripts/reversse
@@ -0,0 +1,6 @@
+backward distance=250 velocity=100
+right  angle=90 velocity=100
+forward distance=200 velocity=100
+right angle=51 velocity=100
+backward distance=320 velocity=100
+right angle=39 velocity=100


hooks/post-receive
-- 
krobot