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

[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  f154a57184070e984b23b05b8254f0240b691a0f (commit)
      from  285fe8ac86e7530b38627aa816aa6c3dbd893d10 (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 f154a57184070e984b23b05b8254f0240b691a0f
Author: Jérémie Dimino <je...@di...>
Date:   Wed Feb 17 10:14:24 2010 +0100

    [controller] remvoe some old stuff

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

Changes:
diff --git a/PC_Mainboard/clients/controller.ml b/PC_Mainboard/clients/controller.ml
index f694bba..ac3f1ad 100644
--- a/PC_Mainboard/clients/controller.ml
+++ b/PC_Mainboard/clients/controller.ml
@@ -19,41 +19,6 @@ module TextSet = Set.Make(Text)
    | Drawing                                                         |
    +-----------------------------------------------------------------+ *)
 
-type section = {
-  screen : point array array;
-  x : int;
-  y : int;
-  w : int;
-  h : int;
-}
-
-let get_point clip x y =
-  if x >= 0 && x < clip.w && y >= 0 && y < clip.h then
-    clip.screen.(clip.y + y).(clip.x + x)
-  else
-    blank
-
-let set_point clip x y point =
-  if x >= 0 && x < clip.w && y >= 0 && y < clip.h then
-    clip.screen.(clip.y + y).(clip.x + x) <- point
-
-let draw_text clip ?style x y txt =
-  if y >= 0 && y < clip.h && x < clip.w then
-    let rec loop x ptr = match Text.next ptr with
-      | None ->
-          ()
-      | Some(ch, ptr) ->
-          if x >= 0 && x < clip.w then begin
-            match style with
-              | Some style ->
-                  clip.screen.(clip.y + y).(clip.x + x) <- { char = ch; style = style }
-              | None ->
-                  clip.screen.(clip.y + y).(clip.x + x) <- { blank with char = ch };
-          end;
-          loop (x + 1) ptr
-    in
-    loop x (Text.pointer_l txt)
-
 (* Prevent concurrent drawing: *)
 let drawer_mutex = Lwt_mutex.create ()
 


hooks/post-receive
-- 
krobot