; Aus Lisp, Patrick Henry Winston, Berthold Klaus Horn, Seite 85
; C-Kurven

(defun Plot_Line (Länge Winkel) (draw t nil 1 Winkel Länge))

(defun C_Kurve (Länge Winkel Min_Länge)
  (cond ((< Länge Min_Länge) (Plot_Line Länge Winkel))
   (t (C_Kurve (/ Länge 1.14214) (+ Winkel 45) Min_Länge)
      (C_Kurve (/ Länge 1.14214) (- Winkel 45) Min_Länge))))
(graphic)
(clear)
(draw t t -1 96 -80)
(C_Kurve 15.0 90 5.0)