blob: 8bbba4018aaa709e7c68e9766dc40a0611f1af04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
|
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
%
% Video mode selection dialog.
%
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Some global vars.
%
% video mode array fields
/.vm_mode 0 def
/.vm_width 1 def
/.vm_height 2 def
% We have kernel splash images for at least these sizes.
/video.splashsizes [
0 0 % special: for text mode
1 0 % special: for VESA mode
800 600
1024 600
1024 768
1280 800
1280 1024
1400 1050
1600 1200
1680 1050
1920 1200
] def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Create sort key for video modes.
%
% ( vm_index ) ==> ( sort_index )
%
/vmsortindex {
video.modes.list exch get
dup
.vm_width get 16 shl
exch .vm_height get add
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Swap video mode entries.
% (Helper for video mode sorting.)
%
% ( vm_index_1 vm_index_2 ) ==> ( )
%
/vmsortexch {
over video.modes.list exch get
over video.modes.list exch get
video.modes.list
5 -1 roll rot put
video.modes.list 3 1 roll put
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Check if we have a splash in that resolution.
%
% ( video_mode_list_entry ) ==> ( true|false )
%
/video.havesplash {
false exch
0 2 video.splashsizes length 1 sub {
over over over
.vm_height get rot .vm_width get rot video.splashsizes exch get eq
rot 1 add video.splashsizes exch get rot eq and
{ exch pop true exch exit } if
} for
pop
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Build video mode list.
%
% ( ) ==> ( )
%
/video.init {
/xmenu.video .xm_size array def
/xmenu xmenu.video def
% build list of video modes
/video.modes.list [
[ -1 0 0 ] % special: text mode
[ -2 1 0 ] % special: VESA mode (width = 1 to make it sort)
% first, try 16 bit
/vm_color_bits 16 def
{
0 1 videomodes {
videomodeinfo dup .undef eq {
pop pop pop pop
} {
[
over 0xbfff and 6 2 roll
0x4000 and % fb support
exch vm_color_bits eq and % color bits
over 600 ge and % height >= 600
2 index 800 ge and % width >= 800
{ ] } { pop pop pop pop } ifelse
} ifelse
} for
% no modes added? -> try 8 bit
dup .vm_mode get -2 eq vm_color_bits 8 ne and {
/vm_color_bits 8 def
} {
exit
} ifelse
} loop
] def
% sort video.modes.list
video.modes.list length 3 gt {
0 1 video.modes.list length 2 sub {
dup 1 add 1 video.modes.list length 1 sub {
over vmsortindex over vmsortindex gt {
over over vmsortexch
} if
pop
} for
pop
} for
} if
% remove duplicates
% (assumes text or vesa entry to be first)
/video.modes.list
[
video.modes.list {
dup .vm_mode get 0 gt { % ensure it's not the first entry
over .vm_width get over .vm_width get eq
2 index .vm_height get 2 index .vm_height get eq and {
free
} if
} if
} forall
]
video.modes.list free
def
% create mode strings
/video.modes.text [
video.modes.list {
dup .vm_width get
dup 0 eq {
pop pop /txt_text_mode
} {
dup 1 eq {
pop pop "VESA"
} {
exch .vm_height get exch "%d x %d" 32 string dup 5 1 roll sprintf
} ifelse
} ifelse
} forall
] def
% add to menu
xmenu .xm_list video.modes.text put
xmenu .xm_title .undef put
% select largest mode the monitor supports
boot_failsafe 4 and { 0 0 } { monitorsize } ifelse
exch 800 max exch 600 max % at least 800x600
% ATI quirk: avoid 1280x1024, older chips (<= 8MB, max res 1280x1024) use
% interlaced there
video.modes.list dup length 1 sub get
dup .vm_width get 1280 eq exch .vm_height get 1024 eq and {
video.memory 0x2000 le {
video.oem "ATI " strstr 1 eq {
exch 1024 min exch 768 min % down to 1024x768
} if
} if
} if
xmenu .xm_current -1 put
-1
video.modes.list {
exch 1 add exch
dup .vm_width get 4 index le
over .vm_height get 4 index le and
exch video.havesplash and {
xmenu .xm_current 2 index put
} if
} forall
pop
pop pop
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Update video mode.
%
% ( ) ==> ( )
%
/video.update {
/xmenu xmenu.video def
/window.action actRedrawPanel def
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Show video menu.
%
% ( ) => ( )
%
/panel.video {
"videomode" help.setcontext
window.xmenu
dup .xmenu xmenu.video put
dup .xmenu.update /video.update put
dup window.init
window.show
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Return width of video entry.
%
% ( ) => ( width )
%
/panel.video.width {
/xmenu xmenu.video def
pmenu.width
} def
% - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
% Redraw panel entry.
%
% ( panel ) => ( )
%
/panel.video.update {
/xmenu xmenu.video def
pmenu.panel.update
} def
|
