🚀 go-pugleaf

in article ef920b5.-1@WebX.aaQKaf7vad4, john chu wrote:

> I�m kind of new with Photoshop. Dose the cropping only do rectangular? Is it
> possible to crop a circle in an image?

Wrong place to ask, but what the heck. AppleScript and VB only support
rectangular cropping, but you can use either to call javascript to do the
job. For example:

set theScript1 to "var id10 = charIDToTypeID( \"setd\" );
 var desc4 = new ActionDescriptor();
 var id11 = charIDToTypeID( \"null\" );
  var ref1 = new ActionReference();
  var id12 = charIDToTypeID( \"Chnl\" );
  var id13 = charIDToTypeID( \"fsel\" );
  ref1.putProperty( id12, id13 );
 desc4.putReference( id11, ref1 );
 var id14 = charIDToTypeID( \"T   \" );
  var desc5 = new ActionDescriptor();
  var id15 = charIDToTypeID( \"Top \" );
  var id16 = charIDToTypeID( \"#Pxl\" );
  desc5.putUnitDouble( id15, id16, "
set theScript2 to " );
  var id17 = charIDToTypeID( \"Left\" );
  var id18 = charIDToTypeID( \"#Pxl\" );
  desc5.putUnitDouble( id17, id18, "
set theScript3 to " );
  var id19 = charIDToTypeID( \"Btom\" );
  var id20 = charIDToTypeID( \"#Pxl\" );
  desc5.putUnitDouble( id19, id20, "
set theScript4 to " );
  var id21 = charIDToTypeID( \"Rght\" );
  var id22 = charIDToTypeID( \"#Pxl\" );
  desc5.putUnitDouble( id21, id22, "
set theScript5 to " );
 var id23 = charIDToTypeID( \"Elps\" );
 desc4.putObject( id14, id23, desc5 );
 var id24 = charIDToTypeID( \"AntA\" );
 desc4.putBoolean( id24, true );
executeAction( id10, desc4, DialogModes.NO );
"

tell application "Adobe Photoshop 7.0"
 tell settings
  set ruler units to pixel units
 end tell
 tell current document
  set theWidth to width
  set theheight to height
 end tell
 activate
 do javascript (theScript1 & "0" & theScript2 & "0" & theScript3 &
(theheight as text) & theScript4 & (theWidth as text) & theScript5) show
debugger before running
end tell

-- 
Shane Stanley,  sstanley@myriad-com.com.au