3D数字雨、字母、图片特效屏保软件

.计次循环首 (取数组下标 (PointList, 2), j) ' / 为了效率这里的代码写得乱
.如果真 (PointList [i] [j].w ≠ -1) ' / 判断是否为有效元素
.如果 (j ＝ 取数组下标 (PointList, 2)) ' / 防止越界访问
设置颜色 (ListColorHighLight.r, ListColorHighLight.g, ListColorHighLight.b, (1 － (取启动时间 () － PointList [i] [j].t) × 0.0005) × p)
.否则
.如果 (PointList [i] [j ＋ 1].w ≠ -1) ' / 判断是否为最后一个元素
.如果 (i ％ 10 ＝ 1)
设置颜色 (求正弦 (cnt), 1, 求余弦 (cnt), (1 － (取启动时间 () － PointList [i] [j].t) × 0.0005) × p)
.否则
设置颜色 (ListColor.r, ListColor.g, ListColor.b, 选择 (取启动时间 () － PointList [i] [j].t ＞ 0, 1 － (取启动时间 () － PointList [i] [j].t) × 0.0005, 1) × p)
.如果结束

.否则
设置颜色 (ListColorHighLight.r, ListColorHighLight.g, ListColorHighLight.b, (1 － (取启动时间 () － PointList [i] [j].t) × 0.0005) × p)
.如果结束

.如果结束
TextOut (PointList [i] [j].x, PointList [i] [j].y, PointList [i] [j].z, PointList [i] [j].w)
.如果真结束

.计次循环尾 ()