Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.14;
Скачать: CL | DM;

Вниз

Как нарисовать дугу?   Найти похожие ветки 

 
Shaman2002 ©   (2002-11-05 18:41) [0]

Люди подскажите как нарисовать дугу по трем точкам в PaintBox.
Точнее говоря полэлипса под углом к оси ОХ. Известны координаты трех вершин.
Буду очень признателен за помощь.


 
MBo ©   (2002-11-06 06:25) [1]

Дугу окружности по трем точкам нарисовать можно, а вот для эллипса трех точек недостаточно - нужно либо 4 точки, либо еще какой-то параметр эллипса, например, эксцентриситет или (что проще) отношение большой и малой полуосей


 
ZEE ©   (2002-11-06 09:13) [2]

На счет "полэлипса" - не знаю, но вообще кривые (по трем точкам) я рисую так:

var aPts:array[0..4]of TPoint;
...
aPts[0]:=Point(x1,y1);
aPts[1]:=Point(x1,y1);
aPts[2]:=Point(x2,y2);
aPts[3]:=Point(x3,y3);
aPts[4]:=Point(x3,y3);
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.FillRect(Rect(0,0,0,0));
// сам не знаю как эта штука влияет на прорисовку,
// но почему-то без нее не работает
Image1.Canvas.Brush.Style:=bsClear;
PolyBezier(Image1.Canvas.Handle,aPts,4);
...


Может конечно не совсем правильно, но кто умеет лучше - пусть кинет в меня правильным кодом :)



Страницы: 1 вся ветка

Текущий архив: 2002.11.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-45963
Whippi
2002-11-04 11:19
2002.11.14
HTTP сервер


3-45770
oomneeq
2002-10-25 15:59
2002.11.14
Конфигурируемый импорт данных


14-46060
[NIKEL]
2002-10-24 19:00
2002.11.14
У кого какие книги (компьютерные) стоят на полке рядом с компом?


3-45738
Fbist
2002-10-24 11:53
2002.11.14
Про отчёт.


6-46040
URL
2002-09-20 10:15
2002.11.14
Как вытащить картинки из TWebBrowser?