ローマ数字
任意の出力式で,整数をローマ数字に変換する.
時計ゲージで行う.
In[1]:=

clock = ClockGauge[{10, 10, 30},
TicksStyle -> ColorData[40, 2], GaugeMarkers -> "FlatProfileNeedle"]
Out[1]=

In[2]:=

clock /. Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[2]=

角度ゲージで実行する.
In[3]:=

AngularGauge[
Quantity[714, "RomanOunces"], {Quantity[0, "RomanOunces"],
Quantity[1000, "RomanOunces"]}, GaugeLabels -> "Unit",
PlotTheme -> "Monochrome"] /.
Text[s_Integer, rest__] :> Text[RomanNumeral[s], rest]
Out[3]=
