mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-25 02:32:19 -05:00
c5d968160f
git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@251 3f818213-9676-44b0-a9b4-5e4c4e03d09d
19 lines
367 B
Plaintext
19 lines
367 B
Plaintext
program new;
|
|
var
|
|
Bmp,x,y : 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);
|
|
end.
|