Polygon 1: (-7, 4), (-8, 5), (-8, 6), (-7, 7), (-5, 7), (-5,5)

Polygon 2: (4, 3), (3, 3), (2, 2), (2, 1), (3, 0), (4, 0), (5, 1), (5, 2)

Polygon 3: (-8, -5), (-8, -8), (-5, -8), (-5, -5)

Polygon 4: (-5, 1), (-3, -3), (-1, -2), (0, 3), (-3, 3)

Line Up

Check

checklist: {{(-7, 4), (-8, 5), (-8, 6), (-7, 7), (-5, 7), (-5, 5)}, {(4, 3), (3, 3), (2, 2), (2, 1), (3, 0), (4, 0), (5, 1), (5, 2)}, {(-8, -5), (-8, -8), (-5, -8), (-5, -5)}, {(-5, 1), (-3, -3), (-1, -2), (0, 3), (-3, 3)}}
P = 1 (slider from 1 to 4, step 1)
H: (8, 8)
G: (7, 8)
F: (6, 8)
E: (5, 8)
D: (4, 8)
C: (3, 8)
B: (2, 8)
A: (1, 8)
list1 = Sequence(Length[Element[checklist, i]], i, 1, 4)
list2: {A, B, C, D, E, F, G, H}
plist = First(list2, Element[list1, P])
poly1 = Polygon(plist)
pn = Length(plist)
a = Length(Intersection[plist, Element[checklist, P]])
text5: "" + a + " out of " + (Element[list1, P]) + ""
show = false