Aleksander Nabaglo wrote:
> How to make this code run faster ?
Try sbcl. Nice picture, which is generated by your program:
http://www.frank-buss.de/tmp/zpnm.png
Do you have some background information how your program works?
BTW: When trying to execute the compiled functions (which may help to speed
it up in CLISP, too), LispWorks says:
Error: ** Processor Fault #xC0000005 at #x201B18FB (#<function
SYSTEM::-$DOUBLE$DOUBLE 201B18F2>).
Maybe some declare statements are wrong. Without all declare statements the
picture is finished after 35 seconds.
--
Frank Buss, ··@frank-buss.de
http://www.frank-buss.de, http://www.it4-systems.de
"Frank Buss" <··@frank-buss.de> wrote in message
···································@40tude.net...
> Try sbcl. Nice picture, which is generated by your program:
>
> http://www.frank-buss.de/tmp/zpnm.png
>
May I ask what library you're using for producing such png image ?
Sacha
"Sacha" <··@address.spam> writes:
> "Frank Buss" <··@frank-buss.de> wrote in message
> ···································@40tude.net...
> > Try sbcl. Nice picture, which is generated by your program:
> >
> > http://www.frank-buss.de/tmp/zpnm.png
> >
>
> May I ask what library you're using for producing such png image ?
I don't know what Frank Buss used, but the Salza ZLIB/DEFLATE
compression library comes with a PNG writer in the examples/
directory. See http://cliki.net/salza to get Salza, and see
http://fract.ygingras.net/ for a website that uses Salza to generate
PNGs on the fly. http://wigflip.com/ also uses Salza and Skippy (a GIF
writing library) to create graphics on the fly with Lisp.
Zach
>> >
>> > http://www.frank-buss.de/tmp/zpnm.png
>> >
>>
>> May I ask what library you're using for producing such png image ?
>
> I don't know what Frank Buss used, but the Salza ZLIB/DEFLATE
> compression library comes with a PNG writer in the examples/
> directory. See http://cliki.net/salza to get Salza, and see
> http://fract.ygingras.net/ for a website that uses Salza to generate
> PNGs on the fly. http://wigflip.com/ also uses Salza and Skippy (a GIF
> writing library) to create graphics on the fly with Lisp.
>
> Zach
Thanks, I'll check this out
Sacha
Zach Beane wrote:
> I don't know what Frank Buss used, but the Salza ZLIB/DEFLATE
> compression library comes with a PNG writer in the examples/
> directory. See http://cliki.net/salza to get Salza, and see
> http://fract.ygingras.net/ for a website that uses Salza to generate
> PNGs on the fly. http://wigflip.com/ also uses Salza and Skippy (a GIF
> writing library) to create graphics on the fly with Lisp.
I tried this library:
http://www.cliki.net/CL-PNG
Maybe it works, when installing UFFI and the required zlib DLLs. The old
one at http://www.pvv.ntnu.no/~musum/lisp/ created PNG images, which
couldn't be opened with Photoshop or Internet Explorer.
--
Frank Buss, ··@frank-buss.de
http://www.frank-buss.de, http://www.it4-systems.de
Sacha wrote:
> May I ask what library you're using for producing such png image ?
I gave up to use a PNG library for Lisp. cl-png needs a DLL on my Windows
machine, which I don't have and the old version of cl-png produces invalid
PNG images. Maybe the image-magicks Lisp wrapper is better, but there is no
documentation and libraries are missing, too. So I've used Gimp, the only
program on my computer which can open ppm images, to convert it to PNG.
--
Frank Buss, ··@frank-buss.de
http://www.frank-buss.de, http://www.it4-systems.de
Frank Buss <··@frank-buss.de> writes:
> Sacha wrote:
>
> > May I ask what library you're using for producing such png image ?
>
> I gave up to use a PNG library for Lisp. cl-png needs a DLL on my Windows
> machine, which I don't have and the old version of cl-png produces invalid
> PNG images. Maybe the image-magicks Lisp wrapper is better, but there is no
> documentation and libraries are missing, too.
Salza's PNG writer does not use an external C library; it is pure
Common Lisp. However, it is undocumented, and only supports writing an
image when the entire image is in memory as an octet array.
Zach
"Frank Buss" <··@frank-buss.de> wrote in message
····································@40tude.net...
> Sacha wrote:
>
>> May I ask what library you're using for producing such png image ?
>
> I gave up to use a PNG library for Lisp. cl-png needs a DLL on my Windows
> machine, which I don't have and the old version of cl-png produces invalid
> PNG images. Maybe the image-magicks Lisp wrapper is better, but there is
> no
> documentation and libraries are missing, too. So I've used Gimp, the only
> program on my computer which can open ppm images, to convert it to PNG.
>
Not the answer i was hoping for...
I'm working with windows too, developing a web site with lispworks,
Currently developing a graphic library with VML and SVG back-ends... I
thought
doing raster could be easier, but yes, all these libraries need external
DLLs.
So i jumped on the vector graphics wagon =)
Sacha
Frank Buss a �crit :
> Sacha wrote:
>
>
>>May I ask what library you're using for producing such png image ?
>
>
> I gave up to use a PNG library for Lisp. cl-png needs a DLL on my Windows
> machine, which I don't have and the old version of cl-png produces invalid
> PNG images. Maybe the image-magicks Lisp wrapper is better, but there is no
> documentation and libraries are missing, too. So I've used Gimp, the only
> program on my computer which can open ppm images, to convert it to PNG.
Imago (http://common-lisp.net/project/imago/) can read PPM and write
PNG, and it is entirely written in Common Lisp. The PNG writing code
apparently works, but hasn't been tested very much (and it is slow).
Bug reports and improvements are welcome, though... :)
--
Matthieu Villeneuve
Matthieu Villeneuve wrote:
> Imago (http://common-lisp.net/project/imago/) can read PPM and write
> PNG, and it is entirely written in Common Lisp. The PNG writing code
> apparently works, but hasn't been tested very much (and it is slow).
> Bug reports and improvements are welcome, though... :)
ok, nice, but even my Lua Player can read and write PNG (with alpha channel
supported) and JPG with just Image.load("filename.jpg/.png"), which returns
an Image object and save with Image.save("filename.jpg/.png"). For Windows
I have used the image magick library for a C++ project, which can read JPG,
BMP, PNG, PCX, TIF, TGA, GIF, PNM, WBMP and XBM (theses are the formats
I've tested, there are more supported formats) and most of these formats
can be written, too (but I've tested PNG and JPG, only).
CL-Magic ( http://common-lisp.net/project/cl-magick/ ) looks a bit too
low-level for me. I can repack my Windows DLL to access it from Lisp with
CFFI (CL-Magic uses UFFI).
Any ideas how the Lisp interface should look like? To make things simpler,
I think every image should be stored as 4 bytes per pixels, in RGBA format.
There should be a load and a save function and maybe some functions for
loading and saving from/to streams and memory (which is useful e.g. when
up-/down-loading JPG or other images from network). An Image class could
provide all methods. Accessing pixels could be (set-pixel x y r g b a)
(with optional a) and (get-pixel x y), which returns r, g, b, a as multiple
values. Another idea would be to use a Color class, but I don't know if
this is fast enough, if you want to do lots of single pixel manipulation,
like creating Mandelbrot images.
--
Frank Buss, ··@frank-buss.de
http://www.frank-buss.de, http://www.it4-systems.de
!
Frank Buss napisał(a):
> Do you have some background information how your program works?
It visualizes complex function;
[col, row] -> [x, y] -> z -> f(z) -> [Red(f(z), Green(f(z)), Blue(f(z))]
> BTW: When trying to execute the compiled functions (which may help to speed
> it up in CLISP, too), LispWorks says:
>
> Error: ** Processor Fault #xC0000005 at #x201B18FB (#<function
> SYSTEM::-$DOUBLE$DOUBLE 201B18F2>).
(ignore-error (funcall fz za)) should suppres arithmetical overlows
near fz singularities.
>
> Maybe some declare statements are wrong. Without all declare statements the
> picture is finished after 35 seconds.
My Celeron 1.7GHz, clisp 2.37 takes 280 seconds.
--
A
.
In article <······························@40tude.net>,
Frank Buss <··@frank-buss.de> wrote:
> Aleksander Nabaglo wrote:
>
> > How to make this code run faster ?
>
> Try sbcl. Nice picture, which is generated by your program:
>
> http://www.frank-buss.de/tmp/zpnm.png
>
> Do you have some background information how your program works?
>
> BTW: When trying to execute the compiled functions (which may help to speed
> it up in CLISP, too), LispWorks says:
>
> Error: ** Processor Fault #xC0000005 at #x201B18FB (#<function
> SYSTEM::-$DOUBLE$DOUBLE 201B18F2>).
>
> Maybe some declare statements are wrong. Without all declare statements the
> picture is finished after 35 seconds.
The example call is wrong.
(defun zpnm (cx cy wx nc nr miraclez)
(declare (double-float cx cy wx) (fixnum nc nr))
(with-open-file
(ppm "zpnm.ppm"
:direction :output
:element-type 'unsigned-byte)
(let ((fb (make-array (* 3 nc nr) :element-type 'unsigned-byte))
(hd (format nil "P6~%~D ~D~%255~%" nc nr))
(ff (fcfz cx cy wx nc nr miraclez)))
(map nil #'(lambda (cc) (write-byte (char-code cc) ppm)) hd)
(dotimes (k (* nc nr))
(when (= 0 (mod k nc)) (format t "~&~D " (/ k nc)))
(rgbf (funcall ff k) fb (* 3 k)))
(write-sequence fb ppm))))
(times
(zpnm 0.5 0 1.5 800 600
#'(lambda (z) (exp (/ z)))))
0 is not a double-float. Never. ;-)
LispWorks on my PowerMac G5 needs 8 seconds.
--
http://lispm.dyndns.org/