afficher/cacher le plan

Déplacer les points verts de
manière à ce que la section soit :
0) un hexagone
1) un hexagone régulier
2) un pentagone
3) un carré
4) un rectangle (non carré)
5) un triangle équilatéral
6) un triangle isocèle (non équilatéral)
7) un triangle rectangle (non isocèle)
8) un triangle quelconque
9) un trapèze isocèle
10) un parallélogramme (non rectangle 
      et non losange)
11) un losange (non carré)
12) un quadrilatère quelconque
13) un heptagone
14) un pentagone régulier

Certaines sections sont impossibles
à réaliser. Il faudra expliquer pourquoi.

A = (-2, -2)
B = (2, -2)
C = Point(Circle[B, Distance[A, B], Segment[A, B]])
a, D, E, F, G, H, faceABCD, faceADHE, faceABFE, faceBCGF, faceCDHG, faceEFGH, arêteAD, arêteAB, arêteBC, arêteCD, arêteAE, arêteDH, arêteEH, arêteEF, arêteBF, arêteFG, arêteCG, arêteGH = Cube(A, B, C)
I = Point(a)
J = Point(a)
K = Point(a)
b = Plane(K, I, J)
c = false
poly1, poly2, L, M, N, O, P, Q, d, e, f, g, h, i = IntersectPath(b, a)
R = Midpoint(arêteFG)
S = Midpoint(arêteCG)
T = Midpoint(arêteCD)
U = Midpoint(arêteAD)
V = Midpoint(arêteAE)
W = Midpoint(arêteEH)
Z = Midpoint(arêteGH)
A_1 = Midpoint(arêteEF)
B_1 = Midpoint(arêteAB)
C_1 = Midpoint(arêteBF)
D_1 = Midpoint(arêteBC)
E_1 = Midpoint(arêteDH)