mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-14 05:15:16 -05:00
3fef7ac7ed
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@475 3f818213-9676-44b0-a9b4-5e4c4e03d09d
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.
|