极语言5-15 随机樱花树、填充

整数 粉刷,粉笔,设备,宽度=800,高度=600
小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)
为 窗口关闭{停止(0)}
为 窗口重绘 重绘图像
为 窗口缩放{宽度=数据 & $FFFF;高度= 数据>>16}
否则{处理窗口(窗口,消息,参数,数据)}
结束;绘制区类 绘区;
小程序 窗体启动
粉刷=创建画刷($9966FF)
粉笔=创建画笔(0,1,$FF00FF)
重绘图像
桌面.左=窗体
读取消息
结束;小数 比例=0.65,起始角=-1.570796325,度数=0.523598775
小程序 重绘图像
小数 长度=比例 高度 0.5
设备=开始绘图(窗体,绘区)选择对象(设备,粉刷)
绘制(宽度/2,高度,长度,起始角,10,1)
结束绘制(窗体,绘区)延时(1000)重绘矩形(窗体,0,1)
结束;坐标类 坐标;
小程序 绘制(整数 起点X,整数 起点Y,小数 半径,小数 角度,整数 线宽,整数 代数)

小数 长度,随机;整数 黑色=随机数,终点X,终点Y,子代=代数+1;
随机=黑色/65536+0.8;如果(代数=1)线宽=10;
长度=(角度)余 * 半径*随机;终点X=长度+起点X
长度=(角度)正 * 半径*随机;终点Y=长度+起点Y
黑色=创建画笔(0,线宽,代数*20)线宽--;选择对象(设备,黑色)
移到(设备,起点X,起点Y,坐标)画线(设备,终点X,终点Y)
长度=半径*比例;随机*度数;
如果(子代<=9)
{
    绘制(终点X,终点Y,长度,角度+随机,线宽,子代)
    绘制(终点X,终点Y,长度,角度-随机,线宽,子代)
}否则{
选择对象(设备,粉笔)
画椭圆(设备,终点X-5,终点Y-5,终点X+5,终点Y+5)
}

结束;
//1 end

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{如果(参数=3)填充字符}
否则{处理窗口(窗口,消息,参数,数据)}
结束;
整数 汉字,时间
小程序 窗体启动
汉字=虚拟内存(0,1000000000,$1000,4);
读取消息
结束
小程序 填充字符
时间=开机毫秒
清零(汉字,1000000000,0#中文)
时间=开机毫秒-时间
汉字(4096)=0
改窗口字(编辑,汉字)
改控件数(窗体,1,时间,0)
结束;