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

光庆 10天前 270

请升级最新版 godking.paint 库v5.0,再运行下面代码:


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();


最新回复 (1)
  • zhhyit 9天前
    0 2
    咦😾,这个好酷cool
返回