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

[Alex Cones]

Здравая мысль, благодарствую, пойду курить матан.

[ex.cluz]

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

[Alex Cones]

Всем спасио, вот:

For I := 1 To 12 Do
     Begin
      X := CenterX + Round(Radius * Cos((Pi / 180) * I * 30));
      Y := CenterY + Round(Radius * Sin((Pi / 180) * I * 30));
      FVFL_DrawCircle(Handle, X, Y, Round(Radius/4), Color);
     End;

Может быть еще поменьше кружки понасую.

UPD ----------------------------------------------------------------------

Конечный вариант:

For I := 1 To 12 Do
     Begin
      X := CenterX + Round(Radius * Cos((Pi / 180) * I * 30));
      Y := CenterY + Round(Radius * Sin((Pi / 180) * I * 30));
      FVFL_DrawCircle(Handle, X, Y, Round(Radius/4), Color);
     End;
    For I := 1 To 12 Do
     Begin
      X := CenterX + Round((Radius * 0.9) * Cos((Pi / 180) * ((I * 30)+15)));
      Y := CenterY + Round((Radius * 0.9) * Sin((Pi / 180) * ((I * 30)+15)));
      FVFL_DrawCircle(Handle, X, Y, Round(Radius/4), Color);
     End;

[ex.cluz]

Хех, цветочек вышел
Anti-Aliasing'ом надо бы пройтись...

А что это за зверь такой: FVFL_DrawCircle?