From d57f09aba74aec47f3d538acb9e829201bdfe173 Mon Sep 17 00:00:00 2001
From: Chris Wilson <chris@chris-wilson.co.uk>
Date: Thu, 17 May 2007 20:14:46 +0000
Subject: Measure full screen scrolling performance.

2007-05-17  Chris Wilson  <chris@chris-wilson.co.uk>

    * perf/scroll.vim:
    * perf/vim.sh:
        Measure full screen scrolling performance.


svn path=/trunk/; revision=1891
---
 perf/scroll.vim | 27 +++++++++++++++++++++++++++
 perf/vim.sh     |  1 +
 2 files changed, 28 insertions(+)

(limited to 'perf')

diff --git a/perf/scroll.vim b/perf/scroll.vim
index 1bb2afd1..dcbbc75f 100644
--- a/perf/scroll.vim
+++ b/perf/scroll.vim
@@ -26,6 +26,23 @@ function Scroll(dir, windiv)
 	endwhile
 endfunction
 
+function WindowScroll(dir, windiv)
+	let wh = winheight(0)
+	let i = 1
+	while i < wh * a:windiv
+		let i = i + 1
+		if a:dir == "d"
+			normal j
+		else
+			normal k
+		end
+		" insert a character to force vim to update!
+		normal I 
+		redraw
+		normal dl
+	endwhile
+endfunction
+
 function AutoScroll(count)
 	let loop = 0
 	while loop < a:count
@@ -39,3 +56,13 @@ function AutoScroll(count)
 	endwhile
 	quit!
 endfunction
+
+function AutoWindowScroll(count)
+	let loop = 0
+	while loop < a:count
+		let loop = loop + 1
+		call WindowScroll("d", 10)
+		call WindowScroll("u", 10)
+	endwhile
+	quit!
+endfunction
diff --git a/perf/vim.sh b/perf/vim.sh
index ef3f56da..1ad7bd90 100755
--- a/perf/vim.sh
+++ b/perf/vim.sh
@@ -5,3 +5,4 @@
 # scrolling (just the cursor)
 time vim -u scroll.vim -c ':quit' UTF-8-demo.txt
 time vim -u scroll.vim -c ':call AutoScroll(1000)' UTF-8-demo.txt
+time vim -u scroll.vim -c ':call AutoWindowScroll(20)' UTF-8-demo.txt
-- 
cgit v1.2.1