粒子时钟GDIPlus类应用例程

易语言 2020-09-29 22:11:47

粒子时钟GDIPlus类应用例程

画刷.置颜色 (RGB到ARGB (散粒子组 [计次].颜色值))
内存场景.填充椭圆 (画刷, 散粒子组 [计次].X, 散粒子组 [计次].Y, 粒子半径, 粒子半径)
.如果真 (散粒子组 [计次].X < 0 - 粒子半径 或 散粒子组 [计次].X > 画板1.宽度)
删除成员 (散粒子组, 计次, 1)