[Openmcl-devel] Fwd: CCL Image I/O

[Ron Garret]

Blarg.

(defmacro with-focused-image (img &body forms)
   `(unwind-protect
        (progn (#/lockFocus ,img) , at forms)
      (#/unlockFocus ,img)))

(defun image-size (img)
   (let ( (s (#/size img)) )
     (cons (truncate (pref s :ns-size.width))
           (truncate (pref s :ns-size.height)))))

rg

On Jun 3, 2008, at 4:14 PM, Andrew Shalit wrote:

> A couple more?
>
> ;Compiler warnings :
> ;   In IMAGE-BITMAP: Undefined function WITH-FOCUSED-IMAGE
> ;   In IMAGE-BITMAP: Undefined function IMAGE-SIZE
> ?
> ;Compiler warnings :
> ;   In BITMAP-PIXELS: Undefined function IMAGE-SIZE
>
>
>
> On Jun 3, 2008, at 5:05 PM, Ron Garret wrote:
>
>>
>> On Jun 3, 2008, at 1:56 PM, Andrew Shalit wrote:
>>
>>> Care to send me your init file?
>>>
>>> ;   In BB: Undefined function RST
>>> ;   In BB: Undefined function FST
>>
>> Oops, sorry.  Forgot about those dependencies.
>>
>>
>> <utilities.lisp>