>>>>> "Progga" == Progga <[EMAIL PROTECTED]> writes:
Progga> On Thu, Jan 13, 2005 at 09:41:30AM -0500, Raymond Toy wrote:
>>
>> First, indent better:
Progga> Okay :-) I am still undecided whether to use 2 or 8 spaces for
the TAB
Progga> though.
It's not the number of spaces. It's lining things up correctly.
Progga> I have attached the lisp code. Quite small. Besides the lisp
file,
Progga> there's
Progga> another C file which has the body of extract_image and save_image.
That
Progga> C file
Progga> in turn depends on libjpeg.
I tried your code I I get an error as well. Don't know why, but it
works much better to use
(defun foo (name)
(with-alien ((filename c-string)
(width int)
(height int)
(image_array (* (* unsigned-char))))
(setf filename name)
(extract-image filename
(addr width)
(addr height)
(addr image_array))
(setf filename "del.jpg")
(save-image filename width height image_array)))
and compile the file and run (foo "image"). At least when I do this,
I get a black-and-white version of the original image.
Ray
