Вставка изображения с помощью модуля GraphABC

Вставка изображения с помощью модуля GraphABC

{$apptype windows}
uses graphabc;
var
b,c:Picture;
begin
SetWindowSize(800,800);
window.Clear;
b:=Picture.Create('C:\Users\быстрова\Desktop\new.jpeg');
b.Load('C:\Users\быстрова\Desktop\new.jpeg');
b.Draw(5,5);
for var i:=1 to 10000 do begin
var x:=Random(800)+50;
var y:=Random(800)+50;
c:=Picture.Create('C:\Users\быстрова\Desktop\snejinka.png');
c.Load('C:\Users\быстрова\Desktop\snejinka.png');
c.Draw(x,y);
Sleep(500)
end;
end.
Изображение + «снег»

Анимация в цикле случайными числами

Анимированное изображение с помощью модуля GraphABC

Процедура LockDrawing;
Процедура ClearWindow (color);
блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном буфере
после каждой прохода по циклу очищает графическое окно указанным цветом, который передается в качестве параметра.
Redraw;
эта процедура вызовет перерисовку всей картины

100
100
0
300
300
SetWindowSize(400, 400);
Circle (100, 100, 20);

program animation;
uses GraphABC;
begin
SetWindowSize(400, 400); //Размер окна
Circle (100, 100, 20);
Circle (300, 100, 20);
Circle (100, 300, 20);
Circle (300, 300, 20);
end.

program animation;
uses GraphABC;
begin
SetWindowSize(400, 400); //Размер окна
LockDrawing;
for i:=100 to 300 do
SetBrushColor(clWhite);
Circle (100, 100, 20);
Circle (300, 100, 20);
Circle (100, 300, 20);
Circle (300, 300, 20);
SetBrushColor(clBlack);
Circle (i, 100, 20);
RedRaw;
ClearWindow(clWhite);
end.