Kleidoscope Using GeoGebra
Author: Lingguo Bu

Before

After

Kaleidoscope 

 A=(0,0) dans la ligne 'Saisie' renvoi le point au centre.
Ctrl-F pour effacer la trace.

Déplacer le point A comme bon vous semble.
(Il n'est pas interdit d'imprimer vos plus beaux résultats)

A = (0.006060447652032845, -7.003406720455173E-4)
A' = Mirror(A, xAxis)
A'' = Mirror(A', yAxis)
A''' = Mirror(A'', xAxis)
a, b = AngularBisector(yAxis, xAxis)
B = Mirror(A''', a)
C = Mirror(A''', b)
A'_2 = Mirror(A, b)
D = Intersect(b, a)
A'_3 = Rotate(A, 45*°, D)
E = Rotate(A'_3, 45*°, D)
E' = Rotate(E, 45*°, D)
E'' = Rotate(E', 45*°, D)
E''' = Rotate(E'', 45*°, D)
F = Rotate(E''', 45*°, D)
F' = Rotate(F, 45*°, D)
E''_1 = Rotate(E', 45*°, D)
G = Mirror(A'_3, yAxis)
F'' = Mirror(F', xAxis)
H = Mirror(A'_3, xAxis)
F''_1 = Mirror(F', yAxis)
F'_1 = Mirror(F, yAxis)
C' = Mirror(C, yAxis)