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