mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-18 13:32:19 -05:00
22 lines
473 B
Plaintext
22 lines
473 B
Plaintext
|
program new;
|
||
|
|
var
|
||
|
|
Bmp,x,y : integer;
|
||
|
|
DebugBmp : integer;
|
||
|
|
begin
|
||
|
|
Bmp := createbItmap(100,100);
|
||
|
|
CopyClientToBitmap(Bmp,0,0,99,99);
|
||
|
|
for x := 0 to 49 do
|
||
|
|
begin;
|
||
|
|
for y := 0 to 49 do
|
||
|
|
begin;
|
||
|
|
fastsetpixel(bmp,x,y,random(clwhite));
|
||
|
|
fastsetpixel(bmp,y,x,random(clwhite));
|
||
|
|
end;
|
||
|
|
x := x + 5;
|
||
|
|
end;
|
||
|
|
DisplayDebugImgWindow(100,100);
|
||
|
|
DrawBitmapDebugImg(bmp);
|
||
|
|
DebugBMP := GetDebugBitmap;
|
||
|
|
SaveBitmap(DebugBmp,ScriptPath + 'debugimage.bmp');
|
||
|
|
end.
|