anchor.diff:  ;;   interface also for high performance apps?
   
   ;; - Write tests.
  +
  +;;;; API issues
  +
  +;; - On one hand we want convenience functions like RENDER-TRIANGLE or
  +;;   WITH-UNIFORM-COLOR-PICTURE. On the other hand if you are up to
  +;;   write a full rasterization library you obviously want high
  +;;   performance entry points as RENDER-TRIANGLES-1.
  +
  +;; - We want to extend XLIB:COLOR into something with alpha channel.
  +;;   How to name it?
  +
  +;; - WITH-UNIFORM-COLOR-PICTURE (var picture r g b &optional alpha) &body body
  +;;
  +;;   Example:
  +;;   (WITH-UNIFORM-COLOR-PICTURE (color dest 1.0 1.0 0.0)
  +;;     (RENDER-TRIANGLE dest color ...))
  +
  +;; - Pose the filter and the transform slots of a picture.
  +
  +;; - Also introduce a PICTURE-DEFAULT-MASK-FORMAT?
  +
  +;; - COPY-PICTURE?
  +
  +;; - WITH-PICTURE-OPTIONS ?
  +;;
  +;;   (WITH-PICTURE-OPTIONS (pic :repeat :on) ...)
  +
  +;; - WITH-PICTURE ?
  +;;
  +;;   (WITH-PICTURE (picture drawable ...) ...)
  +
  +;;
   
   (in-package :xlib)
   
  
positive.code: ;;;     Title: The X Render Extension
  ;;;   Created: 2002-08-03
  ;;;    Author: Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
  ;;;       $Id: xrender.lisp,v 1.1 2003-05-25 13:37:07 gilbert Exp $
  ;;; ---------------------------------------------------------------------------
  ;;;
  ;;; (c) copyright 2002, 2003 by Gilbert Baumann
  
negative.code:                (unless (zerop (byte-size (cdr k)))
                   (format bag " ~A~D" (car k) (byte-size (cdr k)))))))))
      (print-unreadable-object (object stream :type t :identity nil)
        (format stream "~D ~S ~S ~S~A"
                (picture-format-id object)
                (picture-format-colormap object)
                (picture-format-depth object)
                (picture-format-type object) abbrev))))
  
  (eval-when (eval compile load)
  