Ребята, в принципе у меня не работает только одна формула. Подскажите правильную.
Вот моя процедура:
| Код |
procedure draw_wind(x1,y1,x2,y2,size:integer);
// x1,y1,x2,y2 - координаты начала и конца линии (в нашем случае прямоугольника)
//size - толщина линии
var tol :byte; //половина толщины линии
sh : integer; //смещение
begin
with form_main.im.Canvas do
begin
pen.Width:=size;
pen.Color:=clBlack;
pen.Width:=1;
tol:=ceil(size/2);
//эта формула не работает. Подскажите как надо написать.
sh:=ceil(tol*sin(arctan((y1-y2)/(x1-x2))));
if y1 = y2 then //рисуем горизонтальную линию
polygon([ point(x1,y1-tol),point(x2,y2-tol),
point(x2,y2+tol),point(x1,y1+tol) ]);
if x1 = x2 then //рисуем вертикальную линию
polygon([ point(x1-tol,y1),point(x2-tol,y2),
point(x2+tol,y2),point(x1+tol,y1) ]);
//рисуем линию под углом
if (x1<x2) and (y1<y2) then
polygon([ point(x1+sh,y1-sh),point(x2+sh,y2-sh),
point(x2-sh,y2+sh),point(x1-sh,y1+sh) ]);
if (x1<x2) and (y1>y2) then
polygon([ point(x1-sh,y1-sh),point(x2-sh,y2-sh),
point(x2+sh,y2+sh),point(x1+sh,y1+sh) ]);
if (x1>x2) and (y1>y2) then
polygon([ point(x1-sh,y1+sh),point(x2-sh,y2+sh),
point(x2+sh,y2-sh),point(x1+sh,y1-sh) ]);
if (x1>x2) and (y1<y2) then
polygon([ point(x1+sh,y1+sh),point(x2+sh,y2+sh),
point(x2-sh,y2-sh),point(x1-sh,y1-sh) ]);
end;
end;
|
|
)
