CLIM 2 User Guide

pixmap-depth
Arguments: pixmap
■ Returns the depth of the pixmap pixmap.
with-output-to-pixmap
[Generic function]
[Macro]
Arguments:
(medium-var medium &key width height) &body body
■ Binds medium-var to a pixmap medium, that is, a medium that does output to a pixmap with
the characteristics appropriate to the medium medium, and then evaluates body in that context. All
the output done to the medium designated by medium-var inside of body is drawn on the pixmap
stream. CLIM implementations are permitted, but not required, to have pixmap mediums support the
stream output protocol (write-char and write-string).
medium-var must be a symbol; it is not evaluated.
■ width and height are integers that give the width and height of the pixmap. If they are unsupplied,
the with-output-to-output-record is called to determine the size and then the output
record is replayed on the pixmap stream. As a consequence, operations such as window-clear
will operate on the wrong stream. Specify width and height if this is a problem.
■ The returned value is a pixmap that can be drawn onto medium using copy-from-pixmap.
3.5.1 Example of Using CLIM Pixmaps
If you run the following code, it will wait for you to input a rectangular region, then it will copy the region
into a pixmap. It will then wait for you to indicate another spot on the window stream, and will copy the
pixmap out into the new place.
(defun test-copy-area (&optional (function boole-1) (stream *standard-output*))
(let ((medium (clim:sheet-medium stream)))
(multiple-value-bind (left top right bottom)
(clim:pointer-input-rectangle* :stream stream)
(let ((pixmap (clim:copy-to-pixmap
medium left top (- right left) (- bottom top))))
(multiple-value-bind (x y)
(block get-position
(clim:tracking-pointer (stream)
(:pointer-button-press (x y)
(return-from get-position (values x y)))))
(clim:copy-from-pixmap pixmap 0 0 (- right left) (- bottom top)
medium x y function))))))
The next example creates a pixmap using with-output-to-pixmap, and then displays the result at
the place you click on.
(defun test-pixmaps (&optional (stream *standard-output*))
(let ((medium (clim:sheet-medium stream)))
(let ((pixmap (clim:with-output-to-pixmap (mv medium)
(clim:formatting-table (mv)
(dotimes (i 5)
(clim:formatting-row (mv)
(clim:formatting-cell (mv) (princ i mv))
(clim:formatting-cell (mv) (princ (* i 2) mv)))))
(clim:draw-circle* mv 50 50 20 :filled t)
42 CLIM 2.2 User Guide