anchor.diff:  		  (* factor (+ 1 x)) (* factor y) 0
   		  (* factor (+ 1 x)) (* factor (+ 1 y)) 0
   		  (* factor x) (* factor (+ 1 y)) 0)
  -	    ))  
  +	    ))
     (gl:flush))
   
   (defun wa ()
  
positive.code: 
  (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)
  
negative.code:   (asdf:load-system 'cl-evdev)
    )
  
  (defun get-string-picto ()
    
  )
  