Simetrias en el espacio

Activa una a una las casillas de control. ¿Que simetría se muestra en cada caso?

Simetría 1

Simetría 2

Simetría 3

Simetria 4

r = 2.3 (slider from 0 to 4, step 0.1)
a = 5 (slider from -5 to 5, step 0.1)
B: (a, 0, 0)
d = Circle(B, r, xAxis)
A, C = Intersect(xOyPlane, d)
α = 3.4557519189487724 rad (slider from 0 to 6.283185307179586, step 0.1*°)
A' = Rotate(A, α, xAxis)
v = 0 (slider from -5 to 5, step 0.25)
A'' = Rotate(A', 120*°, xAxis)
b = Plane(B, A', A'')
u: (-UnitVector[b])
c, D, E, caraA'A''D, caraA''DE, caraA'A''E, caraA'DE, aristaA''D, aristaA'A'', aristaA'D, aristaA''E, aristaDE, aristaA'E = Tetrahedron(A'', A', Vector[(-UnitVector[b])])
c' = Mirror(c, (0, 0, 0))
e = false
c'_1 = Mirror(c, x + 0z = 0)
f = false
c'_2 = Mirror(c, yAxis)
g = false
c'_3 = Mirror(c, zAxis)
h = false
k = Circle((0, 0, 0), 4, xAxis)
G = Intersect(yAxis, xAxis)