t7 (polar t6 pi a1gpt)

    t8 (polar t7(* pi 1.5)(-(/ de 2)(/ dvt 2)))

    t9 (polar t8 0 a1gpt)

    t10(polar t9 0 a2)

    t11(list(car t10)(+ y0(/ dval 2)c))

    t12 (list (-(car t11)c)(+ y0 (/ dval 2)))

    t13 (list (+ x0 c)(+ y0 (/ dval 2)))

  )

  (osi_line t0 t00)

  (command

     "layer" "n" "ov" "l" "continuous" "ov" "s" "ov" ""

     "pline" t0 "w" 1 1 t2 t3 t4 t5 t6 t7 t8 t9 t10  t00 t11 t12 t13 t1 ""

     "pline" t6 "w" 1 1 t9  ""

     "pline" t12 (polar t12(pi15)dval) ""

     "pline" t13 (polar t13(pi15)dval) ""

      "bhatch" "p" "ansi31" 2 0  (polar t3 0 2)  ""

     "mirror"  "all" "" t0(polar t0 0 50 ) ""

     "dim1" "hor" t1 t10 (polar t1 (* pi 0.5)150) ""

     "dim1" "hor" t4 t10 (polar t4 (* pi 0.5)25)""

      "dim1" "hor" t7 t6 (polar t7 (* pi 0.5)65)""

      "dim1" "hor" t6 t10 (polar t6 (* pi 0.5)65)""

     "dim1" "hor" t11 t12 (polar t12(pi15)10)

            (strcat(rtos c 2 2)"x45%%d")

     "dim1" "hor" t13 t1 (polar t1(pi15)20)  

            (strcat(rtos c 2 2)"x45%%d")

     "dim1" "ver" t5 (polar t5 (* pi 1.5)dd)(polar t00 0 45)

            (strcat"%%c"(rtos dd 2 2))

     "dim1" "ver" t6 (polar t6 (* pi 1.5)de)(polar t00 0 25)

             (strcat"%%c"(rtos de 2 2))

     "dim1" "ver" t10 (polar t10 (* pi 1.5)dvt)(polar t00 0 15)

             (strcat"%%c"(rtos dvt 2 2))

      "dim1" "ver" t2 (polar t2 (pi15) dvt)(polar t0 pi 30)

             (strcat"%%c"(rtos dvt 2 2))

      "dim1" "ver" t13 (polar t13 (* pi 1.5)dval)(polar t0 0 25)

             (strcat"%%c"(rtos dval 2 2)posdval)    

   )

(obrabo (list (- xformat 40 ) (- yformat 25)) shero)

(obrab (polar(polar t13(pi15)dval) 0 14) sherdval 0)

  (obrab (polar(polar t10(pi05)108) 0 0) shert -90)

  (obrab (polar(polar t2(pi05)108) 0 0) shert 90)

(Toler_k (polar t10 (pi05)122) "" (polar(polar t10 (pi05)122)0 15)

   (polar(polar(polar t10 (pi05)122)0 15)0 5)

   "b" bienie "A")