Measure full screen scrolling performance.
[vte.git] / perf / scroll.vim
1 set nocompatible        " Use Vim defaults instead of 100% vi compatibility
2 set backspace=indent,eol,start  " more powerful backspacing
3 set textwidth=0         " Don't wrap lines by default
4 set nobackup
5 set history=50          " keep 50 lines of command line history
6 set ruler               " show the cursor position all the time
7
8 set t_Co=256
9 set t_Sf=\e[3%dm
10 set t_Sb=\e[4%dm
11
12 function Scroll(dir, windiv)
13         let wh = winheight(0)
14         let i = 1
15         while i < wh / a:windiv
16                 let i = i + 1
17                 if a:dir == "d"
18                         normal j
19                 else
20                         normal k
21                 end
22                 " insert a character to force vim to update!
23                 normal I \e
24                 redraw
25                 normal dl
26         endwhile
27 endfunction
28
29 function WindowScroll(dir, windiv)
30         let wh = winheight(0)
31         let i = 1
32         while i < wh * a:windiv
33                 let i = i + 1
34                 if a:dir == "d"
35                         normal j
36                 else
37                         normal k
38                 end
39                 " insert a character to force vim to update!
40                 normal I \e
41                 redraw
42                 normal dl
43         endwhile
44 endfunction
45
46 function AutoScroll(count)
47         let loop = 0
48         while loop < a:count
49                 let loop = loop + 1
50                 call Scroll("d", 1)
51                 call Scroll("u", 2)
52                 call Scroll("d", 2)
53                 call Scroll("u", 1)
54                 call Scroll("d", 2)
55                 call Scroll("u", 2)
56         endwhile
57         quit!
58 endfunction
59
60 function AutoWindowScroll(count)
61         let loop = 0
62         while loop < a:count
63                 let loop = loop + 1
64                 call WindowScroll("d", 10)
65                 call WindowScroll("u", 10)
66         endwhile
67         quit!
68 endfunction