mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:59:34 +01:00
32 lines
492 B
ObjectPascal
32 lines
492 B
ObjectPascal
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;
|
|
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;
|
|
for i:=0 to getmaxy do
|
|
begin
|
|
putimage(0,i,p^,xorput);
|
|
end;
|
|
readkey;
|
|
closegraph;
|
|
end.
|
|
|