円グラフで凡例を円の内側に表示したい

【ご質問】
PieChart・PieSetを使用しているのですが、凡例を見やすくするために
大きくしたところグラフ自体のサイズが小さくなってしまいました。
グラフ自体のサイズを小さくすることなく凡例を大きくするために
凡例を円グラフの内側に表示したいと考えていますが可能でしょうか。

【回答】
今回の要望を満たす一つの例として下記サンプルコードを参考にして下さい。

下記サンプルではPieChart 起動後、レイアウト処理の完了時に発生する
ChartLayoutChangedイベント時に
{PieChart.create-legend}を使用して凡例Graphicを作成して
PieSet内部に配置しています。

{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{import * from CURL.GUI.CHARTS}

{let records:RecordSet =
    {RecordSet
        {RecordFields
            {RecordField “Region”, domain = String},
            {RecordField “M1”, caption = “January”, domain = int}
        },
        {RecordData Region = “North”, M1 = 100},
        {RecordData Region = “East”, M1 = 110},
        {RecordData Region = “South”, M1 = 140},
        {RecordData Region = “West”, M1 = 160}
    }
}

{let chart:PieChart =
    {PieChart
        width = 10cm,
        height = 10cm,
        pie-label-radius = 0.5,
        legend-enabled? = false,
        inner-radius = 2cm,
        {PieSet
            legend-enabled? = true,
            wedge-labels? = false,
            {ChartDataSeries records, “M1”},
            label-data = {ChartDataSeries records, “Region”},
            {on ChartLayoutChanged at pie-set:PieSet do
                let gl:Graphic = {chart.create-legend}
                let vb:HBox = {HBox
                                        background = “white”,
                                        vorigin = “center”,
                                        valign = “center”,
                                        {VBox
                                            horigin = “center”,
                                            gl
                                        }
                                    }
                {pie-set.add
                    vb
                }
            }
        }
    }
}

{VBox
    {RecordGrid
        height = 4cm,
        width = 10cm,
        record-source = records
    },
    {VBox
        border-color　= “black”,
        border-width　= 3pt,
        chart
    }
}