17.1.3 Examples of Formatting Tables
(defun example3 (&optional (items *alphabet*) &key (stream *standard-output*) (n-columns 6) inter-row-spacing inter-column-spacing) (clim:formatting-table (stream :inter-row-spacing inter-row-spacing :inter-column-spacing inter-column-spacing) (do () ((null items)) (clim:formatting-row (stream) (do ((i 0 (1+ i))) ((or (null items) (= i n-columns))) (clim:formatting-cell (stream) (clim:draw-polygon* stream (list 0 0 (* 10 (1+ (random 3))) 5 5 (* 10 (1+ (random 3)))) :filled nil) (pop items)))))))Evaluating
(example3 *alphabet* :stream *my-stream*)
shows this table:
Generated with Harlequin WebMaker