随机樱花树-初级程序-极语言教程

//窗体代码:

整数 窗体;
程序资源 24,"清单.xml";
程序段 加载窗体
整数 左=(桌面.宽-800)>>1,上=(桌面.高-619)>>1;
窗体=创建窗口($100,程序.名称,"樱花树",$14CF0064,左,上,800,619,0,0,0,0);
窗体启动;读取消息
结束

 

//程序代码:

整数 粉刷,粉笔,设备,宽度=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)
    }
结束;