OK

O = Intersect(xAxis, yAxis)
P = (1.452749458039913, 3.9224605494370226)
f = Line(O, P)
h: y = 0
R = Point(h)
g = Line(P, R)
Q = Point(g)
S = Point(g)
i = Line(O, Q)
j = Line(O, S)
B = Point(i)
k = Line(B, h)
l = Line(B, f)
U = Intersect(f, k)
V = Intersect(h, l)
A = Mirror(O, U)
C = Mirror(O, V)
m = Line(A, B)
D = Mirror(B, C)
kr = AffineRatio(R, Q, P)
ks = AffineRatio(S, Q, P)
bir: kr / ks
S_0 = Dilate(P, 1 / (1 - (3 * kr / 4)), Q)
texte1: "(P,Q,R,S) = (A,B,C,D) = " + bir + ""