A = (6, 0)
B = (8, 3)
C = (6, 6)
D = (4, 3)
m1, a, b, c, d = Polygon(A, B, C, D)
f = Segment(C, A)
g = Segment(B, D)
piirto1: PolyLine[(7.2754E0,5.1763E0), (7.3296E0,5.1898E0), (7.4110E0,5.1898E0), (7.4653E0,5.2034E0), (7.5534E0,5.2237E0), (7.6416E0,5.2305E0), (7.6958E0,5.2441E0), (7.7772E0,5.2441E0), (7.8518E0,5.2237E0), (7.8179E0,5.1288E0), (7.7772E0,5.0474E0), (7.7230E0,4.9186E0), (7.6416E0,4.8101E0), (7.5873E0,4.7016E0), (7.5331E0,4.5388E0), (7.4856E0,4.4032E0), (7.4788E0,4.3218E0), (�,�), (7.4381E0,4.7422E0), (7.5195E0,4.7422E0), (7.6552E0,4.7422E0), (7.7637E0,4.7422E0), (�,�), (8.1706E0,4.6066E0), (8.0824E0,4.5998E0), (8.0010E0,4.5456E0), (7.9603E0,4.4642E0), (7.9603E0,4.3693E0), (8.0078E0,4.3082E0), (8.0824E0,4.3353E0), (8.1570E0,4.3896E0), (8.2452E0,4.4303E0), (8.3062E0,4.4710E0), (8.3605E0,4.4710E0), (8.3876E0,4.4167E0), (8.3876E0,4.3489E0), (8.4283E0,4.4506E0), (8.5266E0,4.4913E0), (8.5503E0,4.4167E0), (8.5503E0,4.3625E0), (8.5775E0,4.4167E0), (8.6385E0,4.4913E0), (8.7199E0,4.5456E0), (8.7945E0,4.5185E0), (8.8352E0,4.4439E0), (8.8487E0,4.4032E0), (�,�), true]
piirto2: PolyLine[(1.0069E1,4.4167E0), (1.0124E1,4.4574E0), (1.0164E1,4.5252E0), (1.0232E1,4.6066E0), (1.0286E1,4.7016E0), (1.0395E1,4.8372E0), (1.0449E1,4.9321E0), (1.0520E1,4.9966E0), (1.0544E1,4.9050E0), (1.0558E1,4.8236E0), (1.0558E1,4.5795E0), (1.0558E1,4.4574E0), (1.0571E1,4.4167E0), (�,�), (1.0341E1,4.6473E0), (1.0409E1,4.6473E0), (1.0490E1,4.6473E0), (1.0571E1,4.6473E0), (�,�), (1.1141E1,4.9050E0), (1.1073E1,4.9050E0), (1.1019E1,4.9050E0), (1.0931E1,4.8847E0), (1.0822E1,4.8236E0), (1.0775E1,4.7694E0), (1.0707E1,4.7219E0), (1.0666E1,4.6609E0), (1.0666E1,4.5930E0), (1.0673E1,4.5117E0), (1.0734E1,4.4506E0), (1.0815E1,4.4032E0), (1.0870E1,4.3896E0), (1.0937E1,4.3896E0), (1.1005E1,4.3896E0), (1.1060E1,4.4167E0), (�,�), true]
piirto3: PolyLine[(9.8660E0,4.2268E0), (9.9202E0,4.2268E0), (1.0503E1,4.2268E0), (1.1087E1,4.2268E0), (1.1466E1,4.2268E0), (1.1575E1,4.2268E0), (�,�), (1.0191E1,4.0098E0), (1.0191E1,3.9556E0), (1.0171E1,3.8674E0), (1.0151E1,3.8064E0), (1.0137E1,3.7250E0), (1.0103E1,3.6504E0), (1.0097E1,3.4809E0), (1.0097E1,3.3588E0), (�,�), (1.0164E1,4.0234E0), (1.0205E1,4.0370E0), (1.0280E1,4.0437E0), (1.0422E1,4.0505E0), (1.0537E1,4.0437E0), (1.0551E1,3.9488E0), (1.0490E1,3.8878E0), (1.0422E1,3.8471E0), (1.0341E1,3.8199E0), (1.0273E1,3.7928E0), (1.0185E1,3.7725E0), (1.0239E1,3.7521E0), (1.0361E1,3.7047E0), (1.0463E1,3.6572E0), (1.0531E1,3.6097E0), (1.0537E1,3.5148E0), (1.0470E1,3.4673E0), (1.0388E1,3.4334E0), (1.0314E1,3.3995E0), (1.0246E1,3.3859E0), (1.0124E1,3.3859E0), (1.0015E1,3.3859E0), (9.9745E0,3.3995E0), (�,�), (1.0856E1,3.9013E0), (1.0856E1,3.8471E0), (1.0843E1,3.7793E0), (1.0829E1,3.7114E0), (1.0829E1,3.6436E0), (1.0815E1,3.5758E0), (1.0802E1,3.4944E0), (1.0788E1,3.4266E0), (1.0788E1,3.3724E0), (1.0775E1,3.3317E0), (�,�), (1.0883E1,3.9420E0), (1.0937E1,3.9691E0), (1.1005E1,3.9691E0), (1.1060E1,3.9691E0), (1.1141E1,3.9556E0), (1.1216E1,3.9081E0), (1.1277E1,3.8606E0), (1.1304E1,3.7928E0), (1.1344E1,3.7047E0), (1.1378E1,3.6233E0), (1.1385E1,3.5487E0), (1.1385E1,3.4944E0), (1.1331E1,3.3961E0), (1.1236E1,3.3588E0), (1.0924E1,3.3588E0), (1.0815E1,3.3588E0), (1.0775E1,3.3724E0), (�,�), (1.1900E1,4.3625E0), (1.1955E1,4.3625E0), (1.2023E1,4.3625E0), (1.2077E1,4.3489E0), (1.2131E1,4.3489E0), (�,�), (1.1833E1,4.1319E0), (1.1914E1,4.1319E0), (1.2009E1,4.1319E0), (1.2104E1,4.1319E0), (�,�), (1.2619E1,4.8643E0), (1.2660E1,4.9050E0), (1.2755E1,4.9050E0), (1.2836E1,4.9050E0), (1.2911E1,4.8847E0), (1.2945E1,4.8101E0), (1.2945E1,4.7151E0), (1.2918E1,4.6609E0), (1.2823E1,4.5829E0), (1.2714E1,4.5117E0), (1.2633E1,4.4574E0), (1.2558E1,4.3896E0), (1.2579E1,4.3353E0), (1.2714E1,4.3218E0), (1.2836E1,4.2947E0), (1.2931E1,4.2675E0), (1.3040E1,4.2675E0), (1.3216E1,4.2404E0), (1.3345E1,4.2065E0), (1.3420E1,4.1997E0), (1.3487E1,4.1862E0), (�,�), (1.2484E1,4.1319E0), (1.2565E1,4.1319E0), (1.3189E1,4.1319E0), (1.3487E1,4.1319E0), (1.3637E1,4.1319E0), (�,�), (1.2836E1,3.8471E0), (1.2891E1,3.8878E0), (1.2958E1,3.9013E0), (1.3026E1,3.9284E0), (1.3094E1,3.9556E0), (1.3175E1,3.9352E0), (1.3175E1,3.8471E0), (1.3148E1,3.7793E0), (1.3121E1,3.7114E0), (1.3108E1,3.6436E0), (1.3080E1,3.5690E0), (1.3067E1,3.4944E0), (1.3067E1,3.4402E0), (�,�), true]
piirto4: PolyLine[(5.9733E0,3.0061E0), (5.9869E0,3.0740E0), (6.0411E0,3.1689E0), (6.0954E0,3.2367E0), (6.1361E0,3.2638E0), (�,�), (6.2853E0,3.6979E0), (6.2853E0,3.6436E0), (6.2853E0,3.4266E0), (6.2853E0,3.3181E0), (6.3124E0,3.2774E0), (6.4480E0,3.2774E0), (6.5565E0,3.2774E0), (6.5430E0,3.3317E0), (�,�), (6.3260E0,3.5351E0), (6.3666E0,3.5487E0), (6.4480E0,3.5487E0), (6.5023E0,3.5487E0), (�,�), (6.2988E0,3.7521E0), (6.3802E0,3.7521E0), (6.5158E0,3.7521E0), (6.6243E0,3.7521E0), (�,�), true]