| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 心形数组 | 心形 | 0 |
| 心形 | 心形 | |
时钟1.时钟周期 ＝ 30
新心形.x ＝ x ＋
取随机数 (-10, 10
)新心形.y ＝ y
新心形.移动 ＝ 10
新心形.最大Y ＝ y － 100
返回 (新心形
)|
| _画板1_鼠标位置被移动 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 距离 | 整数型 | | |
| 鼠标 | 坐标_ | | |
| 上次坐标 | 坐标_ | | |
| 当前坐标 | 坐标_ | | |
如果真 (鼠标.x ≠
取鼠标水平位置 () 或 鼠标.y ≠
取鼠标垂直位置 ())
鼠标.x ＝
取鼠标水平位置 ()鼠标.y ＝
取鼠标垂直位置 ()当前坐标.x ＝
取鼠标水平位置 ()当前坐标.y ＝
取鼠标垂直位置 ()距离 ＝
求平方根 (求次方 (当前坐标.x － 上次坐标.x, 2
) ＋
求次方 (当前坐标.y － 上次坐标.y, 2
))
如果真 (距离 ＞ 50
) 上次坐标 ＝ 当前坐标
心形 ＝
创建心形 (横向位置, 纵向位置
)加入成员 (心形数组, 心形
)如果真 (取数组成员数 (心形数组
) ＞ 10
)删除成员 (心形数组, 1, 1
)
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| t | 小数型 | | |
| x_ | 小数型 | | |
| y_ | 小数型 | | |
| x1 | 整数型 | | |
| y1 | 整数型 | | |
判断循环首 (t ＜ 6.28
)t ＝ t ＋ 0.05
x_ ＝ 16 ×
求次方 (求正弦 (t
), 3
)y_ ＝ 13 ×
求余弦 (t
) － 5 ×
求余弦 (2 × t
) － 2 ×
求余弦 (3 × t
) －
求余弦 (4 × t
)x1 ＝ x ＋ x_ × 2
y1 ＝ y － 20 － y_ × 2
画板1.
画点 (x1, y1,
#红色 )
判断循环尾 ()如果真 (取数组成员数 (心形数组
) ＞ 0
)画板1.
清除 (, , ,
)变量循环首 (取数组成员数 (心形数组
), 1, -1, i
)心形数组
[i
].y ＝ 心形数组
[i
].y － 心形数组
[i
].移动
心形数组
[i
].x ＝ 心形数组
[i
].x ＋
取随机数 (-10, 10
)如果 (心形数组
[i
].y ＜ 心形数组
[i
].最大Y
)
删除成员 (心形数组, i,
)
画心形 (心形数组
[i
].x, 心形数组
[i
].y
)
变量循环尾 ()
