From 3765faadf1a0260a4520d8b7d55e9a35ec9d1b62 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Wed, 7 Mar 2012 16:16:07 +0400
Subject: [PATCH] Fix getpageyh in split columns mode

---
 main.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 95addea..1a62d78 100644
--- a/main.ml
+++ b/main.ml
@@ -1012,7 +1012,10 @@ let getpageyh pageno =
   | Cmulti (_, b) ->
       let (_, _, y, (_, _, h, _)) = b.(pageno) in
       y, h
-  | Csplit _ -> getpageyh pageno
+  | Csplit (c, b) ->
+      let n = pageno*c in
+      let (_, _, y, (_, _, h, _)) = b.(n) in
+      y, h
 ;;
 
 let getpagedim pageno =
-- 
2.11.4.GIT