anchor.diff: -
  +;; pixel stroke smooth
  +;; calligraph xdotool entry
  +;; large scale + sector update
   ;; fluid computation
   ;; CA material reaction, water/dye deposition
   
  
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:   (asdf:load-system 'cl-evdev)
    )
  
  ;; (code-char 65)
  ;; (code-char 97)
  
  (defun get-string-picto ()
    
  )
  
  (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) ;; Z?
  	     (setq pressure value))
  	    ((equal axis 'ABS_X)
  	     (setq abs-x value))
  	    ((equal axis 'ABS_Y)
  	     (setq abs-y value)))
        (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 event)   
      )
  )
  
  (defun process-wacom-stream ()
  