Animation (slow)

Red class

PolygonalAllPlot[poly, #] & /@ em ;

Blue class

AntiPolygonalAllPlot[poly, #] & /@ em ;


Created by Mathematica  (September 8, 2003)