pts = CirclePoints[4];
col = ColorData["Pastel"][0.8];
Table[
 Graphics[
  {
   {FaceForm[col],
    EdgeForm@Directive[col, Thickness[0.15], JoinForm["Round"]],
    Polygon[pts[[set]]]},
   {Black, PointSize[0.07], Point[pts]}
   }, Frame -> True, PlotRangePadding -> Scaled[.1], FrameTicks -> None
  ],
 {set, Subsets[Range[4], {1, 3}]}
 ]