- dev_get_window (WindowHandle)
- * line1
- line1_row1:=rand(10)*100
- line1_col1:=rand(10)*100
- line1_row2:=rand(10)*300
- line1_col2:=rand(10)*300
- disp_line (WindowHandle, line1_row1, line1_col1, line1_row2, line1_col2)
- * line2
- line2_row1:=gen_tuple_const(10,100)
- line2_col1:=gen_tuple_const(10,100)
- line2_row2:=gen_tuple_const(10,300)
- line2_col2:=gen_tuple_const(10,300)
- disp_line (WindowHandle, line2_row1, line2_col1, line2_row2, line2_col2)
- angle_ll (line1_row1, line1_col1, line1_row2, line1_col2, \
- line2_row1, line2_col1, line2_row2, line2_col2, Angle)
复制代码
这样可以不?你想要的是这种效果吗? |