(forbid)
(terpri)
(princ "Initialisiere Definitionen aus setup.lsp ...")
(terpri)

(setq pi 3.1415927)
(setq e  2.7182818)

; reelle trigonometrische Funktionen

(defun tan (x) (/ (sin x)(cos x)))
(defun cot (x) (/ (cos x)(sin x)))
(defun asin (x) (cond ((or (eql x 1.0)(eql x -1.0))(/ pi 2.0))
                      (t (atan (/ x (sqrt (- 1.0 (* x x))))))))
(defun acot (x) (cond ((> x 0.0)(atan (/ 1.0 x)))
                        ((eql x 0.0)(/ pi 2.0))
                        (t (- pi (atan (/ -1.0 x))))))
(defun acos (x) (cond ((eql x 1.0) 0)
                      ((eql x -1.0) pi)
                      (t (acot (/ x (sqrt (- 1.0 (* x x))))))))

; Grafikdeklarationen

(setq KEINE -1)(setq FARBE_0 0)(setq FARBE_1 1)(setq FARBE_2 2)
(setq FARBE_3 3)
(rgb 0 2 3 5)
(rgb 1 12 12 14)
(rgb 2 8 10 8)
(rgb 3 6 7 10)

(setq KARTESISCH (setq ABSOLUT t))(setq RELATIV (setq POLAR nil))

(defun turn (Winkel)
  (draw RELATIV POLAR -1 Winkel 0.0))

(defun forward (Farbe Länge)
  (draw RELATIV POLAR Farbe 0.0 Länge))

(allow)
(free)

; Betteltext

(terpri)(terpri)
(princ "-------------------------------------------------------------------")
(terpri)
(princ "|ALisp ist ein Shareware-Programm. Sie können es beliebig kopieren|")
(terpri)
(princ "|und verbreiten (Aber dann bitte komplett (!) und mit dieser An-  |")
(terpri)
(princ "|merkung). Kommerzielle Nutzung sowie Verkauf ist untersagt.      |")
(terpri)
(princ "|Wenn Sie irgendwie Geld loswerden wollen :                       |")
(terpri)
(princ "|Konto Nr. 16088163 bei der Stadtsparkasse Aachen - Vielen Dank ! |")
(terpri)
(princ "-------------------------------------------------------------------")
(terpri)