主要功能:计算两条直线之间的夹角角度
主要函数:
angle_ll( : : RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2 :Angle)
作用:计算两条直线之间夹角的角度
其中:
1、RowA1, ColumnA1, RowA2, ColumnA2, RowB1, ColumnB1, RowB2, ColumnB2分别为两条直线的端点坐标
2、Angle为两条直线之间的夹角, -pi <= Angle <= pi.
源码及注释如下:
*关闭窗口
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