resizing JPG images

Maybe this is what you want: view layout [image (bay-peg: load %bay.jpg) 500x800] This loads it once so that it can be used again view layout [image bay-peg 100x100] And the image can be loaded from the internet via bay-peg: load http://www.rebol.com/view/bay.jpg view layout [image bay-peg 500x423] and the better version might be to use the REBOL caching capability bay-peg: load-thru/binary http://www.rebol.com/view/bay.jpg (Strangely the load and load-thru are different in that load-thru needs the binary refinement otherwise you get a less-than-satisfactory result.) Then after you have retrieved it and stored in your public cache, which you will be asked to agree to per the sandbox model, REBOL will use the cached version... so you can access it without being connected to the internet

I don't think core can process images.

View can load JPGs (and GIFs and PNGs) but the only compressed image format it can save in is PNG. For instant, cut and paste the following five lines into the console... bay: load-thru/binary http://www.rebol.com/view/bay.jpg thumb-size: bay/size / 2 thumb-bay: to-image layout [origin 0x0 image bay thumb-size] save/png %thumb-bay.png thumb-bay view layout [image bay image thumb-bay] and they should save a quarter-sized version of the bay image to disk and then display both versions in a window. Don't be afraid of using PNGs for your thumbnails. As they're a loss-less image format they probably make better thumnails than JPGs.

-- Carl Read

hmm.. Yes this is problem for me too. And it looks like it can only be solved at the moment using installation-demanding external image processing tools [GIMP,ImageMagick, PIL=PythonImagingLibrary, or the excellent commercial MM Fireworks4 ] bay.png = 59kb a good looking JPEG version of same [80%] is only 9kb.. Image compresssion is an art and a science, but lack of any JPEG save control in REBOL/View really concerns me. Typical example: digital video still capture 640x480 BMP averages 240kb. A decent JPEG version of same: 40kb What to do? Are there problems/plans for REBOL/View to support JPEG? Recent loss of DSL service here [Rhythms bankruptcy] has made me painfully aware again of download sizes, and of REBOL's highly aeronautic design! - Jason

For saving ? No, not at this time.

Yes, which is why we did not add a JPEG saver. It would significantly increase the size of the binary. Saving an image as JPEG is rather complicated. It involves color space conversion, DCT, quantizing etc. It might be a good feature for Command though. For Command and Command/View the size of the binary is not as important as for View, because it is not distributed as widely. Same reason why Command has SSL and other binaries don't. There are some ways to reduce the size of saved PNGs even from within REBOL. You could, e.g., quantize the image to less than 24 bits per pixel before saving. -- Holger Kruse [holger--rebol--com]

painfully

Holger, Thanks for your prompt answer. I am curious how many Kb JEPG saver would add? And how others feel about this or some options for it? Adding built-in JPEG /save to REBOL/Command makes a lot of sense: - As server side commercial version, features are surely more way important than disk space / download time. - Server side raelly needs strong JPEG control - Extra incentive for Rebol customers to buy /Command, stronger eparaton of RT products etc Of course it is not _that_ big a deal on web servers to use soem otehr toolkits to do teh JPEG stuff. But not having the feature does lessen the pragmatic scope of REBOL as a distributed technology. Easy image upload/transfer/sharing/conversion is central to so many applications. Just as adding Rebol dialects and functions to handle vector graphics technology: SVG and SWF. One example of scripted vector toolkit is Ming [PHP/Python/Ruby] http://opaque.net/ming/ Trying to do deistributed graphics with REBOl is so tantaliznig. The design philisophy and communcaitions infrasture is there, but the file doformat and highlevel graphics object handling is sorely missing. Weither REBOl has to roll its own, or make it really smooth for people to include other graphic libraries and formats. This would be be positive change I think and help speed REBOL's growth.

Thanks. I 'll do some tests on these. - Jason

Sigh - I hadn't checked the file size...

-- Carl Read

It's probably not what you want, but this simple photoalbum app generates thumbnails as you call it. It's unacceptable on a slow computer though. REBOL [ Title: "Thumbnail creator / photoalbum" Date: 24-Oct-2001 Author: "Marcus Petersson" File: %thumbnail.r ] to-thumbnail: func [ img [image! file!] tsize [pair! integer!] "Size or height" /local sx sy y ] [ y: integer? tsize tsize: to-pair tsize img: load img either image? img [ sx: img/size/x / to-decimal tsize/x sy: img/size/y / to-decimal tsize/y sx: img/size / either y [sy] [max sx sy] layout [img: image img sx] ] [ layout [img: image tsize black] ] to-image img ] photoalbum: func ["View pictures using thumbnails" images [block!] "Block of filenames" tsize [pair! integer!] "Thumbnail size" /local l thumbs im width ] [ width: 0 thumbs: copy [origin 1x1 space 2x2 backcolor white across] l: length? images repeat i l [ append thumbs compose/deep [ image (im: to-thumbnail images/:i tsize) (to-string last split-path pick images i) [ im: pick images (i) if error? try [rv im] [print ["Cannot display" im]]] ] width: width + im/size/x if width > (system/view/screen-face/size/x / 2) [ width: 0 append thumbs 'return] ] view/new layout thumbs do-events ] rv: func [f [file! word! image!] b [block! unset!] /local t] [ any [value? 'b b: copy []] insert b [origin 0x0 pad 1x1 image #"q" [unview] f] either image? f [t: ""] [t: f f: load f] view/new/title layout b reform [t mold to-paren f/size] ] help photoalbum photoalbum request-file 80 halt Marcus ------------------------------------ If you find that life spits on you calm down and pretend it's raining

Uhm, no. :-) Marcus ------------------------------------ If you find that life spits on you calm down and pretend it's raining