极语言5-18 樱花树、中文测试

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

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

结束;
//1 end

小程序 窗体消息(整数 窗口,整数 消息,整数 参数,整数 数据)
判断(消息)为 窗口关闭{停止(0)}
为 单击左键{如果(参数=1)生成;如果(参数=2)搜索}
否则{处理窗口(窗口,消息,参数,数据)}
结束;整数 内容
小程序 窗体启动
内容=申请内存(1000000000)
桌面.左=窗体
读取消息
结束
小程序 生成
整数 时间=开机毫秒
清零(内容,1000000000,0#中文)
改控件数(窗体,3,开机毫秒- 时间,0)
内容(15000)=0
//截断文字,让搜索类函数失效
改窗口字(文档,内容)
内容(999999900)&=0#汉字
//把十亿字的最后100处改成汉字
结束
小程序 搜索
整数 数据,时间=开机毫秒
数据=检索(内容&,0#汉字,250000000)&
改控件数(窗体,3,开机毫秒- 时间,0)
//从头搜索10亿字节,找到最后面的汉字
改窗口字(文档,数据-4)
结束