anchor.diff:  
   (define-extension "RENDER")
   
  -(progn
  -  (defconstant +X-RenderQueryVersion+ 0) ;done
  -  (defconstant +X-RenderQueryPictFormats+ 1)
  -  (defconstant +X-RenderQueryPictIndexValues+ 2)
  -  (defconstant +X-RenderQueryDithers+ 3)
  -  (defconstant +X-RenderCreatePicture+ 4) ;done
  -  (defconstant +X-RenderChangePicture+ 5) ;done
  -  (defconstant +X-RenderSetPictureClipRectangles+ 6) ;done
  -  (defconstant +X-RenderFreePicture+ 7) ;done
  -  (defconstant +X-RenderComposite+ 8) ;we need better arglist
  -  (defconstant +X-RenderScale+ 9)
  -  (defconstant +X-RenderTrapezoids+ 10)
  -  (defconstant +X-RenderTriangles+ 11)
  -  (defconstant +X-RenderTriStrip+ 12)
  -  (defconstant +X-RenderTriFan+ 13)
  -  (defconstant +X-RenderColorTrapezoids+ 14)
  -  (defconstant +X-RenderColorTriangles+ 15)
  -  (defconstant +X-RenderTransform+ 16)
  -  (defconstant +X-RenderCreateGlyphSet+ 17) ;done
  -  (defconstant +X-RenderReferenceGlyphSet+ 18) ;done
  -  (defconstant +X-RenderFreeGlyphSet+ 19) ;done
  -  (defconstant +X-RenderAddGlyphs+ 20)
  -  (defconstant +X-RenderAddGlyphsFromPicture+ 21)
  -  (defconstant +X-RenderFreeGlyphs+ 22)
  -  (defconstant +X-RenderCompositeGlyphs8+ 23) ;done
  -  (defconstant +X-RenderCompositeGlyphs16+ 24)
  -  (defconstant +X-RenderCompositeGlyphs32+ 25)
  -  (defconstant +X-RenderFillRectangles+ 26))
  +;;;; Request constants
  +
  +;; Note: Although version numbers are given render.h where the request
  +;; numbers are defined, render-query-version returns 0.0 all displays
  +;; i tested. --GB 2004-07-21
  +
  +(defconstant +X-RenderQueryVersion+ 0)                  ;done
  +(defconstant +X-RenderQueryPictFormats+ 1)
  +(defconstant +X-RenderQueryPictIndexValues+ 2)          ;0.7
  +(defconstant +X-RenderQueryDithers+ 3)
  +(defconstant +X-RenderCreatePicture+ 4)                 ;done
  +(defconstant +X-RenderChangePicture+ 5)                 ;done
  +(defconstant +X-RenderSetPictureClipRectangles+ 6)      ;done
  +(defconstant +X-RenderFreePicture+ 7)                   ;done
  +(defconstant +X-RenderComposite+ 8)                     ;we need better arglist
  +(defconstant +X-RenderScale+ 9)
  +(defconstant +X-RenderTrapezoids+ 10)                   ;low-level done
  +(defconstant +X-RenderTriangles+ 11)                    ;low-level done
  +(defconstant +X-RenderTriStrip+ 12)
  +(defconstant +X-RenderTriFan+ 13)
  +(defconstant +X-RenderColorTrapezoids+ 14)              ;nyi in X server, not mentioned in renderproto.h
  +(defconstant +X-RenderColorTriangles+ 15)               ;nyi in X server, not mentioned in renderproto.h
  +(defconstant +X-RenderTransform+ 16)                    ;commented out in render.h
  +(defconstant +X-RenderCreateGlyphSet+ 17)               ;done
  +(defconstant +X-RenderReferenceGlyphSet+ 18)            ;done
  +(defconstant +X-RenderFreeGlyphSet+ 19)                 ;done
  +(defconstant +X-RenderAddGlyphs+ 20)                    ;done, untested
  +(defconstant +X-RenderAddGlyphsFromPicture+ 21)         ;done, untested
  +(defconstant +X-RenderFreeGlyphs+ 22)                   ;done, untested
  +(defconstant +X-RenderCompositeGlyphs8+ 23)             ;done
  +(defconstant +X-RenderCompositeGlyphs16+ 24)            ;done
  +(defconstant +X-RenderCompositeGlyphs32+ 25)            ;done
  +
  +;; >= 0.1
  +  
  +(defconstant +X-RenderFillRectangles+ 26)               ;single rectangle version done
  +
  +;; >= 0.5
  +
  +(defconstant +X-RenderCreateCursor+ 27)
  +
  +;; >= 0.6
  +
  +(defconstant +X-RenderSetPictureTransform+ 28)          ;I don't understand what this one should do.
  +(defconstant +X-RenderQueryFilters+ 29)                 ;seems to be there on server side
  +                                                        ; some guts of its implementation there.
  +(defconstant +X-RenderSetPictureFilter+ 30)
  +(defconstant +X-RenderCreateAnimCursor+ 31)             ;What has render to do with cursors?
  +
  +;;;;
   
   ;; Sanity measures:
   
  
positive.code:        (maphash (lambda (k f)
                    (declare (ignore k))
                    (when (and (eql (picture-format-type f) :direct)
                               (eql (dpb -1 (picture-format-red-byte f) 0)
                                    (visual-info-red-mask vi))
                               (eql (dpb -1 (picture-format-green-byte f) 0)
  
negative.code: ;; provides no provision to actually query a picture object's values. 
  ;; *sigh*
  
  (def-clx-class (picture (:copier nil))
    (id 0 :type resource-id)
    (display nil :type (or null display))
    (plist nil :type list)                ; Extension hook
  