VPF::Врашение эллипса - Форум программистов

lacost

Дата 18.12.2008, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.9.2008

Репутация: нет
Всего: нет

Как можно нарисовать элипс под углом?

его оси я рисовал так:
где с1, с2 - его центр, h,h1 - длина большой и малой оси, al - угол относительно ОХ

Код


  Form.Canvas.MoveTo(c1,c2);
  form.Canvas.LineTo(c1+Round(h*cos(al)),c2-Round(h*sin(al)));

  Form.Canvas.MoveTo(c1,c2);
  form.Canvas.LineTo(c1-Round(h*cos(al)),c2+Round(h*sin(al)));

  x:=90*Pi/180;

  Form.Canvas.MoveTo(c1,c2);
  Form.Canvas.LineTo(c1+Round(h1*cos(al+x)),c2+Round(h1*sin(al-x)));

  Form.Canvas.MoveTo(c1,c2);
  Form.Canvas.LineTo(c1-Round(h1*cos(al+x)),c2-Round(h1*sin(al-x)));

WaReZMEN

Дата 20.12.2008, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 683
Регистрация: 9.6.2006
Где: Россия, Санкт-Пет ербург

Репутация: нет
Всего: 3

Ну а угол поменять не помогает?

Alexeis

Дата 20.12.2008, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Есть функция SetWorldTransform которая вводит преобразования при рисовании, в том числе и преобразование поворота.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »