丸文字縁取り描画テスト | Codetter（こーどったー）

	; 背景描画
	redraw 0
	repeat 1000
		color rnd(128)+128, rnd(128)+128, rnd(128)+128
		px = rnd(ginfo_winx)
		py = rnd(ginfo_winy)
		r  = rnd(100)
		circle px - r, py - r, px + r, py + r, 1
	loop
	; 縁取り文字描画開始
	font "メイリオ", 64, 1
	s = "hoge fug a\n123 4\nああ あ  亜尹鵜"
	; 外身を描画
	color
	n =10 ; 縁取り幅
	rr=90 ; 円周の描画密度(度)
	repeat rr*n
		nn= cnt \ n
		rad= 3.14 * (cnt * (360/rr) / n) / 180
		px = int(100.0+sin(rad)*nn+0.5)
		py = int(100.0+cos(rad)*nn+0.5)
		pos px, py
		mes s
	loop
	; 中身を描画
	color 255,255,255
	pos 100, 100
	mes s
	; 再描画
	redraw