anchor.diff:    (asdf:load-system 'cl-evdev)
     )
   
  -(defclass wa-mask
  -    (glut:window) ()
  -  (:default-initargs :pos-x 100 :pos-y 100
  -		     :width 250 :height 250
  -                     :mode '(:single :rgb) :title ""))
  -(defmethod glut:display-window :before ((w wa-mask))
  -  (gl:clear-color 0 0 0 0)
  -  (gl:matrix-mode :projection)
  -  (gl:load-identity)
  -  (gl:ortho 0 1 0 1 -1 1)
  -  )
  +;; (code-char 65)
  +;; (code-char 97)
   
  -(setq color .7)
  -(defmethod glut:display ((w wa-mask))
  -  (gl:clear :color-buffer)
  -  (gl:color color 0 1)
  -  (gl:with-primitive :polygon
  -    (gl:vertex 0.25 0.25 0)
  -    (gl:vertex .75 0.25 0)
  -    (gl:vertex 0.75 0.75 0)
  -    (gl:vertex 0.25 0.75 0))
  -  (gl:flush))
  +(defun get-string-picto ()
  +  
  +)
   
  -(setq evdev-id "usb-WACOM_CTE-440-U_V4.0-3-mouse"
  -   evdev-stream '()
  -   calibrate t)
  -
  -(setq pressure 0
  +(setq pressure 0.0
      abs-x nil
      abs-y nil)
  +
  +(defun set-grid (x y value)
  +  (setf (aref grid x y) value))
   
   (defun handle-pen (event)
     (with-slots (value type) event
       (let ((axis (cadr type)))
         
  -      (cond ((equal axis 'ABS_PRESSURE)
  +      (cond ((equal axis 'ABS_PRESSURE) ;; Z?
   	     (setq pressure value))
   	    ((equal axis 'ABS_X)
   	     (setq abs-x value))
   	    ((equal axis 'ABS_Y)
   	     (setq abs-y value)))
  -
  -      (setq color .7)
  -      (if (> pressure 100)
  -	  (setq color .5))
  -      (if (> pressure 200)
  -	  (setq color 0))
  +      (print abs-y)
  +      
  +      (setq color (/ pressure 700.0))
  +      (if (> pressure 0)	  
  +       	  (set-grid 
  +	   (round (* abs-x .01))
  +	   (round (* abs-y .013))
  +	   (list 0 color color)))
  +      
         (glut:post-redisplay)
         )
       )  
     )
   
   (defun handle-scroll (event)
  +  (with-slots (value) 
  +      (print event)   
  +    )  
  +  (clear-grid grid-size)
  +  nil
  +)
  +
  +(defun handle-button (event)
     (with-slots (value) event
  -    ;; (print value)   
  +    (print event)   
       )
  -  nil
   )
   
   (defun process-wacom-stream ()
  
positive.code:     (format t "~%~%")
      ))       
  
  (defun wa ()
    (bordeaux-threads:make-thread
     'process-wacom-stream :name "wacom-stream-process")
    (glut:display-window (make-instance 'wa-mask))
    )
  
  (defun compile-wa-image ()
  
negative.code: ;; pixel stroke smooth
  ;; calligraph xdotool entry
  ;; large scale + sector update
  ;; fluid computation
  ;; CA material reaction, water/dye deposition
  
  