%let name=icecore; filename odsout '.'; /* Reduce the size of the world map, and get rid of some of the islands */ data world; set mapsgfk.world (where=((density<=2) and (segment<=3)) drop=resolution); run; data mydata; set mapsgfk.world_attr; colorvar=1; length myhtmlvar $400; myhtmlvar='title='||quote(trim(left(idname))); run; data anno_markers; input latdeg latmin latdir $ 10-10 longdeg longmin longdir $ 21-21 countryname $ 23-39 name $ 40-80; size=4.5; lat= (latdeg + (latmin/60)); if latdir eq 'S' then lat=lat*-1; long=(longdeg + (longmin/60)); if longdir eq 'W' then long=long*-1; datalines; 43 5 N 109 36 W United States Fremont Glacier 60 36 N 140 36 W Canada Mt. Logan 67 18 N 66 48 W Canada Penny Ice Cap 75 0 N 89 0 W Canada Devon Ice Cap 80 42 N 73 6 W Canada Agassiz Ice Cap 77 12 N 61 6 W Greenland Camp Century 75 6 N 42 19 W Greenland North Greenland Ice Core Project (NGRIP) 72 35 N 37 38 W Greenland Greenland Ice Core Project (GRIP) 70 18 N 44 36 W Greenland Milcent 66 24 N 46 12 W Greenland Dye 2 65 54 N 46 18 W Greenland Site J 65 12 N 43 48 W Greenland Dye 3 72 36 N 38 30 W Greenland GISP2 (B Core) 72 18 N 38 0 W Greenland Station 8922 (Cathy) 72 36 N 34 36 W Greenland Station 8928 (Julie) 71 6 N 37 18 W Greenland Crete 72 18 N 40 30 W Greenland Station 8938 (Klinck) 71 54 N 36 0 W Greenland GISP2 Snowpit Site 57 79 48 N 24 6 E Svalbard Austfonna 78 42 N 17 36 E Svalbard Lomonosovfonna 0 18 N 37 18 E Kenya Lewis Glacier 3 6 S 37 18 E Tanzania Kilimanjaro 9 0 S 77 30 W Peru Navado Huascaran 13 54 S 70 48 W Peru Quelccaya Ice Cap 18 0 S 69 0 W Bolivia Sajama 42 12 N 80 18 E Kyrgyzstan Inilchek Glacier 35 17 N 81 29 E China Guliya Ice Cap 38 6 N 96 24 E China Dunde Ice Cap 28 24 N 85 42 E China Dasuopu Glacier 28 0 N 86 54 E Nepal East Rongbuk Glacier 80 0 S 119 30 W Antarctica Byrd 81 42 S 148 48 W Antarctica Simple Dome 77 48 S 158 42 E Antarctica Taylor Dome 66 42 S 112 48 E Antarctica Law Dome 75 6 S 123 0 E Antarctica EPICA Dome C 75 0 S 0 4 E Antarctica Dronning Maud Land (Kohnen) 77 18 S 39 42 E Antarctica Fuji Dome 79 0 S 107 0 E Antarctica Vostok Station 43 36 S 170 10 E New Zealand Tasman Glacier 64 38 N 17 39 W Iceland Bárđarbunga 61 24 N 6 36 E Norway Jostedalsbreen Glacier 46 34 N 8 20 E Switzerland Rhône Glacier 49 48 N 86 36 E Siberian Altai Belukha Glacier ; run; /* convert degrees to radians */ data anno_markers; set anno_markers; anno_flag=2; run; data combined; set world anno_markers; run; proc gproject data=combined out=combined latlong eastlong degrees dupok project=gall; id id; run; data world anno_markers; set combined; if anno_flag=2 then output anno_markers; else output world; run; data anno_markers; set anno_markers; length function $8 style $35 color $8 text $20 html $500; xsys='2'; ysys='2'; hsys='3'; when='a'; html= 'title='||quote('Core location: '||trim(left(name))||', '||trim(left(countryname)))|| ' href="http://www.google.com/search?q='||trim(left(name))||'+'||trim(left(countryname))||'+ice+cap+core+drilling"'; function='label'; position='5'; y=y+.09; size=6; color='blue'; text='e1'x; style="webdings"; run; data anno_img; length function $8; xsys='3'; ysys='3'; hsys='3'; when='A'; html='title="Antarctic Connection" href="http://www.antarcticconnection.com/antarctic/science/stationlife.shtml" '; /* http://www.antarcticconnection.com/antarctic/science/stationlife.shtml */ function='move'; x=2; y=16; output; function='image'; x=x+25; y=y+30; imgpath='icecore_pic.jpg'; style='fit'; output; run; goptions device=png; goptions border; goptions cback=white ctext=navy; goptions xpixels=900 ypixels=650; ODS LISTING CLOSE; ODS HTML path=odsout body="&name..htm" (title="Ice Core Drilling Map") style=htmlblue; goptions htitle=5pct ftitle="albany amt" htext=3pct ftext="albany amt"; pattern1 color=cxeff7ff; title1 color=graybb box=1 bcolor=cxeff7ff justify=left color=blue link="http://www.ncdc.noaa.gov/paleo/icecore.html" "Ice Core Drilling Research"; proc gmap data=mydata map=world anno=anno_markers; id id; choro colorvar / coutline=graybb nolegend discrete anno=anno_img html=myhtmlvar des='' name="&name"; run; quit; ODS HTML CLOSE; ODS LISTING;