Для создания анимации цветных линий из одной точки можно использовать следующий код на языке Паскаль:

uses Graph;
var
gd, gm: SmallInt;
c, f, d: SmallInt;
begin
gd := Detect;
InitGraph(gd, gm, '');
c := 255; // Красный цвет
f := 0; // Зеленый цвет
d := 0; // Синий цвет
while not KeyPressed do
begin
SetColor(rgb(c, f, d));
Line(320, 240, Random(640), Random(480));
delay(100);
end;
CloseGraph;
end.

Для создания анимации цветных линий, расположенных случайным образом на черном фоне, можно модифицировать код следующим образом:

uses Graph;
var
gd, gm: SmallInt;
c, f, d: SmallInt;
begin
gd := Detect;
InitGraph(gd, gm, '');
Randomize;
while not KeyPressed do
begin
c := Random(256);
f := Random(256);
d := Random(256);
SetColor(rgb(c, f, d));
Line(Random(640), Random(480), Random(640), Random(480));
delay(100);
end;
CloseGraph;
end.

Эти программы будут создавать анимацию цветных линий на экране. При каждой итерации цвет линии будет выбираться случайным образом, что создаст интересный эффект. Для остановки анимации нужно будет нажать любую клавишу.