gistfile1.txt

(defun render-grid (grid cell-size)
  (with-identity-matrix
    (with-pen (make-pen :fill (gray 0.2) :stroke +white+)
      (dolist (row grid)
	(with-current-matrix
	  (dolist (cell row)
	    (rect 0 0 cell-size cell-size)
	    (with-font (make-font :color (hash-color (char-code (elt cell 0)))
				  :size cell-size)
	      (text cell 0 0))
	    (translate cell-size 0)))
	(translate 0 cell-size)))))

(defsketch term (:debug :scancode-f1) ()
  (render-grid '(("a" "b" "c")
		 ("d" "e" "f")
		 ("g" "h" "i"))
	       (/ width 3)))

;(make-instance 'term)