単純に他の形状の親になる
説明
どの Shape も他の Shape の親になることができます。他の形状をグループ化できるのは、このクラスだけではありません。このクラスの唯一の目的は、親の形状に外観またはその他の表示上の特性を適用する必要がない場合に、他の形状を連結することです。
注意事項
このクラスはいかなるオプションも使用しません。
このオブジェクトは、"ShapeGroup"のスタイル ルールを記述することによってスタイル化することが出来ます。
例
次の例では、2 つの四角形が同じ ShapeGroup に連結されています。ShapeGroup の変換はアニメーション化されていますが、四角形はその親が動いているため、動くだけです。
| 例 | |
 | |
{import * from CURL.GUI.SHAPES}
{let parent:ShapeGroup =
{ShapeGroup
translation = {Distance2d 2cm, 2cm},
{RectangleShape
{GRect .5cm, .5cm, .5cm, .5cm},
translation = {Distance2d 2.5cm, 0cm}
},
{RectangleShape
{GRect .25cm, .25cm, .25cm, .25cm},
translation = {Distance2d 1cm, 2cm},
color = FillPattern.gray
}
}
}
{value
let start:DateTime = {DateTime}
let tmr:Timer =
{parent.animate
frequency=30fps, || 30 frames per second
repeat = 0,
{on TimerEvent do
let elapsed:Time = {start.elapsed}
{parent.set-translation-in-parent 2cm + 1cm * {sin elapsed * (30deg / 1s)}, 2cm}
{parent.set-rotation 25deg * {sin elapsed * (90deg / 1s)}}
}
}
let run-button:CommandButton =
{CommandButton label = "Start",
{on Action do
set start = {DateTime}
set tmr.repeat = 500
}
}
let stop-button:CommandButton =
{CommandButton label = "Stop",
{on Action do
set tmr.repeat = 0
}
}
{HBox
spacing = .125cm,
run-button,
stop-button
}
}
{Canvas
border-width = 1px,
width = 6cm,
height = 5cm,
parent
}
|