Skip to content

Instantly share code, notes, and snippets.

View frankydp's full-sized avatar

f5711 frankydp

View GitHub Profile
@frankydp
frankydp / gist:69eb6477148519b6e39a
Created April 21, 2015 19:17
Demo of US Parcel Layer Leaflet
function demoParcels() {
var ckey = "FVv7W5Az99"
var tileurl = "reportallusa.com/dyn/tile.py"
var tile_map_url = tileurl + "?map=siteroot/Base_Layers.map&layer=Parcels&mode=tile&tilemode=gmap&tile=${x}+${y}+${z}&client=" + ckey;
new L.TileLayer(tile_map_url).addTo(map)
}
@frankydp
frankydp / gist:d3a7488582f303874fe6
Created April 21, 2015 13:57
North America Bounding Box
-178.2,6.6,-49.0,83.3
@frankydp
frankydp / singleTutorialHook
Created April 21, 2015 13:25
ShepardJS event bind to only have one tutorial open at a time.
var tutorialMaster = [
"tutorialOne",
"tutorialTwo",
"tutorialThree"
];
function closeOtherTutorials () {
for (tut in tutorialMaster) {
window[tutorialMaster[tut]].cancel() //Or however you track your tutorials.
}
@frankydp
frankydp / animationStripper
Last active August 29, 2015 13:59
Remove all animations from a powerpoint deck
Sub StripAllBuilds()
Dim I As Integer: Dim J As Integer
Dim oActivePres As Object
Set oActivePres = ActivePresentation
With oActivePres
For I = 1 To .Slides.Count
If Val(Application.Version) < 10 Then
' Older versions of PowerPoint 97/2000
' In each slide set the animation property
' of the Shape object to FALSE