T140

A = (2, 3)
B = (2, 1)
C = (8, 1)
D = (8, 3)
m1, a, b, c, d = Polygon(A, B, C, D)
E = Point(d)
F = Point(b)
f = Segment(E, F)
G = Point(d)
H = Point(b)
g = Segment(G, H)
h = Segment(B, G)
i = Segment(B, D)
piirto1: PolyLine[(4.2485E0,2.8892E0), (4.2485E0,2.8401E0), (4.2485E0,2.7664E0), (4.2485E0,2.6927E0), (4.2362E0,2.6190E0), (4.2300E0,2.5023E0), (4.2085E0,2.4317E0), (4.2055E0,2.5146E0), (4.2669E0,2.5637E0), (4.3344E0,2.5699E0), (4.3897E0,2.5515E0), (4.4081E0,2.4839E0), (4.3897E0,2.4164E0), (4.3037E0,2.3918E0), (4.2362E0,2.3857E0), (�,�), (5.2678E0,1.8822E0), (5.2309E0,1.8944E0), (5.1204E0,1.8944E0), (5.0160E0,1.8822E0), (4.9853E0,1.8330E0), (5.0037E0,1.7716E0), (5.0590E0,1.7471E0), (5.1081E0,1.7471E0), (5.1757E0,1.7655E0), (5.2432E0,1.8453E0), (5.2923E0,1.7839E0), (5.3046E0,1.7471E0), (�,�), true]
piirto2: PolyLine[(3.6099E0,1.5383E0), (3.6467E0,1.5015E0), (3.6835E0,1.4523E0), (3.7204E0,1.3909E0), (3.7327E0,1.3418E0), (3.7572E0,1.2804E0), (3.7572E0,1.2067E0), (3.7511E0,1.1146E0), (3.7204E0,1.0593E0), (3.7081E0,1.0225E0), (�,�), (4.2362E0,1.3541E0), (4.1809E0,1.3111E0), (4.0888E0,1.2743E0), (4.0151E0,1.2681E0), (3.9476E0,1.2743E0), (3.9107E0,1.3357E0), (3.9230E0,1.4093E0), (4.0090E0,1.4093E0), (4.0642E0,1.3909E0), (4.1134E0,1.3418E0), (4.1625E0,1.2927E0), (4.1993E0,1.2681E0), (�,�), (2.8607E0,1.4278E0), (2.9099E0,1.4278E0), (2.9774E0,1.3909E0), (3.0449E0,1.3479E0), (3.1002E0,1.2743E0), (3.1064E0,1.1822E0), (3.1002E0,1.0901E0), (3.0695E0,1.0348E0), (�,�), (3.2783E0,1.4032E0), (3.2783E0,1.3541E0), (3.2783E0,1.3050E0), (3.2783E0,1.2558E0), (3.2537E0,1.2067E0), (3.2169E0,1.0962E0), (3.2046E0,1.0225E0), (3.2046E0,9.7338E-1), (�,�), (3.2783E0,1.4155E0), (3.3213E0,1.4646E0), (3.4072E0,1.4708E0), (3.4072E0,1.4032E0), (3.3335E0,1.3725E0), (3.3704E0,1.3479E0), (3.4195E0,1.2865E0), (3.3888E0,1.2558E0), (3.3397E0,1.2558E0), (�,�), true]
I = Intersect(a, d)
J = (2, 7)
K = (4, 7)
L = (4, 3)
m2, i_1, j, k, l = Polygon(I, J, K, L)
M = Point(i_1)
N = Point(k)
m = Segment(M, N)
n = Segment(B, K)
p = Segment(G, K)
piirto3: PolyLine[(3.2725E0,4.1108E0), (3.1826E0,4.1027E0), (3.1091E0,4.0209E0), (3.0927E0,3.9310E0), (3.1173E0,3.8493E0), (3.2317E0,3.8493E0), (3.3134E0,3.9392E0), (3.3502E0,4.0332E0), (3.4360E0,3.9801E0), (3.4687E0,3.9310E0), (�,�), (5.1850E0,5.6146E0), (5.1850E0,5.5329E0), (5.1931E0,5.4430E0), (5.2013E0,5.3368E0), (5.2095E0,5.2469E0), (5.2177E0,5.0262E0), (5.2544E0,5.1365E0), (5.3729E0,5.1406E0), (5.4383E0,5.0507E0), (5.4547E0,4.9526E0), (5.3566E0,4.9036E0), (5.2667E0,4.8954E0), (�,�), true]
piirto4: PolyLine[(5.6426E0,2.8686E0), (5.6018E0,2.9421E0), (5.5364E0,3.0320E0), (5.4792E0,3.1219E0), (5.5364E0,3.1873E0), (5.6345E0,3.2363E0), (5.7080E0,3.2609E0), (5.7734E0,3.2609E0), (5.8225E0,3.2936E0), (�,�), true]
piirto5: PolyLine[(6.4436E0,3.9474E0), (6.3537E0,3.9392E0), (6.2556E0,3.8656E0), (6.1984E0,3.8003E0), (6.1821E0,3.7185E0), (6.1821E0,3.6041E0), (6.1902E0,3.4815E0), (6.2311E0,3.4080E0), (6.2965E0,3.3426E0), (6.3455E0,3.3262E0), (�,�), (6.5417E0,3.8493E0), (6.5989E0,3.9065E0), (6.6888E0,3.9147E0), (6.7542E0,3.9147E0), (6.7542E0,3.8493E0), (6.7378E0,3.7594E0), (6.6642E0,3.6286E0), (6.5907E0,3.5142E0), (6.6152E0,3.4243E0), (6.6888E0,3.3916E0), (�,�), (6.5580E0,3.2445E0), (6.5580E0,3.2445E0), (�,�), (6.8195E0,4.0128E0), (6.9094E0,3.9556E0), (6.9830E0,3.8411E0), (7.0157E0,3.7676E0), (7.0647E0,3.6532E0), (7.0974E0,3.5714E0), (7.0974E0,3.5060E0), (7.0892E0,3.3998E0), (7.0402E0,3.3017E0), (6.9666E0,3.2282E0), (6.9176E0,3.2118E0), (�,�), true]
piirto6: PolyLine[(2.5283E0,2.6137E0), (2.4891E0,2.6355E0), (2.4369E0,2.6616E0), (2.3846E0,2.6834E0), (2.3454E0,2.7008E0), (2.2975E0,2.7052E0), (2.2321E0,2.7095E0), (2.1668E0,2.7139E0), (2.1276E0,2.7269E0), (2.0492E0,2.7269E0), (1.9882E0,2.7269E0), (�,�), (2.4064E0,3.0929E0), (2.3715E0,3.0384E0), (2.3192E0,2.9970E0), (2.2757E0,2.9883E0), (2.2147E0,2.9709E0), (2.1798E0,2.9535E0), (2.1450E0,2.9535E0), (2.0971E0,2.9709E0), (2.0666E0,3.0232E0), (2.0579E0,3.0580E0), (2.0666E0,3.1059E0), (2.1101E0,3.1190E0), (2.1581E0,3.1147E0), (2.2103E0,3.0798E0), (2.2626E0,3.0449E0), (2.3105E0,3.0057E0), (2.3541E0,2.9796E0), (2.3802E0,2.9535E0), (�,�), true]
piirto7: PolyLine[(2.0056E0,1.4723E0), (2.0404E0,1.4723E0), (2.3889E0,1.4723E0), (2.4717E0,1.4767E0), (2.5371E0,1.4810E0), (2.6024E0,1.4723E0), (2.6285E0,1.4157E0), (2.6329E0,1.1587E0), (2.6285E0,1.0759E0), (2.6155E0,1.0367E0), (2.6155E0,1.0019E0), (�,�), true]
piirto8: PolyLine[(3.0351E0,1.5696E0), (3.0102E0,1.6070E0), (2.9791E0,1.6754E0), (2.9480E0,1.7501E0), (2.8858E0,1.8247E0), (2.8360E0,1.8808E0), (2.7489E0,1.9430E0), (2.6867E0,1.9803E0), (2.6244E0,2.0052E0), (2.5560E0,2.0301E0), (2.5000E0,2.0550E0), (2.4502E0,2.0550E0), (2.4129E0,2.0674E0), (�,�), (2.9480E0,2.4034E0), (2.9169E0,2.3474E0), (2.8827E0,2.2697E0), (2.9604E0,2.2541E0), (3.0289E0,2.2603E0), (3.1067E0,2.2883E0), (3.0973E0,2.2292E0), (3.0600E0,2.1794E0), (3.0289E0,2.1110E0), (3.0102E0,2.0550E0), (�,�), (3.2840E0,2.3412E0), (3.2653E0,2.2603E0), (3.3027E0,2.1981E0), (3.3089E0,2.1296E0), (3.2902E0,2.0736E0), (3.2342E0,2.0425E0), (3.1845E0,2.0425E0), (3.1347E0,2.0425E0), (�,�), (3.2965E0,2.3288E0), (3.3338E0,2.3412E0), (3.3836E0,2.3412E0), (�,�), (3.5578E0,2.3785E0), (3.5080E0,2.3661E0), (3.5080E0,2.3039E0), (3.5454E0,2.2790E0), (3.5827E0,2.2665E0), (3.6325E0,2.2665E0), (3.6449E0,2.3039E0), (3.6449E0,2.3537E0), (�,�), true]