клякса

← →
set © (2010-09-09 22:54) [0]

Подскажите как можно сделать у окружности чтобы краю были волнообразные как бы на кляксу стала похожа тока на краях чтобы небыло углов они были как бы на волну похожи. Заранее благодарю за помощь.

← →
Anatoly Podgoretsky © (2010-09-09 23:03) [1]

> set (09.09.2010 22:54:00) [0]

Так это уже не окружность, она же не круглая. Это кляксность.

← →
set © (2010-09-09 23:37) [2]

надо чтобы она имела форму наподобие круга с волнообразными краями

← →
Юрий Зотов © (2010-09-09 23:50) [3]

Рисуем окружность в полярных координатах, причем радиус синусоидально зависит от угла.

← →
set © (2010-09-09 23:57) [4]

> Юрий Зотов © (09.09.10 23:50) [3]
> радиус синусоидально зависит от угла.

Как это понять?

← →
Юрий Зотов © (2010-09-10 00:01) [5]

R = Rо * sin(Alpha);

← →
Юрий Зотов © (2010-09-10 00:02) [6]

И плюс еще какая-нибудь константа.

← →
set © (2010-09-10 00:03) [7]

спасибо огромное

← →
Омлет © (2010-09-10 08:00) [8]

Так получится слишком правильная клякса )

← →
Anatoly Podgoretsky © (2010-09-10 09:07) [9]

Random добавь, чтобы клякса настоящая была.

← →
Омлет © (2010-09-10 10:06) [10]

А как сделать такую: http://not-doing.ru/av/cl.png ?

>А как сделать такую
Можно сформировать массив точек многоугольника, примерно описывающего эту кляксу, и провести через точки плавную кривую.

> Омлет (10.09.2010 16:14:12) [12]

Кляксон - генератор клякс

> Вот генератор клякс - это интересно )

Никаких проблем, сеточным методом легко смоделировать нечто подобное.

Canvas.Pen.Color:= clRed; Canvas.Brush.Color:= clBlack; For i:= 0 to 200 do begin Ro:= Trunc(150 * sin(i)); IntNerov:= IntNerov + 0.0315; IntXX:= Trunc((ClientWidth shr 1) + Ro * cos(IntNerov)); IntYY:= Trunc((ClientHeight shr 1) + Ro * sin(IntNerov)); PointArray[i]:= Point(IntXX, IntYY); end; Canvas.Polygon(Slice(PointArray, 200));

что то у меня човчем на кляксу непохожа получилась :-(

клякса Найти похожие ветки