Движение точки по линии Опции

[pashist]

Привет=) Есть линия, начало которой привязано к центру координат(х1, у1=320, 240), направленная под произвольным углом α. Нужно, чтобы черная точка прошла по всей белой линии, не выходя за её пределы толщины. Толщина точки равна толщине линии. Как это реализовать?

[volvo]

Смотря, что ты еще изменял. У меня, например, выдает вот такие значения:

       340       255
       360       270
       380       285
       400       300
       420       315
       440       330
       460       345
       480       360
       500       375
       520       390
       540       405
       560       420
       580       435
       600       450
       620       465
       640       480
       660       495
       680       510
       700       525
       720       540

(первый столбец - X, второй - Y)... Как видишь, никакого скачка.


P.S.
Отставить мой предыдущий пост. Он просто еще раз показывает преимущество 32-битных компиляторов. У тебя по ходу вычисления происходит переполнение. Промежуточный результат не помещается в Integer, и как результат - усечение...

Вот патч:

function F(x: Integer): integer;
begin
     f:=round(LongInt(x-x1)*(y2-y1)/(x2-x1)) + y1;
end;