angle_ll算子

dev_close_window ()
dev_open_window (0, 0, 512, 512, 'white', WindowID)
*显示第一条线
RowA1 := 255
ColumnA1 := 10
RowA2 := 255
ColumnA2 := 501
dev_set_color ('black')
disp_line (WindowID, RowA1, ColumnA1, RowA2, ColumnA2)

RowB1 := 255
ColumnB1 := 255
for i := 1 to 360 by 1
    *显示不同角度的线
    RowB2 := 255 + sin(rad(i)) * 200
    ColumnB2 := 255 + cos(rad(i)) * 200
    disp_line (WindowID, RowB1, ColumnB1, RowB2, ColumnB2)
    *计算两条线之间的角度 
    angle_ll (RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2, Angle)
endfor

==================================================

angle_ll( : : RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1,RowB2, ColumnB2 : Angle)

 

 

函数作用：

计算两条线夹角

逆时针旋转向量A到向量B的角度即为结果值，该结果取决于点和线的顺序，用弧度表示，范围为[-pi, pi]

 参数列表：

RowA1（in）：第一条线起始点的行坐标

ColumnA1（in）：第一条线起始点的列坐标

RowA2（in）：第一条线终止点的行坐标

ColumnA2（in）：第一条线终止点的列坐标

RowB1（in）：第二条线起始点的行坐标

ColumnB1（in）：第二条线起始点的列坐标

RowB2（in）：第二条线终止点的行坐标

ColumnB2（in）：第二条线终止点的列坐标

Angle（out）：两线夹角