;;; -*- Mode:LISP; Package:USER; Base:10; Fonts:(CPTFONTB) -*-


(defun shadow-test ()
  "Put up a patch of gray on the current window"
  (dotimes (j 100)
    (send terminal-io :bitblt tv:alu-xor 32 2 tv:50%-gray 0 0 100 
	  (+ 100 (* j 2)))))