Operator Reference

intersection_llintersection_llIntersectionLlIntersectionLlintersection_ll (Operator)

intersection_llintersection_llIntersectionLlIntersectionLlintersection_ll — Calculate the intersection point of two lines.

Warning

intersection_llintersection_llIntersectionLlIntersectionLlintersection_ll is obsolete and is only provided for reasons of backward compatibility. New applications should use the operator intersection_linesintersection_linesIntersectionLinesIntersectionLinesintersection_lines of the chapter Tools / Geometry instead.

Signature

intersection_ll( : : RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2 : Row, Column, IsParallel)

Description

The operator intersection_llintersection_llIntersectionLlIntersectionLlintersection_ll calculates the intersection point of two lines. As input the two points on each line are expected (RowA1RowA1RowA1rowA1row_a1,ColumnA1ColumnA1ColumnA1columnA1column_a1, RowA2RowA2RowA2rowA2row_a2,ColumnA2ColumnA2ColumnA2columnA2column_a2) and (RowB1RowB1RowB1rowB1row_b1,ColumnB1ColumnB1ColumnB1columnB1column_b1, RowB2RowB2RowB2rowB2row_b2,ColumnB2ColumnB2ColumnB2columnB2column_b2). The parameters RowRowRowrowrow and ColumnColumnColumncolumncolumn return the result of the calculation. If the lines are parallel, the values of RowRowRowrowrow and ColumnColumnColumncolumncolumn are undefined and IsParallelIsParallelIsParallelisParallelis_parallel is 1. Otherwise, IsParallelIsParallelIsParallelisParallelis_parallel is 0.

Attention

If the lines are parallel the values of RowRowRowrowrow and ColumnColumnColumncolumncolumn are undefined.

Execution Information

Multithreading type: reentrant (runs in parallel with non-exclusive operators).
Multithreading scope: global (may be called from any thread).
Processed without parallelization.

Parameters

RowA1RowA1RowA1rowA1row_a1 (input_control) point.y(-array) → (real / integer)

Row coordinate of the first point of the first line.

ColumnA1ColumnA1ColumnA1columnA1column_a1 (input_control) point.x(-array) → (real / integer)

Column coordinate of the first point of the first line.

RowA2RowA2RowA2rowA2row_a2 (input_control) point.y(-array) → (real / integer)

Row coordinate of the second point of the first line.

ColumnA2ColumnA2ColumnA2columnA2column_a2 (input_control) point.x(-array) → (real / integer)

Column coordinate of the second point of the first line.

RowB1RowB1RowB1rowB1row_b1 (input_control) point.y(-array) → (real / integer)

Row coordinate of the first point of the second line.

ColumnB1ColumnB1ColumnB1columnB1column_b1 (input_control) point.x(-array) → (real / integer)

Column coordinate of the first point of the second line.

RowB2RowB2RowB2rowB2row_b2 (input_control) point.y(-array) → (real / integer)

Row coordinate of the second point of the second line.

ColumnB2ColumnB2ColumnB2columnB2column_b2 (input_control) point.x(-array) → (real / integer)

Column coordinate of the second point of the second line.

RowRowRowrowrow (output_control) point.y(-array) → (real)

Row coordinate of the intersection point.

ColumnColumnColumncolumncolumn (output_control) point.x(-array) → (real)

Column coordinate of the intersection point.

IsParallelIsParallelIsParallelisParallelis_parallel (output_control) number(-array) → (integer)

Are the two lines parallel?

Example (HDevelop)

dev_set_color ('black')
RowLine1 := 350
ColLine1 := 250
RowLine2 := 300
ColLine2 := 300
Rows := 300
Columns := 50
disp_line (WindowHandle, RowLine1, ColLine1, RowLine2, ColLine2)
n := 0
for Rows := 40 to 200 by 4
  dev_set_color ('red')
  disp_line (WindowHandle, Rows, Columns, Rows+n, Columns+n)
  intersection_ll (Rows, Columns, Rows+n, Columns+n, RowLine1, ColLine1, \
                   RowLine2, ColLine2, Row, Column, IsParallel)
  dev_set_color ('blue')
  disp_line (WindowHandle, Row, Column-2, Row, Column+2)
  disp_line (WindowHandle, Row-2, Column, Row+2, Column)
  n := n+8
endfor

Example (C)

create_tuple(&rowA1, 1);
set_i(rowA1, 8, 0);
create_tuple(&columnA1, 1);
set_i(columnA1, 7, 0);
create_tuple(&rowA2, 1);
set_i(rowA2, 15, 0);
create_tuple(&columnA2, 1);
set_i(columnA2, 11, 0);
create_tuple(&RowB1, 1);
set_i(RowB1, 2, 0);
create_tuple(&ColumnB1, 1);
set_i(ColumnB1, 4, 0);
create_tuple(&RowB2, 1);
set_i(RowB2, 6, 0);
create_tuple(&ColumnB2, 1);
set_i(ColumnB2, 10, 0);
T_intersection_ll(rowA1,columnA1,rowA2,columnA2,RowB1,ColumnB1,RowB2,
                  ColumnB2,&row_i,&column_i,&parallel);
aa_min = get_d(row_i,0);
aa_max = get_d(column_i,0);

Example (HDevelop)

dev_set_color ('black')
RowLine1 := 350
ColLine1 := 250
RowLine2 := 300
ColLine2 := 300
Rows := 300
Columns := 50
disp_line (WindowHandle, RowLine1, ColLine1, RowLine2, ColLine2)
n := 0
for Rows := 40 to 200 by 4
  dev_set_color ('red')
  disp_line (WindowHandle, Rows, Columns, Rows+n, Columns+n)
  intersection_ll (Rows, Columns, Rows+n, Columns+n, RowLine1, ColLine1, \
                   RowLine2, ColLine2, Row, Column, IsParallel)
  dev_set_color ('blue')
  disp_line (WindowHandle, Row, Column-2, Row, Column+2)
  disp_line (WindowHandle, Row-2, Column, Row+2, Column)
  n := n+8
endfor

Example (HDevelop)

dev_set_color ('black')
RowLine1 := 350
ColLine1 := 250
RowLine2 := 300
ColLine2 := 300
Rows := 300
Columns := 50
disp_line (WindowHandle, RowLine1, ColLine1, RowLine2, ColLine2)
n := 0
for Rows := 40 to 200 by 4
  dev_set_color ('red')
  disp_line (WindowHandle, Rows, Columns, Rows+n, Columns+n)
  intersection_ll (Rows, Columns, Rows+n, Columns+n, RowLine1, ColLine1, \
                   RowLine2, ColLine2, Row, Column, IsParallel)
  dev_set_color ('blue')
  disp_line (WindowHandle, Row, Column-2, Row, Column+2)
  disp_line (WindowHandle, Row-2, Column, Row+2, Column)
  n := n+8
endfor

Result

intersection_llintersection_llIntersectionLlIntersectionLlintersection_ll returns 2 ( H_MSG_TRUE) .

Module

Foundation

Operators