图片八方向判断

易语言 2020-06-29 23:21:05

新页面.画线 (x点, 纵向位置, x点, y点, #绿色) ' 垂直边
新页面.画线 (x点, 纵向位置, 横向位置, 纵向位置, #绿色) ' 水平边
新页面.画线 (横向位置, 纵向位置, x点, y点, #绿色) ' 斜边
' 求动态边的长度,就是鼠标在任何方向距中心点的距离
.判断开始 (横向位置 ≤ x点 且 纵向位置 ≤ y点) ' 左上
垂直边 = y点 - 纵向位置
水平边 = x点 - 横向位置
斜边 = 求平方根 (求次方 (x点 - 横向位置, 2) + 求次方 (y点 - 纵向位置, 2))
角度 = 360 - 求反正切 (水平边 ÷ 垂直边) ÷ #pi × 180
.判断 (横向位置 ≥ x点 且 纵向位置 ≤ y点) ' 右上
垂直边 = y点 - 纵向位置
水平边 = 横向位置 - x点
斜边 = 求平方根 (求次方 (横向位置 - x点, 2) + 求次方 (y点 - 纵向位置, 2))
角度 = 求反正切 (水平边 ÷ 垂直边) ÷ #pi × 180
.判断 (纵向位置 ≥ y点 且 横向位置 ≤ x点) ' 左下
垂直边 = 纵向位置 - y点
水平边 = x点 - 横向位置
斜边 = 求平方根 (求次方 (x点 - 横向位置, 2) + 求次方 (纵向位置 - y点, 2))
角度 = 180 + 求反正切 (水平边 ÷ 垂直边) ÷ #pi × 180
.判断 (纵向位置 ≥ y点 且 横向位置 ≥ x点) ' 右下
垂直边 = 纵向位置 - y点
水平边 = 横向位置 - x点
斜边 = 求平方根 (求次方 (横向位置 - x点, 2) + 求次方 (纵向位置 - y点, 2))
角度 = 180 - 求反正切 (水平边 ÷ 垂直边) ÷ #pi × 180