From f92413eebff74c92c22c44c3cfb6f35e97d73343 Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Mon, 16 Jun 2014 18:27:17 +0400
Subject: [PATCH] Further massage

Thanks to Andrei Dranica
---
 main.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/main.ml b/main.ml
index 2cf079e..aff6dba 100644
--- a/main.ml
+++ b/main.ml
@@ -2062,7 +2062,12 @@ let gotoghyll1 single y =
     ins +. outs +. float ones
   in
   let rec set nab y sy =
-    let (_N, _A, _B) = if single then (5,1,4) else nab in
+    let (_N, _A, _B), y =
+      if single
+      then
+        let scl = if y > sy then 3 else -3 in
+        (5,1,4), y+conf.scrollstep*scl
+      else nab,y in
     let sum = summa _N _A _B in
     let dy = float (y - sy) in
     state.ghyll <- (
-- 
2.11.4.GIT