Sexy Map Application

Code

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

set pdxSpotList to (homePath & "Desktop:spots.xls") set pdxMapOriginal to (homePath & "Desktop:bikemap.pdf" as alias) set resultGraphic to (homePath & "Desktop:pdx.png")

set myList to {}

tell application "Microsoft Excel"

• Open pdxSpotList set myRow to 1 repeat
  • set tuple to {} repeat with myColumn from 1 to 3

    • set currentCell to "R" & myRow & "C" & myColumn as string set cellText to text of Cell currentCell if cellText is "" then exit repeat set end of tuple to cellText

    end repeat if cellText is "" then exit repeat set end of myList to tuple set myRow to myRow + 1
  end repeat Quit

end tell

tell application "Adobe Photoshop CS"

• activate open pdxMapOriginal set maxX to 0 set maxY to 0 set minX to 2000 set minY to 2000 repeat with z in myList
  • set spotName to item 1 of z set x to item 2 of z set y to item 3 of z if x is greater than maxX then set maxX to (x + 20) if y is greater than maxY then set maxY to (y + 20) if minX is greater than x then set minX to (x - 20) if minY is greater than y then set minY to (y - 20) make new art layer at beginning of current document ¬
    • with properties {name:spotName, blend mode:normal}
    set selShape to "Elps" -- "Rctn" set selTop to y - 20 set selLeft to x - 20 set selBottom to y + 20 set selRight to x + 20 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
  end repeat

  display dialog "minX: " & minX & " miny: " & minY & " maxX: " & maxX & " maxY: " & maxY crop current document bounds {minX, minY, maxX, maxY} -- {46, 72, 1276, 1220} -- resize image current document width 450 -- save current document in resultGraphic as PNG with copying

end tell

Data