Свободная прямая

Отношение предназначено для построения Прямой, заданной однородными координатами двух точек.

Если тип объекта, указанного в любом из входных параметров, оказывается несовместимым с типом этого параметра, то при установленном флажке NIL в выходной параметр заносится значение NIL-объекта.

Параметры	Типы объектов	Функциональное назначение параметров
Прямая	Прямая	Строящаяся прямая
X1	Величина	X-компонента однородной координаты первой точки, определяющей свободную прямую
Y1	Величина	Y-компонента однородной координаты первой точки, определяющей свободную прямую
W1	Величина	1, если первая точка собственная; 0, если первая точка собственная;
X2	Величина	X-компонента однородной координаты второй точки, определяющей свободную прямую
Y2	Величина	Y-компонента однородной координаты второй точки, определяющей свободную прямую
W2	Величина	1, если вторая точка собственная; 0, если вторая точка собственная;

Прототип команды: O0 Согласование Прямая ; X1 Y1 W1 X2 Y2 W2 .

Пример 1:

Задать свободную прямую линию.

Алгоритм "Главный"

o1:0@lv=5 -20 69.5 1 -151 -34.5 1

entity ExecO0 is
port (P1,P2: in TOPoint; O: out TOLine);
end entity;

architecture ExecO0 of ExecO0 is
begin
     O.X1<=P1.X;
     O.Y1<=P1.Y;
     O.X2<=P2.X;
     O.Y2<=P2.Y;
end;