Hi~ everyone. This the the part of my program. The data is all right
here, But when I run it , the number of my color bar and the grids
does not show right. (Like letter or something ) Why is that? Anyone
can help?
Thank you
device, decomposed=0,retain=2
window,1,xsize=np,ysize=nl+10
;define the display window
!P.background=FSC_Color('Gray')
dd=fltarr(np,nl+10,3)
dd(*,*,*)=255
tv,dd,true=3
r=[255,255,000,204,000,153,102,051,204,051,051,102,051,000,1 02,051,102,051,000,102]
g=[255,102,102,153,204,102,000,204,255,000,051,000,051,000,0 00,051,000,000,051,051]
b=[255,153,102,102,102,204,051,204,051,153,051,102,102,204,0 51,000,000,153,051,000]
tvlct,r,g,b
class='!20!b'+
['0','1','2','3','4','5','6','7','8','9','10','11','12','13' ,'14','15','16','17','18','19','20']
xxx=indgen(20)*40
yyy=[nl, nl, nl,nl, nl,nl,nl, nl, nl,nl, nl,nl,nl, nl, nl,nl,
nl,nl,nl, nl, nl,nl, nl,nl]
lat_min=-35.3
lat_max=-28.1
lon_min=113.64
lon_max=122.14
;defind the max and min latitude and longtitude of the data area
map=MAP_PROJ_INIT('Polar Stereographic',/
GCTP,center_longitude=117.89,center_latitude=-31.7,limit=[la t_min,lon_min,lat_max,lon_max])
r= MAP_PROJ_FORWARD([lon_min,lon_max],[lat_min,lat_max],/
fill,MAP_STRUCTURE=map)
result=map_proj_image(percumulus,
[lon_min,lat_min,lon_max,lat_max],MAP_STRUCTURE=map,missing= 0)
;display the data to the map
pos = [0.05, 0.05, 0.95, 0.95]
tvimage,result, position=pos,/KEEP_ASPECT,/tv,order=1
Plot, [r[0,0],r[0,1]], [r[1,0], r[1,1]], Position=pos,/Nodata,
XStyle=5, YStyle=5, /NoErase
MAP_GRID,/label,linestyle=0, map_structure=map,
color=FSC_Color('black'),glinethick=2,charthick=2,charsize=2
; Draw gridlines over the map
MAP_CONTINENTS, map_structure=map,
color=FSC_Color('black'),mlinethick=2
; Draw continent outlines:
for i=0, 19 do begin
plots,[xxx(i), xxx(i)+40], [yyy(i), yyy(i)], color=i, thick=20,/
device
xyouts, xxx(i), nl-20,
class(i),charsize=2,charthick=1.5,color=35,/device
endfor
;second step to draw a color bar
Write_Jpeg, 'percumulus2006.jpg', tvrd(true=1), true=1
|