; Figūra vienas
(DEFUN C:Vienas ()
(SETQ SP (GETPOINT "\n Pasirinkite pradžios tašką:" ))
(SETQ T0 (LIST (CAR SP) (CADR SP)))
(SETQ T1 (LIST (+ (CAR T0) 2) (CADR T0)))
(SETQ T2 (LIST (+ (CAR T1) 1) (+ (CADR T1) 0.5)))
(SETQ T3 (LIST (+ (CAR T2) 0.5) (+ (CADR T2) 1)))
(SETQ T4 (LIST (- (CAR T3) 0.5) (+ (CADR T3) 1)))
(SETQ T5 (LIST (- (CAR T4) 1) (+ (CADR T4) 0.5)))
(SETQ T6 (LIST (CAR T4) (+ (CADR T4) 1)))
(SETQ T7 (LIST (+ (CAR T6) 0.5) (+ (CADR T6) 1)))
(SETQ T8 (LIST (- (CAR T7) 0.5) (+ (CADR T7) 1)))
(SETQ T9 (LIST (- (CAR T8) 1) (+ (CADR T8) 0.5)))
(SETQ T10 (LIST (- (CAR T9) 2) (CADR T9)))

(COMMAND "LINE" T0 T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T10 "")

(SETQ T11 (LIST (+ (CAR T10) 2) (CADR T10)))
(SETQ T12 (LIST (+ (CAR T11) 1) (+ (CADR T11) 0.5)))
(SETQ T13 (LIST (+ (CAR T12) 0.5) (+ (CADR T12) 1)))
(SETQ T14 (LIST (- (CAR T13) 0.5) (+ (CADR T13) 1)))
(SETQ T15 (LIST (- (CAR T14) 1) (+ (CADR T14) 0.5)))
(SETQ T16 (LIST (CAR T14) (+ (CADR T14) 1)))
(SETQ T17 (LIST (+ (CAR T16) 0.5) (+ (CADR T16) 1)))
(SETQ T18 (LIST (- (CAR T17) 0.5) (+ (CADR T17) 1)))
(SETQ T19 (LIST (- (CAR T18) 1) (+ (CADR T18) 0.5)))
(SETQ T20 (LIST (- (CAR T19) 2) (CADR T19)))

(COMMAND "LINE" T10 T11 T12 T13 T14 T15 T16 T17 T18 T19 T20"")

(SETQ L1 (LIST (+ (CAR SP) 5) (CADR SP)))
(SETQ L2 (LIST (CAR L1) (+ (CADR L1) 12)))

(COMMAND "LINE" L1 L2 "")
)

;Figūra du
(DEFUN C:Du ()
(SETQ SP (GETPOINT "\n Pasirinkite pradžios tašką:" ))
  (SETQ T0 (LIST (CAR SP) (CADR SP)))
  (SETQ T1 (LIST (+ (CAR T0) 4) (+ (CADR T0) 2)))
  (SETQ T2 (LIST (CAR T1) (+ (CADR T1) 6)))
  (SETQ T3 (LIST (- (CAR T2) 2) (CADR T2)))

  (COMMAND "LINE" T1 T2 T3 "")

  (SETQ T4 (LIST (+ (CAR SP) 6) (CADR SP)))
  (SETQ T5 (LIST (CAR T4) (+ (CADR T4) 12)))
  (SETQ T6 (LIST (+ (CAR T5) 1) (CADR T5)))

  (COMMAND "LINE" T4 T5 T6 "")

  (SETQ T7 (LIST (+ (CAR SP) 8) (+ (CADR SP) 2)))
  (SETQ T8 (LIST (CAR T7) (+ (CADR T7) 6)))
  (SETQ T9 (LIST (+ (CAR T8) 2) (CADR T8)))

  (COMMAND "LINE" T7 T8 T9 "")

  (SETQ S1 (LIST (+ (CAR SP) 3) (+ (CADR SP) 3)))
  (SETQ S2 (LIST (+ (CAR S1) 3) (+ (CADR S1) 3)))
  (SETQ S3 (LIST (+ (CAR S2) 3) (- (CADR S2) 3)))

  (COMMAND "ARC" S1 S2 S3 "")
  (COMMAND "LINE" S1 S3 "")

  (SETQ L1 (LIST (+ (CAR SP) 7) (+ (CADR SP) 9)))
  (SETQ L2 (LIST (CAR L1) (+ (CADR L1) 6)))
  (SETQ L3 (LIST (+ (CAR L1) 1) (+ (CADR L1) 1)))
  (SETQ L4 (LIST (+ (CAR L2) 1) (- (CADR L2) 1)))
  (SETQ L5 (LIST (+ (CAR L3) 1) (+ (CADR L3) 1)))
  (SETQ L6 (LIST (+ (CAR L4) 1) (- (CADR L4) 1)))

  (COMMAND "_-layer" "_m" "Du" "_C" "magenta" "" "_l" "DASHED2" "_LW" "0.70" "" "" "")
  (COMMAND "_-layer" "_s" "Du")
  (COMMAND "LINE" L1 L2 "")
  (COMMAND "LINE" L3 L4 "")
  (COMMAND "LINE" L5 L6 "")
)