[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Pixpat problems



Can anyone enlighten me as to why the following
very simple code makes MCL crash with a system error 25?

(open-resource-file "orion:foo")

(defparameter pat
  ;; a simple all blue ppat resource
  (get-resource :|ppat| 128))

(defparameter win
  (make-instance 'window
    :color-p   t
    :view-size #@(500 150)))

(with-focused-view win
  (rlet ((r :rect :top 10 :left 10 :right 50 :bottom 50))
    (#_FillCRect r pat)))

Thanks for any tip.

*********************************************************************
* Guillaume Cartier                 (514) 844-5294 (maison)         *
* L.A.C.I.M.                        (514) 987-4290 (bureau)         *
* Universite du Quebec a Montreal   (514) 987-8477 (telecopieur)    *
* Montreal, Quebec, Canada          cartier@math.uqam.ca (internet) *
*********************************************************************