310 ______ ____ _____ _____ Приложение

MouseWindow(XE,YE,XE2,YE2) ;

MouseGraphCursor(CurE» dXm,dYm);

ShowMouse and else

begin (Формируем новый вектор! MPF := False;

if (xOgOxlg) or (yOgOylg) then Line(xOg,yOg,xlg,ylg) ;

MouseScreen;

it (XOgoXN) or (YOgoYN) then

begin (Поиещаем очередной вектор} inc(NVecE) ;

with VecE[NVecE] do begin

XI :° XOg;

Yl := YOg;

X2 := XN;

Y2 :- YN;

Lir)e(xl,yl,x2,y2);

RepChar end;

{Проверяем ширину символа^ if XOg>XN then XN := XOg;

if XN>WidthX then

begin {Смещаем правую границу} SetColor(Cyan) ;

SetWriteMode(XORPut) ;

Line(WidthX,YE,WidthX,YE2) ;

WidthX := XN+4*DXE;

if WidthX>XE2 then WidthX := XE2;

Line(WidthX,YE,WidthX,YE2) ;

SetColor(Yellow) ;

end;

MouseGraphCursor(CurM,0,0);

ShowMouse end end

end; {MouseInNed} {——————}

Procedure MouseInLine;

(Проверяет отметку вектора} var

х1т,у1я,х2т,у2т,dx,dy,x,y,n: Integer;

Is,Sign: Boolean;

k: Word;

k0,y0: Real;

label Loop;

begin

if MPF then

begin {Уничтожаем резиновую нить} HideMouse;

MPF := False;

if (XOgoXlg) or (YOgoYlg) then Line(XOg,YOg,Xlg,Ylg) ;

MouseGraphCursor(CurM,0,0);