[初心者用] 文字色を変更しながら表示するサンプル | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
;
;ちらちらなしで文字を表示させるサンプル
;
    screen 0,500,300,,(ginfo_dispx-500)/2,(ginfo_dispy-300)/2
    repeat              ;repeat-loop で無限ループを作成
    redraw 0            ;画面の更新をいったん停止
    font"tahoma",30,17      ;書式を定義
    pos -1000,-1000:mes"TEXT"   ;文字サイズを取得するために見えないところに文字を表示
    size_x=ginfo_mesx
    size_y=ginfo_mesy
    hsvcolor cnt*2,255,255      ;文字色を定義
    pos (500-size_x)/2,(300-size_y)/2:mes"TEXT"
    redraw 1            ;描画開始
    wait 5              ;少し待つ※これがないと応答なしになります
    loop                ;repeatのところに戻る
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX