From a2ba4086575c51547e64609f8e174def74ff03d0 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 18 Feb 2013 03:10:40 +0400
Subject: [PATCH] Minus one line

---
 main.ml | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/main.ml b/main.ml
index 36ac8f2..f8fcc88 100644
--- a/main.ml
+++ b/main.ml
@@ -43,6 +43,13 @@ and colorspace     = | Rgb | Bgr | Gray
 and haspbo         = bool
 ;;
 
+type x = int
+and y = int
+and tilex = int
+and tiley = int
+and tileparams = (x * y * width * height * tilex * tiley)
+;;
+
 type link =
     | Lnotfound
     | Lfound of int
@@ -105,6 +112,7 @@ external unmappbo : string -> unit = "ml_unmappbo";;
 external pbousable : unit -> bool = "ml_pbo_usable";;
 external unproject : opaque -> int -> int -> (int * int) option
   = "ml_unproject";;
+external drawtile : tileparams -> opaque -> unit = "ml_drawtile";;
 
 let platform_to_string = function
   | Punknown      -> "unknown"
@@ -142,15 +150,6 @@ let popen cmd fda =
   else popen cmd fda;
 ;;
 
-type x = int
-and y = int
-and tilex = int
-and tiley = int
-and tileparams = (x * y * width * height * tilex * tiley)
-;;
-
-external drawtile : tileparams -> opaque -> unit = "ml_drawtile";;
-
 type mpos = int * int
 and mstate =
     | Msel of (mpos * mpos)
-- 
2.11.4.GIT