Has anyone gotten this to work? I get the error "Can't make some data into the expected type".
set factor to 0.5 set f to "Desktop:chart1.gif" set newf to "Desktop:Scans ƒ" set {x, y} to (image info for f)'s {pixel width, pixel height} set w to make new graphic window with properties {pagewidth:x * factor, pageheight:y * factor} BeginFigure(w) DrawImage(f, {0, 0, x * factor, y * factor}, "") EndFigure() save w in newf
On May 4, 2012, at 6:03 PM, Emmanuel LEVY wrote: My pleasure... Assume you've got the original file f, and you want to save a reduced copy into newf: set factor to 0.5 set {x, y} to (image info for f)'s {pixel width, pixel height} set w to make new graphic window with properties {pagewidth:x * factor, pageheight:y * factor} BeginFigure(w) DrawImage(f, {0, 0, x * factor, y * factor}, "") EndFigure() save w in newf delete w Be sure to provide the correct file extension to newf, that's how you select the image format. Emmanuel On May 5, 2012, at 1:42 AM, Christopher Stone wrote: On May 04, 2012, at 11:46, Emmanuel LEVY wrote:
We can provide a short script for Smile...
______________________________________________________________________
Hey Emmanuel,
Please do. :)
--
Take Care,
Chris
Robert Poland - Fort Collins, CO
|