aardio - godking.paint 绘制冻成B样的文本

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=879;bottom=311)
winform.add(
plus={cls="plus";left=8;top=8;right=872;bottom=304;bgcolor=12639424;edge=1;z=1}
)
/*}}*/

winform.show();

import godking.paint
var p = godking.paint.fromPlus(winform.plus,false/*自动刷新*/,false/*重绘背景*/);
p.textAntiAlias = true;
var rect = ::RECT(50,100,1000,400);
var text = "看我冻都成啥B样了，你还不点个赞！";
var font = ::LOGFONT(name="黑体";h=40;color=0xFFFF0000;brush=null,bold=0);

var drawtext = function(angle){
    p.clear(/*颜色*/);
    var path = p.path(1/*0:交叉填充 1:全填充*/);
    path.addText(rect.left /*x1*/,rect.top/*y1*/,rect.right/*x2*/,rect.bottom/*y2*/,text,font,0/*格式*/,0/*水平*/,0/*垂直*/);
    var ps = path.getPoints();
    for(i=1;#ps;1){
        ps[i].y *= math.random(99,102)/100;
    }
    path.setPoints(ps);
    p.fillPath(path /*路径*/,0xFFFF0000/*填充颜色或brush对象*/);
    path.delete();
    p.plus.update( /*刷新区域RECT*/);
}

var angle,inc = -60,1 ;
winform.setInterval( 
    function(){
        angle += inc;
        if math.abs(angle)==60 inc*=-1;
        drawtext(angle);
    },10
)

win.loopMessage();