| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Графика [D7, WinXP]
Shnabs © (2005-03-02 01:07:00)Маленький вопросик можно? :) Как создать движение линии от одной то чки к другой? Например известно X1,Y1, X2,Y2. Рисуем: canvas.moveto(x1,y1), canvas.lineto(x2,y). Он сразу нарисует линию. А мне нужно чтобы линия начала свое движение из точки X1,Y1, и закончило в точки X2,Y2. Проблем нет, если рисовать только горизонтально, вертикально или по диагонали. Тут просто наращиваещь X или Y, или сразу вместе, если по диоганали. А вот когда нет соотношения, то тут туганчик. Может где-нибудь, есть что-нибудь подобное, буду благодарен если поможете. Спасибо.
ЮЮ (2005-03-02 05:01:00) [1]>А вот когда нет соотношения, то тут туганчик
Рисовать надо по принципу:
нарисовал (X1, y1) - (x2, y2)
цикл
нашел новые (x1new, y1new), (x2new, y2new)
"затер" старую линию (x1, y1) - (x2, y2)
присвоил новые координаты
нарисовал новую (x1, y1) - (x2, y2)
конец цикла
Для этого, Canvas.Pen.Mode = pmXor, кажется.
PKT (2005-03-02 02:03:00) [2]Вообще-то школьный курс...
k := (Y2 - Y1) / (X2 - X1);
A := Y1 - k * X1;
Inc(X);
Y := Round(k * X + A);
| |
