;;;; State
(defvar *colour*)
(defvar *surface*)
(defvar *fill* *colour*)

;;;; State changers
(defgeneric ink (ink))
(defgeneric fill (ink))
(defgeneric surface (surface)) ;change of surface warrants change of colours to appropriate format

 ;;;; individual coords
(defgeneric point                          (x1 y1 &key ink surface))
(defgeneric points                        (coords &key ink surface))
(defgeneric line                     (x1 y1 x2 y2 &key ink surface))
(defgeneric lines                         (coords &key ink surface))
(defgeneric integer-line             (x1 y1 x2 y2 &key ink surface))
(defgeneric polygon                       (coords &key ink surface))
(defgeneric triangle           (x1 y1 x2 y2 x3 y3 &key ink surface))
(defgeneric circle                       (cx cy r &key ink surface))
(defgeneric ellipse                  (cx cy rx ry &key ink surface))
(defgeneric rectangle                   (x y size &key ink surface))
(defgeneric rounded-rectangle   (x y width height &key ink surface type))
(defgeneric cubic-bezier (x1 y1 x2 y2 x3 y3 x4 y4 &key ink surface tolerance))
(defgeneric quad-bezier        (x1 y1 x2 y2 x3 y3 &key ink surface tolerance))
(defgeneric bezier                        (coords &key ink surface tolerance))
(defgeneric text                      (x y string &key ink surface alignment font))

;;;; Point functions
(defgeneric point*                (p &key ink surface))
(defgeneric points*               (points &key ink surface))
(defgeneric line*                 (p1 p2 &key ink surface))
(defgeneric lines*                (points &key ink surface))
(defgeneric integer-line*         (p1 p2 &key ink surface))
(defgeneric polygon*              (pointss &key ink surface closed?))
(defgeneric triangle*             (p1 p2 p3 &key ink surface))
(defgeneric circle*               (center r &key ink surface))
(defgeneric ellipse*              (center rx ry &key ink surface))
(defgeneric rectangle*            (top-left size &key ink surface))
(defgeneric rounded-rectangle*    (top-left size &key ink surface type))
(defgeneric quad-bezier*          (p1 p2 p3 &key ink surface tolerance))
(defgeneric cubic-bezier*         (p1 p2 p3 p4 &key ink surface tolerance))
(defgeneric bezier*               (points &key ink surface tolerance))
(defgeneric text*                 (point string &key alignment ink surface))

;;;; For cl-vector support
(defgeneric pixel (x y ink surface)
  (:method (x y ink surface) (surface:set-pixel x y ink surface)))
(defgeneric span (x1 y1 x2 ink surface &key)
  (:method (x1 y1 x2 ink surface) (surface:span x1 x2 y ink surface)))


;; should this be here?
(defgeneric sprite (x y sprite &key surface)  (:documentation "First copies background, blits sprite, then redraws background when moved."))