- 积分
- 1664
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-7-18
- 最后登录
- 1970-1-1

|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我的图片
希望的效果
各位高手:
我在用国家气候中心160个站点画图时,做法和论坛上的做法一样了,可出来的图形背景色和绘图区域颜色一样了。且中国陆地边界以外也有一些等值线。我画出的图和希望得到的效果如图所示。
谢谢大家。我把源代码向大家公开,请大家帮我检查一下。谢谢大家!
rain.gs文件下如:
'reinit'
'open D:\gen_fortran\r160\grid.ctl'
'open D:\gen_fortran\r160\rain2.ctl'
'set poli on'
'set lon 73 135'
'set lat 15 55'
'set mpdset hires cnworld'
'set display color white'
'set t 714'
'set grads off'
'set grid off'
'define a=oacres(g,r.2,1.5)'
'define a1=maskout(a,g-0.3)'
'define aa=smth9(a1)'
'set gxout shaded'
*'set black 0 5'
'set clevs 10 25 50 100 150 200'
'set ccols 15 5 4 3 7 8 0'
*set ccols 0 8 7 3 6 4'
*'set black vlow vhigh'
'd aa'
'cbarn 1 0'
'set gxout contour'
'set clab forced'
'd aa'
'q gxinfo'
lb = sublin(result,3)
lc = sublin(result,4)
x0 = subwrd(lb,4)
y0 = subwrd(lc,4)
'q w2xy 70 15'
x1 = subwrd(result,3)
y1 = subwrd(result,6)
'q w2xy 80 28'
x2 = subwrd(result,3)
y2 = subwrd(result,6)
dx = x2 - x1
dy = y2 - y1
'set mpdset lowres'
'set lon 105 123'
'set lat 0 23'
'set vpage 0 11 0 8.5'
'set parea 'x0+0.05' 'x0+0.05+dx' 'y0+0.05' 'y0+0.05+dy
'set grads off'
'set line 0'
'draw recf 'x0+0.05' 'y0+0.05' 'x0+0.05+dx' 'y0+0.05+dy
'set line 1'
'draw rec 'x0+0.05' 'y0+0.05' 'x0+0.05+dx' 'y0+0.05+dy
'set map 15'
'set grid on'
'draw map'
'printim D:\gen_fortran\r160\rain2.png x800 y600 white'
;
|
|