(define-type real (or integer float ratnum))  ;not complex
(define-type pathname string)

;; Canvas

(define-type cmap (vector-of char))
(define-type char-canvas (struct char-canvas))

(define-type canvas (struct canvas))

;; Config

;FIXME plt-cfg needs a definition
(define-type plotter-configuration (list-of (or false char)))
(define-type plotter-config-arg (or char plotter-configuration))

(define-type char-transform (char char fixnum fixnum -> char))

(define-type box-frame-chars (vector char char char char char char char char))

;; Shape

(define-type shape-info vector)

(define-type real-shape-plotter (#!optional canvas fixnum fixnum -> (or canvas shape-info)))
(define-type shape-plotter (#!optional canvas integer integer -> (or canvas shape-info)))

;; Region

(define-type rect-base vector)

;; rect < vector

(define-type rect (vector integer integer integer integer))

;; char-rect < rect

;of dubious utility since fixnum range is big
(define-type char-rect (vector fixnum fixnum fixnum fixnum))

;; wndw < rect

(define-type wndw (vector integer integer integer integer canvas))

;; char-wndw < wndw( char-canvas char-rect )

(define-type char-wndw (vector fixnum fixnum fixnum fixnum canvas))