А что если и правда sin&cos? Седне в школе по памяти на алгебре(на контрольной=) ) накатал:
a:=abs(x1-x2);//катит у
b:=abs(y1-y2);//катит х
c:=sqrt(a*a+b*b);//гипотенуза
cos:=b/c;//cosB
sin:=a/c;//sinB угол против стороны У
for i:=-2 to 2 do begin
x1:=x1+cos*i;//
y1:=y1+sin*i;// Переносим точки, так
x2:=x2+cos*i;// чтобы линия была параллельна...
y2:=y2+sin*i;//
DrawLine(trunc(x1),trunc(y1),trunc(x2),trunc(y2));
end;
repaint;
Павел, я правильно вас понял?
Сообщение от Павел
А вообще у линии есть угол , вот собственно толстая линия - это несколько обычных линий под одним и тем же углом. Значит, к координате X надо прибавлять косинус угла, а к Y - синус. Учите тригонометрию
|
Проверте плиз. Я щас без телефона, а эмуль под линь я пока не нашёл... И если это правильно то останется лишь придумать способ увеличение длины отрезка по краям)