Заливка полигона - Lisp

Формулировка задачи:

~~Нужно сделать заливку полигона~~ Пожалуйста, помогите сделать заливку полигона.

Решение задачи: «Заливка полигона»

textual
                            Листинг программы 
                        

                            (defun fill-polygon ()
  (let ((w (gensym 'w))
        (coord '((1 2) (3 6) (-3 4) (-5 0) (1 2)))
        (p nil)
        (c nil))
     (grwCreate w     ;; имя окна 
                200   ;; Ширина  
                200   ;; Высота  
          "Полигон"   ;; Заголовок 
             _WHITE   ;; Цвет фона           
     )
     (grwScale   w     ;; идентификатор окна
                -10    ;; Xmin
                 10    ;; Xmax
                -10    ;; Ymin
                 10    ;; Ymax
     )
     (setq p (car coord))
     (dolist (c (cdr coord) t)
       (grwLine w (car p) (cadr p) (car c) (cadr c) _BLUE)
       (setq p c))
     (grwFill w   ;; идентификатор окна
             -1   ;; X точки начала заливки 
              3   ;; Y точки начала заливки
        _YELLOW   ;; цвет границы
          _BLUE   ;; цвет заливки
     )
     (grwShow w)))
                        