Question

Есть готовая программа, которая выводит анимацию в Паскаль(разноцветные круги). С помощью нее нужно сделать анимацию: цветные линии из одной точки
(использовать SetPencolor(rgb(c,f,d))

Answer 1

program gg;

uses graphabc;

var i,x,x1,y,y1,r,g,b:integer;

begin

SetWindowWidth(1200);
SetWindowheight(800);

x:=WindowWidth div 2;
y:=Windowheight div 2;
for i:=1 to 1000000 do
begin
x1:= random (1200);
y1:= random (800);

r:=random(255);
g:=random(255);
b:=random(255);

setpencolor(rgb(r,g,b));
line(x,y,x1,y1);
sleep(5);

end;

end.