主要功能:计算直线与水平坐标轴之间的夹角角度
主要函数:
angle_lx( : : Row1, Column1, Row2, Column2 : Angle)
作用:计算直线与水平坐标轴之间的夹角
其中:
1、Row1, Column1, Row2, Column2分别为直线的端点坐标
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 ('red')
*画水平线
disp_line (WindowID, RowA1, ColumnA1, RowA2, ColumnA2)
dev_set_color ('black')
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_lx (RowB1, ColumnB1, RowB2, ColumnB2, Angle)
endfor```