1 km

C = Point(yAxis)
D = (4, 0)
A = (6, 3)
B = (0, 3)
m1, a, b, c, d = Polygon(C, D, A, B)
piirto1 = PolyLine((3.04, 3.04), (NaN, NaN), (3.04, 3.04), (3.04, 3.12), (3.04, 3.2), (3.02, 3.2600000000000002), (3.02, 3.34), (3.02, 3.42), (3.06, 3.48), (3.08, 3.54), (3.12, 3.6), (3.16, 3.66), (3.22, 3.7), (3.2600000000000002, 3.7600000000000002), (3.3200000000000003, 3.7800000000000002), (3.38, 3.84), (3.44, 3.88), (3.46, 3.94), (3.5, 4), (3.52, 4.0600000000000005), (3.54, 4.12), (3.56, 4.18), (3.56, 4.26), (3.56, 4.34), (3.56, 4.42), (3.52, 4.48), (3.48, 4.54), (3.44, 4.6000000000000005), true)
piirto2 = PolyLine((4.04, -0.06), (NaN, NaN), (4.04, -0.06), (4.0600000000000005, -0.12), (4.1, -0.18), (4.14, -0.24), (4.18, -0.3), (4.22, -0.36), (4.22, -0.44), (4.22, -0.52), (4.22, -0.6), (4.22, -0.68), (4.24, -0.74), (4.24, -0.8200000000000001), (4.26, -0.88), (4.32, -0.92), (4.36, -0.98), (4.42, -1.02), (4.46, -1.08), (4.5200000000000005, -1.1), (4.5600000000000005, -1.16), (4.64, -1.18), (4.7, -1.2), (4.76, -1.24), (4.84, -1.28), (4.9, -1.32), (4.96, -1.36), true)
E = (-3, 3)
F = Point(Circle[E, 1])
f = Segment(E, F)