在图片的四个角画射线怎么写？求教

烟灭

如图，在图片的四个角画射线怎么写？每条线的颜色随机，长度随机，求教

dwcq

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
中心X	整数型
中心Y	整数型
角点X	整数型
角点Y	整数型
终点X	整数型
终点Y	整数型
射线数量	整数型
i	整数型
j	整数型
角点数组	整数型		4,2
长度	整数型
当前角度	双精度小数型
基础角度	双精度小数型
起始角度	双精度小数型
结束角度	双精度小数型
角度步进	双精度小数型

' 清空画板
画板1.清除 (, , , )
' 计算画板中心点
中心X ＝ 画板1.宽度 ÷ 2
中心Y ＝ 画板1.高度 ÷ 2
' 定义四个角坐标
角点数组 [1] [1] ＝ 0
角点数组 [1] [2] ＝ 0  ' 左上角
角点数组 [2] [1] ＝ 画板1.宽度
角点数组 [2] [2] ＝ 0  ' 右上角
角点数组 [3] [1] ＝ 0
角点数组 [3] [2] ＝ 画板1.高度  ' 左下角
角点数组 [4] [1] ＝ 画板1.宽度
角点数组 [4] [2] ＝ 画板1.高度  ' 右下角
' 为每个角画15条射线（真正的扇形）
计次循环首 (4, i)
角点X ＝ 角点数组 [i] [1]
角点Y ＝ 角点数组 [i] [2]
' 计算基础角度（每个角不同）
判断 (i ＝ 1)  ' 左上角：右下方向
基础角度 ＝ 45  ' 135度
判断 (i ＝ 2)  ' 右上角：左下方向
基础角度 ＝ 135  ' 225度
判断 (i ＝ 3)  ' 左下角：右上方向
基础角度 ＝ -45  ' 45度
基础角度 ＝ -135  ' 315度

' 扇形展开角度范围（60度）
起始角度 ＝ 基础角度 － 30  ' -30度偏移
结束角度 ＝ 基础角度 ＋ 30  ' +30度偏移
角度步进 ＝ (结束角度 － 起始角度) ÷ 15  ' 15条射线
计次循环首 (15, j)
' 当前角度（在扇形范围内均匀分布）
当前角度 ＝ 起始角度 ＋ 角度步进 �� (j － 1)
' 随机长度（画板宽度的40%-90%）
长度 ＝ 取随机数 (200, 400)
' 计算终点坐标（使用三角函数）
终点X ＝ 角点X ＋ 取整 (求余弦 (当前角度 × 3.1415926 ÷ 180) × 长度)
终点Y ＝ 角点Y ＋ 取整 (求正弦 (当前角度 × 3.1415926 ÷ 180) × 长度)
' 画线（随机颜色）
画板1.画笔颜色 ＝ 取颜色值 (取随机数 (50, 255), 取随机数 (50, 255), 取随机数 (50, 255))
画板1.画直线 (角点X, 角点Y, 终点X, 终点Y)
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 中心X, 整数型<br /> .局部变量 中心Y, 整数型<br /> .局部变量 角点X, 整数型<br /> .局部变量 角点Y, 整数型<br /> .局部变量 终点X, 整数型<br /> .局部变量 终点Y, 整数型<br /> .局部变量 射线数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 角点数组, 整数型, , "4,2"<br /> .局部变量 长度, 整数型<br /> .局部变量 当前角度, 双精度小数型<br /> .局部变量 基础角度, 双精度小数型<br /> .局部变量 起始角度, 双精度小数型<br /> .局部变量 结束角度, 双精度小数型<br /> .局部变量 角度步进, 双精度小数型<br /> <br /> ' 清空画板<br /> 画板1.清除 (, , , )<br /> <br /> ' 计算画板中心点<br /> 中心X ＝ 画板1.宽度 ÷ 2<br /> 中心Y ＝ 画板1.高度 ÷ 2<br /> <br /> ' 定义四个角坐标<br /> 角点数组 [1] [1] ＝ 0<br /> 角点数组 [1] [2] ＝ 0  ' 左上角<br /> 角点数组 [2] [1] ＝ 画板1.宽度<br /> 角点数组 [2] [2] ＝ 0  ' 右上角<br /> 角点数组 [3] [1] ＝ 0<br /> 角点数组 [3] [2] ＝ 画板1.高度  ' 左下角<br /> 角点数组 [4] [1] ＝ 画板1.宽度<br /> 角点数组 [4] [2] ＝ 画板1.高度  ' 右下角<br /> <br /> ' 为每个角画15条射线（真正的扇形）<br /> .计次循环首 (4, i)<br />     角点X ＝ 角点数组 <i> [1]<br />     角点Y ＝ 角点数组 <i> [2]<br />     ' 计算基础角度（每个角不同）<br />     .判断开始 (i ＝ 1)  ' 左上角：右下方向<br />         基础角度 ＝ 45  ' 135度<br />     .判断 (i ＝ 2)  ' 右上角：左下方向<br />         基础角度 ＝ 135  ' 225度<br />     .判断 (i ＝ 3)  ' 左下角：右上方向<br />         基础角度 ＝ -45  ' 45度<br />     .默认<br />         基础角度 ＝ -135  ' 315度<br />     .判断结束<br /> <br />     ' 扇形展开角度范围（60度）<br />     起始角度 ＝ 基础角度 － 30  ' -30度偏移<br />     结束角度 ＝ 基础角度 ＋ 30  ' +30度偏移<br />     角度步进 ＝ (结束角度 － 起始角度) ÷ 15  ' 15条射线<br /> <br />     .计次循环首 (15, j)<br />         ' 当前角度（在扇形范围内均匀分布）<br />         当前角度 ＝ 起始角度 ＋ 角度步进 × (j － 1)<br /> <br />         ' 随机长度（画板宽度的40%-90%）<br />         长度 ＝ 取随机数 (200, 400)<br />         ' 计算终点坐标（使用三角函数）<br /> <br />         终点X ＝ 角点X ＋ 取整 (求余弦 (当前角度 × 3.1415926 ÷ 180) × 长度)<br />         终点Y ＝ 角点Y ＋ 取整 (求正弦 (当前角度 × 3.1415926 ÷ 180) × 长度)<br /> <br />         ' 画线（随机颜色）<br /> <br />         画板1.画笔颜色 ＝ 取颜色值 (取随机数 (50, 255), 取随机数 (50, 255), 取随机数 (50, 255))<br />         画板1.画直线 (角点X, 角点Y, 终点X, 终点Y)<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

影纸

  

变量名	类 型	静态	数组	备 注
x1	整数型
y1	整数型
x2	整数型
y2	整数型

x2 ＝ 取随机数 (10, 画板1.宽度)
y2 ＝ 取随机数 (10, 画板1.高度)
画板1.画笔颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
画板1.刷子类型 ＝ 0
如果 (取随机数 (0, 1) ＝ 0)
x1 ＝ 0
x1 ＝ 画板1.宽度

如果 (取随机数 (0, 1) ＝ 0)
y1 ＝ 0
y1 ＝ 画板1.高度
画板1.画直线 (x1, y1, x2, y2)

.版本 2<br /> <br /> .局部变量 x1, 整数型<br /> .局部变量 y1, 整数型<br /> .局部变量 x2, 整数型<br /> .局部变量 y2, 整数型<br /> <br /> x2 ＝ 取随机数 (10, 画板1.宽度)<br /> y2 ＝ 取随机数 (10, 画板1.高度)<br /> 画板1.画笔颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br /> 画板1.刷子类型 ＝ 0<br /> .如果 (取随机数 (0, 1) ＝ 0)<br />     x1 ＝ 0<br /> .否则<br />     x1 ＝ 画板1.宽度<br /> .如果结束<br /> <br /> .如果 (取随机数 (0, 1) ＝ 0)<br />     y1 ＝ 0<br /> .否则<br />     y1 ＝ 画板1.高度<br /> .如果结束<br /> 画板1.画直线 (x1, y1, x2, y2)

熬夜

https://bbs.125.la/forum.php?mod=viewthread&tid=14772906

dwcq

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
中心X	整数型
中心Y	整数型
角点X	整数型
角点Y	整数型
终点X	整数型
终点Y	整数型
随机颜色	整数型
随机长度	整数型
射线数量	整数型
i	整数型
j	整数型
角点数组	整数型		4,2
向量X	整数型
向量Y	整数型
垂直向量X	整数型
垂直向量Y	整数型
随机偏移量	整数型

' 计算画板中心点
中心X ＝ 画板1.宽度 ÷ 2
中心Y ＝ 画板1.高度 ÷ 2
' 清空画板
画板1.清除 (, , , )
' 定义四个角点坐标
角点数组 [1] [1] ＝ 0  ' 左上角X
角点数组 [1] [2] ＝ 0  ' 左上角Y
角点数组 [2] [1] ＝ 画板1.宽度  ' 右上角X
角点数组 [2] [2] ＝ 0  ' 右上角Y
角点数组 [3] [1] ＝ 0  ' 左下角X
角点数组 [3] [2] ＝ 画板1.高度  ' 左下角Y
角点数组 [4] [1] ＝ 画板1.宽度  ' 右下角X
角点数组 [4] [2] ＝ 画板1.高度  ' 右下角Y
' 为每个角画10-15条射线
计次循环首 (4, i)
角点X ＝ 角点数组 [i] [1]
角点Y ＝ 角点数组 [i] [2]
' 计算从角点到中心的向量
向量X ＝ 中心X － 角点X
向量Y ＝ 中心Y － 角点Y
' 计算垂直于原始向量的向量(交换x,y并取反其中一个)
垂直向量X ＝ －向量Y
垂直向量Y ＝ 向量X
射线数量 ＝ 取随机数 (10, 50)  ' 每个角10-15条射线
计次循环首 (射线数量, j)
' 生成随机颜色
随机颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
' 生成随机长度(50-200之间)
随机长度 ＝ 取随机数 (60, 300)
' 生成随机偏移量(-30到30之间)
随机偏移量 ＝ 取随机数 (-60, 60)
' 计算终点坐标(原始向量方向 + 垂直方向的随机偏移)
终点X ＝ 角点X ＋ 向量X × 随机长度 ÷ 画板1.宽度 ＋ 垂直向量X × 随机偏移量 ÷ 100
终点Y ＝ 角点Y ＋ 向量Y × 随机长度 ÷ 画板1.高度 ＋ 垂直向量Y × 随机偏移量 ÷ 100
' 画线
画板1.画笔颜色 ＝ 随机颜色
画板1.画直线 (角点X, 角点Y, 终点X, 终点Y)
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 中心X, 整数型<br /> .局部变量 中心Y, 整数型<br /> .局部变量 角点X, 整数型<br /> .局部变量 角点Y, 整数型<br /> .局部变量 终点X, 整数型<br /> .局部变量 终点Y, 整数型<br /> .局部变量 随机颜色, 整数型<br /> .局部变量 随机长度, 整数型<br /> .局部变量 射线数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 角点数组, 整数型, , "4,2"<br /> .局部变量 向量X, 整数型<br /> .局部变量 向量Y, 整数型<br /> .局部变量 垂直向量X, 整数型<br /> .局部变量 垂直向量Y, 整数型<br /> .局部变量 随机偏移量, 整数型<br /> <br /> ' 计算画板中心点<br /> 中心X ＝ 画板1.宽度 ÷ 2<br /> 中心Y ＝ 画板1.高度 ÷ 2<br /> <br /> ' 清空画板<br /> 画板1.清除 (, , , )<br /> <br /> ' 定义四个角点坐标<br /> 角点数组 [1] [1] ＝ 0  ' 左上角X<br /> 角点数组 [1] [2] ＝ 0  ' 左上角Y<br /> 角点数组 [2] [1] ＝ 画板1.宽度  ' 右上角X<br /> 角点数组 [2] [2] ＝ 0  ' 右上角Y<br /> 角点数组 [3] [1] ＝ 0  ' 左下角X<br /> 角点数组 [3] [2] ＝ 画板1.高度  ' 左下角Y<br /> 角点数组 [4] [1] ＝ 画板1.宽度  ' 右下角X<br /> 角点数组 [4] [2] ＝ 画板1.高度  ' 右下角Y<br /> <br /> ' 为每个角画10-15条射线<br /> .计次循环首 (4, i)<br />     角点X ＝ 角点数组 <i> [1]<br />     角点Y ＝ 角点数组 <i> [2]<br /> <br />     ' 计算从角点到中心的向量<br />     向量X ＝ 中心X － 角点X<br />     向量Y ＝ 中心Y － 角点Y<br /> <br />     ' 计算垂直于原始向量的向量(交换x,y并取反其中一个)<br />     垂直向量X ＝ －向量Y<br />     垂直向量Y ＝ 向量X<br /> <br />     射线数量 ＝ 取随机数 (10, 50)  ' 每个角10-15条射线<br /> <br />     .计次循环首 (射线数量, j)<br />         ' 生成随机颜色<br />         随机颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))<br /> <br />         ' 生成随机长度(50-200之间)<br />         随机长度 ＝ 取随机数 (60, 300)<br /> <br />         ' 生成随机偏移量(-30到30之间)<br />         随机偏移量 ＝ 取随机数 (-60, 60)<br /> <br />         ' 计算终点坐标(原始向量方向 + 垂直方向的随机偏移)<br />         终点X ＝ 角点X ＋ 向量X × 随机长度 ÷ 画板1.宽度 ＋ 垂直向量X × 随机偏移量 ÷ 100<br />         终点Y ＝ 角点Y ＋ 向量Y × 随机长度 ÷ 画板1.高度 ＋ 垂直向量Y × 随机偏移量 ÷ 100<br /> <br />         ' 画线<br />         画板1.画笔颜色 ＝ 随机颜色<br />         画板1.画直线 (角点X, 角点Y, 终点X, 终点Y)<br />     .计次循环尾 ()<br /> .计次循环尾 ()

花间一壶酒

弄一个 计算圆心到指定半径点的坐标  然后四个角分别作为圆心  取一些点  然后画直线呗