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
|
{ %GRAPH }
{ %TARGET=go32v2,win32,linux }
program TestGetPutim; {Compiled with the 0.99.13 version under GO32V2!}
uses
graph;
var graphdriver,graphmode :integer;
imsize:longint;
im:pointer;
begin
{$ifdef win32}
graphdriver:=VGA;
graphmode:=detect;
{$else not win32}
graphdriver:=VESA;
graphmode:=$103;
{$endif}
Initgraph(graphdriver,graphmode,'');
{************}
(*
setcolor(6);
moveto(0,0); {Some drawing}
lineto(500,500);
circle(95,95,80);
{************}
{!!!!!!!!!!!!}
imsize:= imagesize(0,0,300,300); {This is the part we have problem with.}
getmem(im,imsize); {The result we get after PutImage is}
getimage(0,0,300,300,im^); {chaotic independently from the graphmode!}
putimage(50,50,im^,0); {We tested this on a S3Trio 3D videcard,}
{which is VESA compatible.}
{!!!!!!!!!!!!}
readln;
{repeat until keypressed;}
*)
closegraph;
end.
{
I. Groma
groma@metal.elte.hu
Budapest 11/24/1999
}
|
