Very nice and interesting - thanks for sharing!
Just a note: With a simple trick one can help the eye. Let corners be the corners of the emblem, then:
order = Last@FindShortestTour[corners];
Show[emblem, Graphics[{Opacity[.1], Red, EdgeForm@Directive[Thickness[.01], Red], Polygon[corners[[order]]]}]]
Outside the polygon there appear only rectangles of type "middle".
