distance_sldistance_slDistanceSlDistanceSldistance_sl (算子名称)

名称

distance_sldistance_slDistanceSlDistanceSldistance_sl — Calculate the distances between a line segment and a line.

参数签名

distance_sl( : : RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2 : DistanceMin, DistanceMax)

描述

The operator distance_sldistance_slDistanceSlDistanceSlDistanceSldistance_sl calculates the minimum and maximum orthogonal distance between a line segment and a line. As input the coordinates of two points on the line segment (RowA1RowA1RowA1RowA1rowA1row_a1,ColumnA1ColumnA1ColumnA1ColumnA1columnA1column_a1,RowA2RowA2RowA2RowA2rowA2row_a2,ColumnA2ColumnA2ColumnA2ColumnA2columnA2column_a2) and on the line (RowB1RowB1RowB1RowB1rowB1row_b1,ColumnB1ColumnB1ColumnB1ColumnB1columnB1column_b1,RowB2RowB2RowB2RowB2rowB2row_b2,ColumnB2ColumnB2ColumnB2ColumnB2columnB2column_b2) are expected. The parameters DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min and DistanceMaxDistanceMaxDistanceMaxDistanceMaxdistanceMaxdistance_max return the result of the calculation. If the line segments are intersecting, DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min returns zero.

运行信息

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

参数表

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

Row coordinate of the first point of the line segment.

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

Column coordinate of the first point of the line segment.

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

Row coordinate of the second point of the line segment.

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

Column coordinate of the second point of the line segment.

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

Row coordinate of the first point of the line.

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

Column coordinate of the first point of the line.

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

Row coordinate of the second point of the line.

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

Column coordinate of the second point of the line.

DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min (output_control) real(-array) → (real)

Minimum distance between the line segment and the line.

DistanceMaxDistanceMaxDistanceMaxDistanceMaxdistanceMaxdistance_max (output_control) real(-array) → (real)

Maximum distance between the line segment and the line.

例程 (HDevelop)

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 400
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
dev_display (Line1)
Column := 50
Row := 100
Offset := 0
for RowEnd := 100 to 500 by 100
  gen_contour_polygon_xld (Line2, [Row,RowEnd], \
                           [Column+Offset,Column+Offset])
  dev_display (Line1)
  distance_sl (Row, Column+Offset, RowEnd, Column+Offset, Row1, Column1, \
               Row2, Column2,DistanceMin, DistanceMax)
  Offset := Offset+40
endfor

例程 (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_distance_sl(RowA1,ColumnA1,RowA2,ColumnA2,RowB1,ColumnB1,RowB2,ColumnB2,
              &distance_min,&distance_max);
aa_min = get_d(distance_min,0);
aa_max = get_d(distance_max,0);

例程 (HDevelop)

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 400
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
dev_display (Line1)
Column := 50
Row := 100
Offset := 0
for RowEnd := 100 to 500 by 100
  gen_contour_polygon_xld (Line2, [Row,RowEnd], \
                           [Column+Offset,Column+Offset])
  dev_display (Line1)
  distance_sl (Row, Column+Offset, RowEnd, Column+Offset, Row1, Column1, \
               Row2, Column2,DistanceMin, DistanceMax)
  Offset := Offset+40
endfor

例程 (HDevelop)

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 400
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
dev_display (Line1)
Column := 50
Row := 100
Offset := 0
for RowEnd := 100 to 500 by 100
  gen_contour_polygon_xld (Line2, [Row,RowEnd], \
                           [Column+Offset,Column+Offset])
  dev_display (Line1)
  distance_sl (Row, Column+Offset, RowEnd, Column+Offset, Row1, Column1, \
               Row2, Column2,DistanceMin, DistanceMax)
  Offset := Offset+40
endfor

例程 (HDevelop)

dev_open_window (0, 0, 512, 512, 'black', WindowHandle)
Row1 := 300
Column1 := 200
Row2 := 100
Column2 := 400
gen_contour_polygon_xld (Line1, [Row1,Row2], [Column1,Column2])
dev_display (Line1)
Column := 50
Row := 100
Offset := 0
for RowEnd := 100 to 500 by 100
  gen_contour_polygon_xld (Line2, [Row,RowEnd], \
                           [Column+Offset,Column+Offset])
  dev_display (Line1)
  distance_sl (Row, Column+Offset, RowEnd, Column+Offset, Row1, Column1, \
               Row2, Column2,DistanceMin, DistanceMax)
  Offset := Offset+40
endfor

结果

distance_sldistance_slDistanceSlDistanceSlDistanceSldistance_sl returns 2 ( H_MSG_TRUE) .

可替代算子

distance_pldistance_plDistancePlDistancePlDistancePldistance_pl

参考其它

distance_psdistance_psDistancePsDistancePsDistancePsdistance_ps, distance_ppdistance_ppDistancePpDistancePpDistancePpdistance_pp

模块

Foundation

算子列表