Баловство с Random.

[type_Oleg]

На Delphi

procedure TForm1.Button1Click(Sender: TObject); // старт
var i,h,w:Integer;
begin
 h:=Image1.Height;
 w:=Image1.Width;
 for i:=1 to 300 do
  with Image1.Canvas do
   begin
    MoveTo(Round(w*Random),Round(h*Random));
    LineTo(Round(w*Random),Round(h*Random));
   end;
end;

procedure TForm1.Button2Click(Sender: TObject);  // очистка
begin
 Image1.Canvas.Brush.Color := clWhite;
 Image1.Canvas.FillRect(Canvas.ClipRect);
end;

initialization
 Randomize;
end.

Вот что получается.

А если на кнопку нажимать много-много раз, картина постепенно превратится в Черный квадрат Малевича.

[Аватар]

А если на кнопку нажимать много-много раз, картина постепенно превратится в Черный квадрат Малевича.

А зачем на кнопку долбать - на таймер посади и любуйся постепенным становлением "шедевра" Малевича. О чем тема не понял

[type_Oleg]

Да ни о чем. Это же свободное общение. Может кому интересно. Вдруг кого вдохновит, и создадут что-то великое и ужасное.

[Человек_Борща]

О, пускай каждая линия ещё и свой цвет имеет.

[type_Oleg]

Для цвета - можно добавить в цикл вот это ..

Pen.Color:=clBlack+Random(256)+256*Random(256)+65536*Random(256);

[Аватар]

Гораздо интересней кривыми строить фигуры, и не случайно, а по алгоритму, да еще с плавным изменением цвета

[type_Oleg]

Вот, с плавным изменением цвета. Давно делал случайное блуждание точки до выхода из Image. Потом все усложнял, добавил цвет, изменение цвета..
Но это случайно, не по алгоритму.

[Kix.IV]

Решил приобщиться. Получилось не очень, рандом как-никак.