Неровные края окружностей

[Alex Cones]

так не подходит что ли?

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

[DomiNick]

Хм... Какие-то интересные у Вас задачи всегда...
То есть нужно окружность (или овал?) у которого изменчив радиус (рэндомно?)...

Мда... Тут надо думать... Привлекать углы и тригонометрию.....
Интересно чтоб сказал про такую задачу например Брезенхэм?


З.Ы. Хачу тож такой картинко.....

[MadReason]

держи сорец.
Окружности.zip

сделай "+"

[Alex Cones]

З.Ы. Хачу тож такой картинко.....

Держите

сделай "+"

Держите

Какие-то интересные у Вас задачи всегда...

Ничего не попишешь. Такой я есть.

ch:=Random(otk);
tx:=round(r+(r-ch)*cos(i*pi/1800));
ty:=round(r-(r-ch)*sin(i*pi/1800));
b1.Canvas.MoveTo(r,r);
b1.Canvas.LineTo(tx,ty);

Теперь бы придумать, как это запихивать в массив.

[MadReason]

в смысле в массив?
сделай в виде подпрограммы с входными которые необходимы, а в массиве только эти данные будут как я понимаю... или я чего-то не понял..

[MadReason]

------был дубль------

[DomiNick]

Держите

Благодарствую... :3

Ничего не попишешь. Такой я есть.

Да зачем "пописывать"?) Это ж хорошо...))
Мне б так уметь.....

или я чего-то не понял..

Имелась ввиду оптимизация...


Так то что предложено в #13 подходит? Можно схематичный пример того что должно получаться?
У мя щас экзамен скоро, я на только на выходных смогу попробовать что-нить сотворить.....

[Utkin]

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

[Alex Cones]

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

Вот это уже проще создать в данной ситуации. Единственное - как найти точки для радиусов окружностей?

Известно -
Они находятся на окружности.
Их количество пропорционально радиусу.

в смысле в массив?

Начальный код:

For Y := 0 to BMP.bmHeight - 1 Do
       For X := 0 to BMP.bmWidth - 1 Do
        Begin
         If (Sqr(Radius) >= (Sqr(X - CenterX) + Sqr(Y - CenterY))) Then
          Begin
           Ar[X,Y].rgbtBlue := B;
           Ar[X,Y].rgbtGreen := G;
           Ar[X,Y].rgbtRed := R;
          End
        End;

Я не рисую, я изменяю память.

[ex.cluz]

Лучше всего записать параметрическое уравнение окружности, а затем придавая параметру необходимые значения, получите координаты точек на окружности. Вот как-то так: