VRM Station

ではサンプルコード行きます。

//ダミー変数の用意
Var num
set num 63291 //こいつの"6"を取り出したい

//最高位数字を求める
Var len
log10 len num
cnvint len //len=numの桁数(意図的に切り捨てた)

Var pow10 //10のべき乗を求めます
set pow10 10
Var i
set i 1
:powloop
mul pow10 10
add i 1
if< i len // "if<="ではないことに注目
  jump powloop
endif
// DrawVar pow10 //pow10=10^(len)

Var top
mov top num
div top pow10

DrawVar top //"6"と出力されるはず
DrawVar num //"63291"と出力されるはず

長くなってしまいました。サンプルを作りながら気づいたのですが、VRMスクリプトに指数関数(power operator)系の命令ってないんですね。仕方がないので//10のべき乗を求めますのところでloop仕組んで10を[len-1]回掛け算するように仕向けました。ループまで今回説明しだすと大変なので別の機会に譲ることにします。いつになるかはわかりませんが。

ちなみに、最後に

mod num pow10

とやると、numの最高位数字6を取った3291が出力されます。

そして、一の位に後ろからフラグを足すには、10倍して好きな一桁の数を足せばいいので、

mul num 10
add num ?
DrawVar num

とすればOKです。(ハテナのところに好きな数字を入れといて下さい）