1
0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-25 08:48:51 -05:00
Simba/Tests/PS/debugimageform.mufa
Raymond de0d448ca1 Updated testfile
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@341 3f818213-9676-44b0-a9b4-5e4c4e03d09d
2009-12-26 00:00:27 +00:00

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.