Графика

;; HomeLisp (с "анимацией")
 
(defun draw_env ()
  (let ((w (gensym 'w)))
    (grwCreate w 200 200 "Эйлеров путь" _WHITE)
    (grwScale w -100 100 -100 100)
    (grwSetParm  w 3 0 _BLACK _WHITE)
    (grwShow w)
    (grwLine w -50 50 -50 -50 _BLUE)
    (grwPrint w -60 0 "1" _RED)
    (sleep* 500) 
    (grwLine w -50 -50 50 -50 _BLUE)
    (grwPrint w 0 -51 "2" _RED)
    (sleep* 500) 
    (grwLine w 50 -50 50 50 _BLUE)
    (grwPrint w 55 0 "3" _RED)
    (sleep* 500) 
    (grwLine w 50 50 0 0 _BLUE)
    (grwPrint w 25 25 "4" _RED)
    (sleep* 500) 
    (grwLine w -50 50 0 0 _BLUE)
    (grwPrint w -30 25 "5" _RED)
    (sleep* 500) 
    (grwLine w -50 50 50 50 _BLUE)
    (grwPrint w 0 53 "6" _RED)
    (sleep* 500) 
    (loop
      (when (not (zerop (grwInkey w 200))) (return t)))
    (grwHide w)
    (grwDestroy w)))

(defun convert ( / bpt  cpt )
 
  (defun shiftXY (pt x y)
    (mapcar '+ pt (list x y))
  )
 
  (defun mkpline ( lst )
    (entmake
      (append
        (list
         '(0 . "LWPOLYLINE")
         '(100 . "AcDbEntity")
         '(100 . "AcDbPolyline")
          (cons 90 (length lst))
          (cons 70 0)
         '(210 0.0 0.0 1.0)
        )
        (mapcar '(lambda (x) (cons 10 x)) lst)
      )
    )
  )
  
  (if (setq bpt (getpoint "\nBase Point: "))
    (mkpline
      (list
        bpt
        (setq cpt (shiftXY bpt   0  30))
        (setq cpt (shiftXY cpt  40   0))
        (setq cpt (shiftXY cpt -40 -30))
        (setq cpt (shiftXY cpt  40   0))
        (setq cpt (shiftXY cpt   0  30))
        (setq cpt (shiftXY cpt -20  20))
        (setq cpt (shiftXY cpt -20 -20))
        (setq cpt (shiftXY cpt  40 -30))
      )
    )
  )
)