VPF::[АнГем] Нарисовать наклонную дугу в Дельфи

S.A.G.

Дата 18.4.2007, 21:58 (ссылка)

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

Загрузка ...

не эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

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

Процедурой Arc можно нарисовать дугу вписанную в квадрат или в прямоугольник со сторонами параллельными оконным осям координат. Как рисовать произвольные дуги?

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

Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan

zkv

Дата 18.4.2007, 23:03 (ссылка)

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

Загрузка ...

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

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

Цитата(S.A.G. @ 18.4.2007, 21:58

)

Процедурой Arc можно нарисовать дугу вписанную в квадрат или в прямоугольник со сторонами параллельными оконным осям координат. Как рисовать произвольные дуги?

думаю дело не в Дельфи, а в том, что интерфейс виндовса не предоставляет соответствующего примитива.
Раз возник вопрос, то задача стоит в том чтобы рисовать эллиптические дуги?
У меня вставала задача рисовать под произвольным углом эллипсы, я не придумал ничего лучшего чем рассчитывать точки самому, а потом вызывать примитив Polyline.

Дело было так.
Эллипс задавался тремя параметрами:
1. Точка - координаты центра на растре
2. Точка - задает параметры a и b в формуле эллипса: (x/a)^2+(y/b)^2 = 1
3. Угол на который повернут эллипс относительно некоторой условной оси.

Строилось это дело так:

по формуле рассчитывал четвертинку графика неповернутого эллипса относительно точки (0,0)
применяя полученные результаты достраивал остальные три четверти
поворачивал все точки относительно точки (0,0)
прибавлял ко всем точкам координаты центра на растре

в итоге таким образом мы получили все требуемые точки, осталось их соединить, можно юзать Polyline или Polygon

Вот. Может поможет. smile

Если кто нить расскажет, как можно проще, буду рад smile

S.A.G.

Дата 18.4.2007, 23:51 (ссылка)

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

Загрузка ...

не эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1339
Регистрация: 20.7.2006
Где: in ad equate

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

Мне нужно выводить дуги окружностей. Причем дуги квадратов как угодно повернутых относительно осей координат. У меня есть рассчет, так он работает только для вертикальных и горизонтальных.

Это сообщение отредактировал(а) S.A.G. - 18.4.2007, 23:53

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

Вот она задачка: спасти себя от себя самого © Cube
Sometimes good people do evil things © A Simple Plan

ama_kid

Дата 19.4.2007, 07:52 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

Цитата

Как рисовать произвольные дуги?

API-шная функция AngleArc не устроит?
Вот пример использования:

Код

const Pi=3.1415926;
procedure MyAngleArc(Canvas:TCanvas; X,Y:integer;R:integer;StartAngle,EndAngle:integer);
var
 dx,dy:integer;
begin
 dx:=trunc(R*cos(StartAngle*Pi/180));
 dy:=-trunc(R*sin(StartAngle*Pi/180));
 Canvas.MoveTo(X+dx,Y+dy);
 AngleArc(Canvas.Handle,X,Y,R,StartAngle,EndAngle-StartAngle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 MyAngleArc(Form1.Canvas,100,100,50,50,-45);
end;

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

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

самурай без меча подобен самураю с мечом, но только без меча

zkv

Дата 19.4.2007, 07:58 (ссылка)

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

Загрузка ...

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

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

Цитата(S.A.G. @ 18.4.2007, 23:51

)

Причем дуги квадратов как угодно повернутых относительно осей координат

теперь я вообще не понимаю в чем проблема, как окружность не верти, она все равно окружностью останется... smile

ama_kid

Дата 19.4.2007, 08:09 (ссылка)

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

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

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

zkv
Кстати, ведь в приведенной мной ссылке написано:

Цитата

The arc drawn by this function may appear to be elliptical, depending on the current transformation and mapping mode.

Может проще заюзать SetMapMode и SetViewportExtEx? (я сам не пробовал, просто задачи такой не стояло). Интересно, получился бы аналогичный результат или нет...

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

самурай без меча подобен самураю с мечом, но только без меча

zkv

Дата 19.4.2007, 11:55 (ссылка)

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

Загрузка ...

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

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

ama_kid, спасибо за совет, функции хорошие, только не позволяют они задать угол вывода фигуры.

Можно нарисовать например прямоугольник (для простоты) так:

     ------------------
     |                     |
     |                     |
     |                     |
     ------------------
А вот так не получится (имеется ввиду прямоугольник smile

):
     .
    .     .
   .           .
  .                 .
       .           .
            .     .
                 .
тоже самое с эллипсами

Вот еще интересная ссылка по этим функциям

Возможно существуют какие то функции, которые позволят сделать поворот фигуры, но я про них не знаю.

Это сообщение отредактировал(а) zkv - 19.4.2007, 12:01

Alexeis

Дата 21.4.2007, 12:03 (ссылка)

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

Загрузка ...

Амеба

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

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

ama_kid, здорово но поворачивает оси вроде эта функция ModifyWorldTransform

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

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

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

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

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