Update of /project/mcclim/cvsroot/mcclim In directory cl-net:/tmp/cvs-serv22219

Modified Files: graphics.lisp Log Message: make-pattern-from-bitmap-file: Fix width/height - image matrices are row-major.

--- /project/mcclim/cvsroot/mcclim/graphics.lisp 2008/04/14 16:46:37 1.61 +++ /project/mcclim/cvsroot/mcclim/graphics.lisp 2008/10/23 00:23:06 1.62 @@ -1016,7 +1016,8 @@ (medium (design rgb-image-design) &rest options &key (x 0) (y 0) &allow-other-keys) (with-medium-options (medium options) - (medium-draw-image-design* medium design x y))) + (medium-draw-image-design* medium design x y)) + (values))

;;;;

@@ -1203,8 +1204,8 @@ (if read-designs (make-pattern res (or designs read-designs)) (make-instance 'rgb-pattern :image (make-instance 'rgb-image - :width (array-dimension res 0) - :height (array-dimension res 1) + :width (array-dimension res 1) + :height (array-dimension res 0) :data res)))))

(define-bitmap-file-reader :xpm (pathname)