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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
    ; 背景描画
    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
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX