Delphi-canvas - нарисовать знак Ин-Янь

[destroy_]

Нужно нарисовать инь ян (так как на картинке) используя канвас но вот беда у меня хрень получается какая то....
подскажите как рассчитывать положение и прочее и прочее.

[BDA]

procedure draw_Yin_and_yang(canv: tcanvas; x, y, r: integer);
begin
  canv.Pen.Width := 2;
  canv.Pen.Color := clblack;
  canv.Brush.Color := clwhite;
  canv.Ellipse(x - r, y - r, x + r, y + r);
  canv.Arc(x - r, y - r div 2, x, y + r div 2, x - r, y, x, y);
  canv.Arc(x, y - r div 2, x + r, y + r div 2, x + r, y, x, y);
  canv.Ellipse(x - 3 * r div 4, y - r div 4, x - r div 4, y + r div 4);
  canv.Brush.Color := clblack;
  canv.Ellipse(x + 3 * r div 4, y - r div 4, x + r div 4, y + r div 4);
  canv.FloodFill(x, y - r div 2, clblack, fsBorder);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  draw_Yin_and_yang(form1.Canvas, 200, 150, 50);
end;

[destroy_]

за код конечно спасибо! но мне бы пояснения кода...и как рассчитывать положения?

[Serge_Bliznykov]

и как рассчитывать положения?

положение ГДЕ? для чего его рассчитывать?!
Куда Вы хотите поместить рисунок?
Чем положение в точке (200, 150) Вас не устраивает?!

[BDA]

destroy_, ну это не такая задачка, над которой нужно голову долго ломать.
Сначала выбираем те величины, которые хотели бы быстро изменять, чтобы рисовать картинку где угодно. Такими величинами являются центр рисунка и радиус.
Затем внимательно смотрим на рисунок, думаем, думаем, думаем и понимаем, что он состоит из 3 окружностей и 2 полуокружностей (дуг).
Осталась сама малость - прочитать, как работают эти методы.
Эллипс задается с помощью координат прямоугольника, описывающего его (эллипс).
Про дугу лучше прочитать в гугле
Чтобы понять, какие координаты писать, нужно на бумажке начать нарисовать картинку и высчитывать координаты в общем виде (не знаю, как лучше объяснить, это просто геометрия простейшая).

[destroy_]

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

[BDA]

Если нужно именно перемещение картинки без вращения ее вокруг своей оси, то это совсем не сложно.
Update Вариант с вертящимся знаком (значительное усложнение формул)

[destroy_]

Сообщение от BDA

Если нужно именно перемещение картинки без вращения ее вокруг своей оси, то это совсем не сложно.
Update Вариант с вертящимся знаком (значительное усложнение формул)

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

[BDA]

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

[destroy_]

Сообщение от BDA

Во-вторых, угадать с размерами чего?
В-третьих, что за ошибки? (у меня все компилируется - прикладываю обе программы)

вот что за ошибка:
Error reading Forml.DoubleBuffered
но вроде я нашел в чем причина...
ну вот одно но: мне надо без кнопок вообще то есть только компильнул тут сразу и поехало.Используя size (а не самому задавать x,y,r ) и компонент image, там то и появляются проблемы

выше я не тот проект прикрепил