（覚書）3つの線分のリストから三角形を返す

前提オブジェクト

任意の3つの線分からなるリストsegmentList

目的のオブジェクト

If[Length[Unique[Flatten[Zip[{Point[α, 0], Point[α, 1]}, α, segmentList]]]] ≟ 3 ∧ (Min[Unique[segmentList]] ≠ 0) ∧ Length[Unique[segmentList]] ≟ 3 ∧ (Area[Polygon[Unique[Flatten[Zip[{Point[α, 0], Point[α, 1]}, α, segmentList]]]]] ≠ 0), Polygon[Unique[Flatten[Zip[{Point[α, 0], Point[α, 1]}, α, segmentList]]]], ?]

動作イメージ