自由な点オブジェクトPを作成する。多角形オブジェクトpoly1を作成する。 点Pの可動領域を、poly1の内部（および辺上）に限定するには、点PのOn Update ハンドラに、以下のスクリプトを記述すれば良い。 If[P!=ClosestPointRegion[poly1,P],SetValue[P,Close…