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

[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;

Как сделать окружности неровные края (типа "покоцанных")?

[Utkin]

Ну можно попробовать случайно отнимать х и у, так чтобы точка получалась немного меньше радиуса (если мерить от центра)

[Alex Cones]

Хм... А если просто так отнимать, то, ерунда получится. Идем то в цикле, поэтому просто так нигде не отнимешь...

[Utkin]

Ну как минимум один пиксель (самый крайний в круге) оторвать-то можно (а некоторые можно и не отрывать). Уже неровный круг будет.

[Alex Cones]

А как определить, что это крайний пиксель?

Так:?

(Sqr(Radius) - (Sqr(X - CenterX) + Sqr(Y - CenterY)) = Sqr(Radius) * 0.01)

Но тогда не понятно, как определить коэффициент, на который следует домножать.

[Utkin]

 If (Sqr(Radius) = (Sqr(X - CenterX) + Sqr(Y - CenterY))) Then

так наверное?
Ведь ты раскрашиваешь область в случае если она меньше или равна радиусу? Значит если равна - то это граница края.

[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;
         If (Sqr(Radius) = (Sqr(X - CenterX) + Sqr(Y - CenterY))) Then
          Begin
           If Random(100) > Percent Then
            Begin
             Ar[X,Y].rgbtBlue := B;
             Ar[X,Y].rgbtGreen := G;
             Ar[X,Y].rgbtRed := R;
            End;
          End;
        End;

Не особо заметно...


И на маленьких тоже.

[DomiNick]

Эм... Не совсем понял задачу... Что именно требуется получить?

P.S. А что за картинка на скринах? Кто автор?

[Alex Cones]

А что за картинка на скринах? Кто автор?

хз, сто лет уже валяется.

Что именно требуется получить?

"Куст" вид сверху

[MadReason]

край пилообразный должен быть? или все равно?

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

procedure TForm1.Button1Click(Sender: TObject);
var
i,x,y,r,tx,ty,ch:integer;
color:TColor;
begin
color:=RGB($f,$00,$ff);
Form1.Canvas.Pen.Color:=color;
Randomize;
x:=100;
y:=100;
r:=30;
for i:=0  to 3600 do
begin
ch:=Random(20)-5;
tx:=round(x+(r+ch)*cos(i*pi/1800));
ty:=round(y-(r+ch)*sin(i*pi/1800));
Form1.Canvas.MoveTo(x,y);
Form1.Canvas.LineTo(tx,ty);
end;

end;