k - vzor

k' - obraz

S - střed stejnolehlosti
λ - koeficient  stejnolehlosti

Pomocí posuvníku měňte hodnotu λ

S = (10.7346, 0.6318)
λ = -1.2 (slider from -2 to 2, step 0.1)
A = (11.8828, -0.7216)
B = (15.3228, -0.7016)
mnohoúhelník1, d, a, c, C = Polygon(A, B, 3)
B' = Dilate(B, λ, S)
mnohoúhelník1' = Dilate(mnohoúhelník1, λ, S)
A' = PointIn(mnohoúhelník1')
C' = Dilate(C, λ, S)