Pensieve header: Mapping the location of pictures.

SetDirectory["C:\\drorbn\\AcademicPensieve\\Album"]

dirs=Complement[Select[FileNames["*"], FileType[#]===Directory&], {"Dreams", "nb", "thumbs"}]

Short[images=StringReplace["\\"->"/"]/@FileNames["*.jpg"|"*.png",dirs],5]

pos=Import[images[[200]], "GeoPosition"]

100 (3^9)

Module[{M=2000,m=0.05,K=12},
Table[GeoGraphics[pos, GeoRange->1000M((((m/M)))^(k/(K-1)))],{k,0,K-1}]
]