•Display support functions

In[41]:=

outline[pts_] := Line[Append[#, #[[1]]] &[pts]] name[pts_] := Table[Text[ToString[i], pts[[i]], {-2, 0}, Background -> RGBColor[1, 1, 1], TextStyle -> {FontWeight -> "Bold"}], {i, Length[pts]}] nodes[pts_] := Point /@ pts mask[pts__] := Polygon[Flatten[Append[#, #[[1]]] & /@ {{{-.1, -.1}, {-.1, .1}, {.1, .1}, {.1, -.1}} + ({#[[1]], #[[2]], #[[4]], #[[3]]} &[Flatten[Outer[List, ##] & @@ ({Min[#], Max[#]} & /@ Thread[points]), 1]]), points}, 1]]

Converted by Mathematica  (March 7, 2003)