(defun c:cvt ()
  (setq       d   (getreal "\n Genişliği girin:")
L   (getreal "\n Uzunluğunu girin:")
                n1  (getpoint "\n Başlangıç noktasını seçin:")
n2  (list (+ (car n1) (* 0.7 d)) (cadr n1))
n3  (list (car n2) (+ (/ d 2) (cadr n2)))
n4  (list (+ (car n3) (* 0.2 L)) (cadr n3))
n5  (list (+ (car n3) L) (cadr n3))
n6  (list (car n5) (+ (cadr n5) d))
n7  (list (- (car n6) (* 0.8 L)) (cadr n6))
n8  (list (- (car n6) L) (cadr n6))
n9  (list (car n8) (+ (cadr n8) (/ d 2)))
n10 (list (- (car n9) (* 0.7 d)) (cadr n9))
n11 (list (- (car n10) (* 0.1 d)) (- (cadr n10) (/ d 4)))
n12 (list (car n10) (- (cadr n10) (/ d 2)))
n13 (list (- (car n12) (* 0.1 d)) (- (cadr n12) (/ d 2)))
n14 (list (car n12) (- (cadr n12) d))
n15 (list (- (car n14) (* 0.1 d)) (- (cadr n14) (/ d 4)))

n16 (list (car n4) (+ (cadr n4) (* 0.1 d )))
n17 (list (car n5) (+ (cadr n5) (* 0.1 d )))
n18 (list (car n7) (- (cadr n7) (* 0.1 d )))
n19 (list (car n6) (- (cadr n6) (* 0.1 d )))

n20 (list (+ (car n5) (* 0.1 d)) (+ (cadr n5) (* 0.1 d)))
n21 (list (+ (car n6) (* 0.1 d)) (- (cadr n6) (* 0.1 d)))

)
  (command "line" n1 n2 n3 n4 n5 n20 n21 n6 n7 n8 n9 n10 "")
  (command "line" n5 n17 n19 n6 "")
  (command "line" n4 n16 n18 n7 "")
  (command "line" n16 n17 "")
  (command "line" n18 n19 "")
  (command "line" n8 n12 "")
  (command "line" n3 n14 "")
  (command "line" n3 n8 "")
  (command "arc" n10 n11 n12 )
  (command "arc" n12 n13 n14)
  (command "arc" n14 n15 n1)
  (command "line" n11 n13 n15 "")
   
        )