• SexyMapApp

{{{tell application "Finder" to set homePath to (home as string)

tell application "Adobe Photoshop CS"

• activate

  open (homePath & "Desktop:bikemap.pdf" as alias) crop current document bounds {46, 72, 1276, 1220} make new art layer at beginning of current document ¬

  • with properties {name:"MarkerLayer", blend mode:normal}

  set selShape to "Elps" -- "Rctn" set selTop to 100.0 set selLeft to 100.0 set selBottom to 140.0 set selRight to 140.0 set antiAlias to true set featherAmt to 0.0 do javascript ("function makeEllipseSelection(selShape, selTop, selLeft, selBottom, selRight, antiAlias, featherAmt) {

  • var selectionChannel = new ActionReference();

    • selectionChannel.putProperty( charIDToTypeID( \"Chnl\" ), charIDToTypeID( \"fsel\" ) );

    var makeSelection = new ActionDescriptor();

    • makeSelection.putReference( charIDToTypeID( \"null\" ), selectionChannel );

    var selectionParameters = new ActionDescriptor();

    • selectionParameters.putUnitDouble( charIDToTypeID( \"Top \" ), charIDToTypeID( \"#Pxl\" ), selTop ); selectionParameters.putUnitDouble( charIDToTypeID( \"Left\" ), charIDToTypeID( \"#Pxl\" ), selLeft ); selectionParameters.putUnitDouble( charIDToTypeID( \"Btom\" ), charIDToTypeID( \"#Pxl\" ), selBottom ); selectionParameters.putUnitDouble( charIDToTypeID( \"Rght\" ), charIDToTypeID( \"#Pxl\" ), selRight ); makeSelection.putObject( charIDToTypeID( \"T \" ), charIDToTypeID( selShape ), selectionParameters ); makeSelection.putUnitDouble( charIDToTypeID( \"Fthr\" ), charIDToTypeID( \"#Pxl\" ), featherAmt ); makeSelection.putBoolean( charIDToTypeID( \"AntA\" ), antiAlias );

    executeAction( charIDToTypeID( \"setd\" ), makeSelection, DialogModes.NO );

  } makeEllipseSelection( arguments[0] , arguments[1] , arguments[2] , arguments[3] , arguments[4] , arguments[5] , arguments[6] );") ¬
  • with arguments {selShape, selTop, selLeft, selBottom, selRight, antiAlias, featherAmt}
  fill selection of current document with contents ¬
  • {class:RGB color, red:81, green:172, blue:205} blend mode ¬ vivid light opacity 90 without preserving transparency
  resize image current document width 450

  save current document in (homePath & "Desktop:pdx.png") as PNG quit

end tell

on geoToPixel(latitude, longitude)

• -- Burnside Bridge 45.523 -122.667 -- Pioneer Square 45.519 -122.686 -- Map Pixel Center 520, 647

end geoToPixel}}}