Отрезок задаваемый 2-мя вешественными координатами
type TDoubleLineSegment = record P0: TDoublePoint; P1: TDoublepoint; end;
@value P0 начальная точка @value P1 конечная точка