【グラフ】X軸ラベルが切れてしまう現象について

[thiguchi]

グラフについての質問です。

下記サンプルのスピンコントロールの値を
1158～1160にすると、グラフのX軸のラベル「Name」が切れてしまいます。
1157や1161では切れずに表示されます。


この現象を避けたいのですが、方法がわからず、困っております。
(サンプルが悪いかもしれませんが・・・)

原因と対処法をご教示願います。
よろしくお願いします。

Code:

{import * from CURL.GUI.CHARTS}
{import * from CHARTS-DOC,
    location = "../docstring-support/gui/charts-doc.scurl"
}

{let chart:LayeredChart =
    {LayeredChart
        {BarLayer
            {ChartDataSeries sample-records, "Age"},
            x-axis-data = {ChartDataSeries sample-records, "Name"},
            {DataSeriesColorPair
                {ChartDataSeries sample-records, "Age"},
                FillPattern.silver
            }
        },
        {LineLayer
            {ChartDataSeries sample-records, "Age"},
            legend-enabled? = false
        },
        {ScatterLayer
            {ChartDataSeries sample-records, "Age"},
            {DataSeriesColorPair
                {ChartDataSeries sample-records, "Age"},
                FillPattern.silver
            }
        }
    }
}
{let cb:ChartBox = {ChartBox
                             height = {make-elastic},
                             chart
                         }
}

{let sc:SpinControl = {SpinControl
                          domain =
                              {StandardIntDomain
                                  default-value = 1000,
                                  min-allowable = 0,
                                  max-allowable = 10000
                              },
                          step = 1,
                          {on ValueChanged at sc:SpinControl do
                              set cb.width = sc.value * 0.01cm
                          }
                      }
}
{VBox
    width = 15cm,
    height = 15cm,
    sc,
    cb
}

[heavybugtracker]

内部API演算の精度問題っぽいですね。　ちなみに私のマシンで【8.0ですが】発生しません。もしかしたら、8.0でよくなっている？

[heavybugtracker]

すみません、8.0でも現象は見れました。もう少し見てみます。