• SexyMapApp

Sexy Map Application

Overview

I'm [http://www.personaltelco.net/static/node/ playing with map making] to visually explain PersonalTelco's coverage around PortlandOregon. I'm mostly interested in making the map look sexy. I'm using the [http://www.trans.ci.portland.or.us/bicycles/bikemap.pdf City of Portland Office of Transportation Bike Map] as a starting point. I grabbed a few tools on my AppleMacintosh that are simple to play with by hand and then started automating parts. I'm using AppleScript because it's been a while and I am curious where it's at these days. --DarrinEden

To Do

• The downtown cluster is too blobby making it hard to pick any one spot. It also implies way more coverage than there really is.
  • Partial: reduce spot radius
• Automate the imagemap portion of the process.
  • Partial: 2d compensation

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 dotRadius to 12 set resultWidth to 450 set cropX to 19 set cropY to 248

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 1500 set minY to 1500 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 + dotRadius) if y is greater than maxY then set maxY to (y + dotRadius) if minX is greater than x then set minX to (x - dotRadius) if minY is greater than y then set minY to (y - dotRadius) 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 - dotRadius set selLeft to x - dotRadius set selBottom to y + dotRadius set selRight to x + dotRadius 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 {cropX, cropY, 918, 1254} -- {minX, minY, maxX, maxY} -- resize image current document width resultWidth -- save current document in resultGraphic as PNG with copying

end tell

tell application "TextEdit"

• set imageMapText to "" set scaleX to 889 set scaleY to 1006 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 set x to round ((x - cropX) * (resultWidth / scaleX)) set y to round ((y - cropY) * ((resultWidth / scaleX) * scaleY) / scaleY) set x to x - 3 set y to y - 4

    set AppleScript's text item delimiters to " " set stringParts to text items of spotName set AppleScript's text item delimiters to "" set spotName to stringParts as text

    set imageMapText to imageMapText & "<area shape=\"circle\" alt=\"" & spotName & "\" coords=\"" & x & "," & y & "," & (round ((dotRadius + 3) / 2)) & "\" href=\"#" & spotName & "\">" & return

  end repeat set text of document 1 to imageMapText

end tell

Data

CategorySoftware