distance_sldistance_slDistanceSlDistanceSldistance_sl (算子)

名称

distance_sldistance_slDistanceSlDistanceSldistance_sl — 计算一条线段和一条线之间的距离。

签名

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

描述

算子 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.

执行信息

多线程类型：可重入（与非独占算子并行运行）。
多线程作用域：全局（可从任何线程调用）。
未采用并行化处理。

参数

RowA1RowA1RowA1RowA1rowA1row_a1 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the first point of the line segment.

ColumnA1ColumnA1ColumnA1ColumnA1columnA1column_a1 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the first point of the line segment.

RowA2RowA2RowA2RowA2rowA2row_a2 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the second point of the line segment.

ColumnA2ColumnA2ColumnA2ColumnA2columnA2column_a2 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the second point of the line segment.

RowB1RowB1RowB1RowB1rowB1row_b1 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the first point of the line.

ColumnB1ColumnB1ColumnB1ColumnB1columnB1column_b1 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the first point of the line.

RowB2RowB2RowB2RowB2rowB2row_b2 (输入控制) point.y(-array) → (real / integer)

Row coordinate of the second point of the line.

ColumnB2ColumnB2ColumnB2ColumnB2columnB2column_b2 (输入控制) point.x(-array) → (real / integer)

Column coordinate of the second point of the line.

DistanceMinDistanceMinDistanceMinDistanceMindistanceMindistance_min (输出控制) real(-array) → (real)

Minimum distance between the line segment and the line.

DistanceMaxDistanceMaxDistanceMaxDistanceMaxdistanceMaxdistance_max (输出控制) 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 返回 2 ( H_MSG_TRUE )。

替代

distance_pldistance_plDistancePlDistancePlDistancePldistance_pl

另见

distance_psdistance_psDistancePsDistancePsDistancePsdistance_ps, distance_ppdistance_ppDistancePpDistancePpDistancePpdistance_pp

模块

基础

算子