anchor.diff:         (maphash (lambda (k f)
                     (declare (ignore k))
                     (when (and (eql (picture-format-type f) :direct)
  +                             (eql (picture-format-depth f) (drawable-depth window))
                                (eql (dpb -1 (picture-format-red-byte f) 0)
                                     (visual-info-red-mask vi))
                                (eql (dpb -1 (picture-format-green-byte f) 0)
  
positive.code:       (int16 x1) (int16 y1) (card16 w) (card16 h))))
  
  ;; fill rectangles, colors.
  
  (defun render-composite (op
                           source mask dest
  
negative.code:     (close-display dpy)))
  ||#
  
  ;;;; Cursors
  
  (defun render-create-cursor (picture &optional (x 0) (y 0))
    (let ((display (picture-display picture)))
      (ensure-render-initialized display)
      (synchronise-picture-state picture)
      (let* ((cursor (make-cursor :display display))
             (cid (allocate-resource-id display cursor 'cursor)))
        (setf (cursor-id cursor) cid)
        (with-buffer-request (display (extension-opcode display "RENDER"))
          (data +X-RenderCreateCursor+)
          (resource-id cid)
          (resource-id (picture-id picture))
          (card16 x)
          (card16 y))
        cursor)))
    
  
  
  ;; $Log: xrender.lisp,v $
  ;; Revision 1.2  2004-12-02 09:11:41  gilbert
  ;; - RENDER-TRIANGLES-1, RENDER-SET-PICTURE-TRANSFORM,
  ;;   RENDER-QUERY-FILTERS, RENDER-SET-FILTER, RENDER-TRAPEZOIDS-1,
  ;;   RENDER-CREATE-CURSOR:
  ;;     New functions.
  ;;
  ;; Revision 1.1  2003/05/25 13:37:07  gilbert
  ;; imported
  ;;
  ;; Revision 1.5  2003/05/25 14:37:26  gilbert
  