Test suite results for test file tbs/tb0043.pp

Test run data :

Test file "tbs/tb0043.pp" information:

t_id 1026
t_adddate 2003/10/14
Flag t_graph set
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ %GRAPH }
{ %TARGET=go32v2,win32,linux }

{ Old file: tbs0048.pp }
{  shows a problem with putimage on some computers       OK 0.99.13 (JM) }

uses
   graph,crt;

var
   gd,gm : integer;
   i,size : longint;
   p : pointer;

begin
   gd:=detect;
   initgraph(gd,gm,'');
   setcolor(brown);
   line(0,0,getmaxx,0);
   {readkey;}delay(1000);
   size:=imagesize(0,0,getmaxx,0);
   getmem(p,size);
   getimage(0,0,getmaxx,0,p^);
   cleardevice;
   for i:=0 to getmaxy do
     begin
        putimage(0,i,p^,xorput);
     end;
   {readkey;}delay(1000);
   for i:=0 to getmaxy do
     begin
        putimage(0,i,p^,xorput);
     end;
   {readkey;}delay(1000);
   closegraph;
end.

Link to SVN view of tbs/tb0043.pp source.