(defun c:Haus2 (/ p3)
  (setvar "cmdecho" 0)
  (command "_undo" "_begin")
  (command "_ZOOM" "_W" '(-2 0) '(12 9))
  (setq p3 '(-1.0 7.0))
  (mapcar '(lambda (x)
            (entmake (LIST
                        '(0 . "TEXT")
                        (cons 8 (getvar "clayer"))
                        (CONS 10 (setq p3 (mapcar '- p3 '(0.0 0.75))))
                        '(40 . 0.35)
                        '(50 . 0.0)
                        (CONS 1 (cadr x))
                        ) ;_ ende von LIST
                      ) ;_ ende von entmake
            (draw-grvecs (car x))
            (command "_.delay" 400)
            ) ;_ end of lambda
          '(((2 (1 1) (5 5)) "Das")
            ((1 (5 5) (3 7)) "ist")
            ((1 (3 7) (1 5)) "das")
            ((3 (1 5) (5 5)) "Haus")
            ((3 (5 5) (5 1)) "vom")
            ((3 (5 1) (1 1)) "Ni-")
            ((3 (1 1) (1 5)) "ko-")
            ((2 (1 5) (5 1)) "laus")
            )
          ) ;_ end of mapcar
  (setq p3 '(10.0 7.0))
  (mapcar '(lambda (x)
            (entmake (LIST
                        '(0 . "TEXT")
                        (cons 8 (getvar "clayer"))
                        (CONS 10 (setq p3 (mapcar '- p3 '(0.0 0.75))))
                        '(40 . 0.35)
                        '(50 . 0.0)
                        (CONS 1 (cadr x))
                        ) ;_ ende von LIST
                      ) ;_ ende von entmake
            (draw-grvecs (car x))
            (command "_.delay" 400)
            ) ;_ end of lambda
          '(((4 (5 1) (9 5)) "und")
            ((1 (9 5) (7 7)) "ne-")
            ((1 (7 7) (5 5)) "ben")
            ((6 (5 5) (9 5)) "an")
            ((6 (9 5) (9 1)) "der")
            ((6 (9 1) (5 1)) "Weih-")
            ((6 (5 1) (5 5)) "nachs-")
            ((4 (5 5) (9 1)) "mann.")
            )
          ) ;_ end of mapcar
  (command "_undo" "_end")
  (setvar "cmdecho" 1)
  (prin1)
  ) ;_ end of defun

(defun draw-grvecs (liste / delay steps p0 p1 diff)
  (setq delay 25)
  (setq steps 25.0)
  (setq p0 (cadr liste) p1  (caddr liste))
  (setq diff (mapcar '/ (mapcar '- p1 p0) (list steps steps)) p1 '(0 0))
  (repeat (fix steps)
    (progn
      (grvecs (list (car liste) p0 (mapcar '+ p0 (setq p1 (mapcar '+ p1 diff)))))
      (command "_.delay" delay)
    )
  )
)