Pf_parallelkontur P0
  0.680829847276789,10.4681888081308 Schneidspalt 0.01 ( P0
  0.680829847276789,10.4681888081308 + ( P0
  0.680829847276789,10.4681888081308 - P0b
  0.680829847276789,8.4681888081308 ) ) 0.680829847276789,12.4681888081308
  1
TRAP_ERROR
INQ_SELECTED_ELEM SELECT Anfangspunkt 0.680829847276789,10.4681888081308
  CONFIRM
LET L_anfang ( INQ 101 ) -0.7170066393454,10.4681888081308
LET L_ende ( INQ 102 ) 1.8829933606546,10.4681888081308
INQ_SELECTED_ELEM SELECT LINES ALL ADD ARCS ALL ADD FILLETS ALL SUBTRACT
  Anfangspunkt 0.680829847276789,10.4681888081308 CONFIRM
LET Anz_ele ( INQ 14 ) 15
IF ( Anz_ele 15 < 1 ) 0
LET El_zaehl 1
WHILE ( El_zaehl 1 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) -0.9170066393454,8.6681888081308
LET Endpunkt ( INQ 102 ) -0.9170066393454,10.2681888081308
LET Letztes_element ( ( Startpunkt -0.9170066393454,8.6681888081308 +
  Endpunkt -0.9170066393454,10.2681888081308 ) / 2 )
  -0.9170066393454,9.4681888081308
END_IF
LET El_zaehl ( El_zaehl 1 + 1 ) 2
TRAP_ERROR
IF ( ( Startpunkt -0.9170066393454,8.6681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  -0.9170066393454,10.2681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.9170066393454,10.2681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  -0.9170066393454,8.6681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  -0.9170066393454,8.6681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  -0.9170066393454,10.2681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.9170066393454,10.2681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  -0.9170066393454,10.2681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 2 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 1.8829933606546,8.4681888081308
LET Endpunkt ( INQ 102 ) -0.7170066393454,8.4681888081308
LET Letztes_element ( ( Startpunkt 1.8829933606546,8.4681888081308 +
  Endpunkt -0.7170066393454,8.4681888081308 ) / 2 )
  0.5829933606546,8.4681888081308
END_IF
LET El_zaehl ( El_zaehl 2 + 1 ) 3
TRAP_ERROR
IF ( ( Startpunkt 1.8829933606546,8.4681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  -0.7170066393454,8.4681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.7170066393454,8.4681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  1.8829933606546,8.4681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  1.8829933606546,8.4681888081308 = L_ende 1.8829933606546,10.4681888081308
  ) AND ( Endpunkt -0.7170066393454,8.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.7170066393454,8.4681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  -0.7170066393454,8.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 3 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 2.0829933606546,10.2681888081308
LET Endpunkt ( INQ 102 ) 2.0829933606546,8.6681888081308
LET Letztes_element ( ( Startpunkt 2.0829933606546,10.2681888081308 +
  Endpunkt 2.0829933606546,8.6681888081308 ) / 2 )
  2.0829933606546,9.4681888081308
END_IF
LET El_zaehl ( El_zaehl 3 + 1 ) 4
TRAP_ERROR
IF ( ( Startpunkt 2.0829933606546,10.2681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  2.0829933606546,8.6681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  2.0829933606546,8.6681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  2.0829933606546,10.2681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  2.0829933606546,10.2681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  2.0829933606546,8.6681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  2.0829933606546,8.6681888081308 = L_ende 1.8829933606546,10.4681888081308
  ) AND ( Endpunkt 2.0829933606546,8.6681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 4 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 12.0553642728708,16.5777056899155
LET Endpunkt ( INQ 102 ) 14.0553642728708,16.5777056899155
LET Letztes_element ( ( Startpunkt 12.0553642728708,16.5777056899155 +
  Endpunkt 14.0553642728708,16.5777056899155 ) / 2 )
  13.0553642728708,16.5777056899155
END_IF
LET El_zaehl ( El_zaehl 4 + 1 ) 5
TRAP_ERROR
IF ( ( Startpunkt 12.0553642728708,16.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  14.0553642728708,16.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  14.0553642728708,16.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  12.0553642728708,16.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  12.0553642728708,16.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  14.0553642728708,16.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  14.0553642728708,16.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  14.0553642728708,16.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 5 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 15.0553642728708,15.5777056899155
LET Endpunkt ( INQ 102 ) 15.0553642728708,13.5777056899155
LET Letztes_element ( ( Startpunkt 15.0553642728708,15.5777056899155 +
  Endpunkt 15.0553642728708,13.5777056899155 ) / 2 )
  15.0553642728708,14.5777056899155
END_IF
LET El_zaehl ( El_zaehl 5 + 1 ) 6
TRAP_ERROR
IF ( ( Startpunkt 15.0553642728708,15.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  15.0553642728708,13.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  15.0553642728708,13.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  15.0553642728708,15.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  15.0553642728708,15.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  15.0553642728708,13.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  15.0553642728708,13.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  15.0553642728708,13.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 6 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 14.0553642728708,12.5777056899155
LET Endpunkt ( INQ 102 ) 12.0553642728708,12.5777056899155
LET Letztes_element ( ( Startpunkt 14.0553642728708,12.5777056899155 +
  Endpunkt 12.0553642728708,12.5777056899155 ) / 2 )
  13.0553642728708,12.5777056899155
END_IF
LET El_zaehl ( El_zaehl 6 + 1 ) 7
TRAP_ERROR
IF ( ( Startpunkt 14.0553642728708,12.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  12.0553642728708,12.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  12.0553642728708,12.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  14.0553642728708,12.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  14.0553642728708,12.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  12.0553642728708,12.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  12.0553642728708,12.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  12.0553642728708,12.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 7 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
LINE
IF ( ( Elementtyp
LINE =
ARC ) OR ( Elementtyp
LINE =
FILLET ) ) 0
LET Startpunkt ( INQ 101 ) 11.0553642728708,13.5777056899155
LET Endpunkt ( INQ 102 ) 11.0553642728708,15.5777056899155
LET Letztes_element ( ( Startpunkt 11.0553642728708,13.5777056899155 +
  Endpunkt 11.0553642728708,15.5777056899155 ) / 2 )
  11.0553642728708,14.5777056899155
END_IF
LET El_zaehl ( El_zaehl 7 + 1 ) 8
TRAP_ERROR
IF ( ( Startpunkt 11.0553642728708,13.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  11.0553642728708,15.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  11.0553642728708,15.5777056899155 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  11.0553642728708,13.5777056899155 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  11.0553642728708,13.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  11.0553642728708,15.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  11.0553642728708,15.5777056899155 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  11.0553642728708,15.5777056899155 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 8 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
FILLET
IF ( ( Elementtyp
FILLET =
ARC ) OR ( Elementtyp
FILLET =
FILLET ) ) 1
LET Radius ( INQ 3 ) 0.199999999999999
LET A_winkel ( INQ 4 ) 180
LET E_winkel ( INQ 5 ) 270
LET Mp ( INQ 101 ) -0.7170066393454,8.6681888081308
LET Startpunkt ( INQ 102 ) -0.9170066393454,8.6681888081308
LET Endpunkt ( INQ 103 ) -0.7170066393454,8.4681888081308
LET Letztes_element ( Mp -0.7170066393454,8.6681888081308 + ( ROT ( PNT_XY
  Radius 0.199999999999999 0 ) ( ( A_winkel 180 + E_winkel 270 ) / 2 ) ) )
  -0.858427995582709,8.52676745189349
ELSE
LET El_zaehl ( El_zaehl 8 + 1 ) 9
TRAP_ERROR
IF ( ( Startpunkt -0.9170066393454,8.6681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  -0.7170066393454,8.4681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.7170066393454,8.4681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  -0.9170066393454,8.6681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  -0.9170066393454,8.6681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  -0.7170066393454,8.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  -0.7170066393454,8.4681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  -0.7170066393454,8.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 9 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
FILLET
IF ( ( Elementtyp
FILLET =
ARC ) OR ( Elementtyp
FILLET =
FILLET ) ) 1
LET Radius ( INQ 3 ) 0.2
LET A_winkel ( INQ 4 ) -90
LET E_winkel ( INQ 5 ) 0
LET Mp ( INQ 101 ) 1.8829933606546,8.6681888081308
LET Startpunkt ( INQ 102 ) 1.8829933606546,8.4681888081308
LET Endpunkt ( INQ 103 ) 2.0829933606546,8.6681888081308
LET Letztes_element ( Mp 1.8829933606546,8.6681888081308 + ( ROT ( PNT_XY
  Radius 0.2 0 ) ( ( A_winkel -90 + E_winkel 0 ) / 2 ) ) )
  2.02441471689191,8.52676745189349
ELSE
LET El_zaehl ( El_zaehl 9 + 1 ) 10
TRAP_ERROR
IF ( ( Startpunkt 1.8829933606546,8.4681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  2.0829933606546,8.6681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  2.0829933606546,8.6681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  1.8829933606546,8.4681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  1.8829933606546,8.4681888081308 = L_ende 1.8829933606546,10.4681888081308
  ) AND ( Endpunkt 2.0829933606546,8.6681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  2.0829933606546,8.6681888081308 = L_ende 1.8829933606546,10.4681888081308
  ) AND ( Endpunkt 2.0829933606546,8.6681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0
IF ( CHECK_ERROR ) 0
INQ_NEXT_ELEM
END_WHILE ( El_zaehl 10 <= Anz_ele 15 ) 1
LET Elementtyp ( INQ 403 )
FILLET
IF ( ( Elementtyp
FILLET =
ARC ) OR ( Elementtyp
FILLET =
FILLET ) ) 1
LET Radius ( INQ 3 ) 0.199999999999999
LET A_winkel ( INQ 4 ) 0
LET E_winkel ( INQ 5 ) 90
LET Mp ( INQ 101 ) 1.8829933606546,10.2681888081308
LET Startpunkt ( INQ 102 ) 2.0829933606546,10.2681888081308
LET Endpunkt ( INQ 103 ) 1.8829933606546,10.4681888081308
LET Letztes_element ( Mp 1.8829933606546,10.2681888081308 + ( ROT ( PNT_XY
  Radius 0.199999999999999 0 ) ( ( A_winkel 0 + E_winkel 90 ) / 2 ) ) )
  2.02441471689191,10.4096101643681
ELSE
LET El_zaehl ( El_zaehl 10 + 1 ) 11
TRAP_ERROR
IF ( ( Startpunkt 2.0829933606546,10.2681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Endpunkt
  1.8829933606546,10.4681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Endpunkt
  1.8829933606546,10.4681888081308 = L_anfang
  -0.7170066393454,10.4681888081308 ) AND ( Startpunkt
  2.0829933606546,10.2681888081308 <> L_ende
  1.8829933606546,10.4681888081308 ) ) 0 ( ( Startpunkt
  2.0829933606546,10.2681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  1.8829933606546,10.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 0 ( ( Endpunkt
  1.8829933606546,10.4681888081308 = L_ende
  1.8829933606546,10.4681888081308 ) AND ( Endpunkt
  1.8829933606546,10.4681888081308 <> L_anfang
  -0.7170066393454,10.4681888081308 ) ) 1
EQUIDISTANCE Abstand 0.01 L_ende 1.8829933606546,10.4681888081308
  Letztes_element 2.02441471689191,10.4096101643681 Anfangspunkt
  0.680829847276789,10.4681888081308 Seite
  0.680829847276789,12.4681888081308
LET El_zaehl ( Anz_ele 15 + 1 ) 16
END_IF
IF ( CHECK_ERROR ) 1
IF ( Kritisch 1 = 1 ) 1
BEEP
WAIT 1
BEEP
DISPLAY
  'Die ausgewaehlte Kontur enthaelt doppelte Linien oder ist nicht geschlossen!'
  Switch_trace_off
TRACE