1{ %GRAPH }
2{ %TARGET=go32v2,win32,linux }
3
4program TestGetPutim; {Compiled with the 0.99.13 version under GO32V2!}
5
6uses
7 graph;
8
9var graphdriver,graphmode :integer;
10
11    imsize:longint;
12
13    im:pointer;
14begin
15{$ifdef win32}
16 graphdriver:=VGA;
17 graphmode:=detect;
18{$else not  win32}
19 graphdriver:=VESA;
20 graphmode:=$103;
21{$endif}
22 Initgraph(graphdriver,graphmode,'');
23
24 {************}
25(*
26 setcolor(6);
27
28 moveto(0,0);   {Some drawing}
29
30 lineto(500,500);
31
32 circle(95,95,80);
33
34{************}
35
36
37
38{!!!!!!!!!!!!}
39
40 imsize:= imagesize(0,0,300,300); {This is the part we have problem with.}
41
42 getmem(im,imsize);         {The result we get after PutImage is}
43
44 getimage(0,0,300,300,im^);       {chaotic independently from the graphmode!}
45
46  putimage(50,50,im^,0);           {We tested this on a S3Trio 3D videcard,}
47
48                                  {which is VESA compatible.}
49
50{!!!!!!!!!!!!}
51
52
53
54readln;
55 {repeat until keypressed;}
56   *)
57 closegraph;
58
59end.
60{
61                                                        I. Groma
62                                                        groma@metal.elte.hu
63                                                        Budapest 11/24/1999
64}
65