From 892e12910245db7f917977104978a98e182d5e0e Mon Sep 17 00:00:00 2001 From: malc Date: Thu, 25 Oct 2012 01:55:57 +0400 Subject: [PATCH] Shuffle code around --- main.ml | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/main.ml b/main.ml index 0e1946c..72034d6 100644 --- a/main.ml +++ b/main.ml @@ -186,23 +186,6 @@ let cbnew n v = } ;; -let drawstring size x y s = - Gl.enable `blend; - Gl.enable `texture_2d; - GlFunc.blend_func `src_alpha `one_minus_src_alpha; - ignore (drawstr size x y s); - Gl.disable `blend; - Gl.disable `texture_2d; -;; - -let drawstring1 size x y s = - drawstr size x y s; -;; - -let drawstring2 size x y fmt = - Printf.kprintf (drawstring size (x+1) (y+size+1)) fmt -;; - let cbcap b = Array.length b.store;; let cbput b v = @@ -240,6 +223,23 @@ let cbgetg b circular dir = let cbget b = cbgetg b false;; let cbgetc b = cbgetg b true;; +let drawstring size x y s = + Gl.enable `blend; + Gl.enable `texture_2d; + GlFunc.blend_func `src_alpha `one_minus_src_alpha; + ignore (drawstr size x y s); + Gl.disable `blend; + Gl.disable `texture_2d; +;; + +let drawstring1 size x y s = + drawstr size x y s; +;; + +let drawstring2 size x y fmt = + Printf.kprintf (drawstring size (x+1) (y+size+1)) fmt +;; + type page = { pageno : int ; pagedimno : int -- 2.11.4.GIT