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
|
{ %GRAPH }
uses graph;
var
gd,gm:integer;
testimage:array[1..50000] of byte; {this is plenty big}
begin
gd:=VESA;
gm:=$100; { 640 x 400 x 256 }
initgraph(gd,gm,'');
if graphresult<>grOk then
begin
Writeln('Unable to open driver ',gd,' in mode ',gm);
Halt(1);
end;
line(0,0,639,399);
getimage(190,49,257,125,testimage);
{ a simple statement, and yet
it throws a General Protection fault, but only with certain
numbers for getimage. The numbers i have here do not produce
too big an image for the array testimage, and yet it faults.
Is this a bug in getimage, or is there something i am
missing here?
}
closegraph;
end.
|
