// X et Y sont les points du repère
M1=MidPoint("M1",X,Y);
R1=Ray("R1",O,M1);
A=PointOn("A",R1,1.1839348860109955);
B=Point("B","[-A[0],A[1],0]","1");
C=Point("C","[-A[0],-A[1],0]","1");
E=Point("E","[A[0],A[1],2*A[0]]","1");
F=Point("F","[-A[0],A[1],2*A[0]]","1");
H=Point("H","[A[0],-A[1],2*A[0]]","1");
G=Point("G","[-A[0],-A[1],2*A[0]]","1");
D=Point("D","[A[0],-A[1],0]","1");