Dear all,
I wrote IDL code to visualize a Libyan map using Coyote Graphics
routines as follows
????????????
pro Libyan_map
Device, Decomposed=0, Get_Decomposed=currentColorModel
Window, /Free, XSize=500, YSize=600
data=fltarr(3,33)
f='C:\Documents and Settings\libyan_station.prn'
openr,lun,f,/get_lun
readf,lun,data
free_lun,lun
lat = reform(data[0,*])
lon = reform(data[1,*])
elev = reform(data[2,*])
;?????????????????????????
TVLCT, FSC_Color(soil_colors, /Triple), 1
Erase, Color=FSC_Color('white')
map_set, /cylindrical, 0,0, limit=[19,08,38,28],/continent,/grid, $
/NoErase, Position=[0.1, 0.1, 0.8, 0.9] ; mercator ;
cylindrical
cgText,380,250,/device, 'Egypt', CHARSIZE=1.5,font=1,ORIENTATION=90.0
cgText, 200,300,/device, 'Libya', CHARSIZE=1.5,font=1,ORIENTATION=0.0
cgText, 350,75,/device, 'Sudan', CHARSIZE=1.5,font=1,ORIENTATION=45.0
cgText, 200,100,/device, 'Chad',
CHARSIZE=1.5,font=1,ORIENTATION=0.0
cgText, 100,100,/device, 'Niger',
CHARSIZE=1.5,font=1,ORIENTATION=0.0
cgText, 70,250,/device, 'Algeria',
CHARSIZE=1.5,font=1,ORIENTATION=90.0
cgText, 60,420,/device, 'Tunisia',
CHARSIZE=1.5,font=1,ORIENTATION=45.0
cgText, 125,450,/device, 'The Mediterranean Sea',
CHARSIZE=1.5,font=1,ORIENTATION=0.0
cgText, 150,20,/device, 'Longitude',
CHARSIZE=1.5,font=1,ORIENTATION=0.0
cgText, 25,300,/device, ' Latitude',
CHARSIZE=1.5,font=1,ORIENTATION=90.0
soil_colors = ['purple', 'dodger blue', 'dark green', 'lime green', $
'green yellow', 'yellow', 'hot pink', 'crimson']
SOILC = fltarr(n_elements(lat))
TVLCT, FSC_Color(soil_colors, /Triple), 1
soilc_colors = BytScl(soilc, Top=7) + 1B
for i = 0, n_elements(lat)-1 do begin
PlotS, lon(i)/1000., lat(i)/1000., PSym=SymCat(15),
Color=soilc_colors, SymSize=0.5
endfor
map_continents,/coasts,/countries, Color=FSC_Color('charcoal')
Map_Grid,/box, Color=FSC_Color('charcoal')
Device, Decomposed=currentColorModel
end
???????????
I had got a nice map and I would like to save it in a pdf or eps
file for using later.
could you please tell, how I can do this?
thanks
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
