Richard P. Grant <rpg14[at]yahoo.co.uk.invalid> wrote:

> In article <mark-B4A31E.20030118062003[at]corp.supernews.com>,
> Mark Drayton <mark[at]JUNKTHISBITmir.stevecole.org> wrote:
>
> > I always take photos at the highest resolution possible with my camera
> > (1600x1200) which is much too big for use on the Internet. It'd be nice
> > to be able to just bump them down to 640x480 or so without firing up
> > Photoshop or using "djpeg imag.jpg | pnmscale 0.5 | cjpeg > new.jpg" all
> > the time.
>
> A.N.Other suggested the 'export' function, which would be my way of
> doing it, but I once had a dragondrop applescript somewhere that did it,
> too.

Ah yes, from the Apple website. Used ImageCapture Helper or something
like that.

-z-

--
"I'm not sure how useful this is, but it's bloody clever."
- Jonathon Sanderson in uk.comp.sys.mac
Are you posting responses that are easy for others to follow?
http://www.greenend.org.uk/rjk/2000/06/14/quoting

zoara <me3[at]privacy.net> wrote:

> Richard P. Grant <rpg14[at]yahoo.co.uk.invalid> wrote:
>
> > In article <mark-B4A31E.20030118062003[at]corp.supernews.com>,
> > Mark Drayton <mark[at]JUNKTHISBITmir.stevecole.org> wrote:
> >
> > > I always take photos at the highest resolution possible with my camera
> > > (1600x1200) which is much too big for use on the Internet. It'd be nice
> > > to be able to just bump them down to 640x480 or so without firing up
> > > Photoshop or using "djpeg imag.jpg | pnmscale 0.5 | cjpeg > new.jpg" all
> > > the time.
> >
> > A.N.Other suggested the 'export' function, which would be my way of
> > doing it, but I once had a dragondrop applescript somewhere that did it,
> > too.
>
> Ah yes, from the Apple website. Used ImageCapture Helper or something
> like that.

"ImageCapture Scripting"

Anyway, it *should* be ~/Library/Scripts/rotate image, but if not, try
this:


---------------- cut here ----------------
(*
Rotate images in either direction
*)

on run
display dialog "Please drop a file on this script." buttons
{"OK"} default button 1
end run

on open theSelection
activate
display dialog "rotate image 90° in which direction?" default
button 3 buttons {"Cancel", "Anticlockwise", "Clockwise"}
copy the result to direction

repeat with thisFile in (theSelection as list)
tell application "Image Capture Extension"
set newImage to open thisFile
if direction is {"Clockwise"} then
«event icasrota» newImage given «class
angl»:90
display dialog "Rotated clockwise"
buttons {"OK"} default button 1
else
«event icasrota» newImage given «class
angl»:90
display dialog "Rotated Anticlockwise"
buttons {"OK"} default button 1
end if
save newImage in thisFile
close newImage
end tell
end repeat
end open
---------------- cut here ----------------

Paste it into script editor and save. Done.

-z-

--
"I'm not sure how useful this is, but it's bloody clever."
- Jonathon Sanderson in uk.comp.sys.mac
Are you posting responses that are easy for others to follow?
http://www.greenend.org.uk/rjk/2000/06/14/quoting