- 积分
- 10703
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-11-22
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'reinit'
rc = gsfallow("on")
nrows=4
ncols=1
args=nrows%' '%ncols
'open f:\slp\slp.ctl'
*取消经纬比例自动调整
'set mproj scaled'
panels(args)
*p 表示当前所在的虚页是第几个虚页
p = 1
*ptot表示总共的虚页数量
ptot = nrows * ncols
*按panel循环并画图
while (p <= ptot)
*设置第p个虚页
_vpg.p
'set grads off'
'set grid off'
'set xlopts 1 6 0.15'
'set ylopts 1 6 0.15'
'set ccolor 1'
'set cthick 6'
'set cint 0.5'
'set gxout shaded'
'set clevs 0 1'
'set rgb 17 220 220 220'
'set ccols 0 17 '
'set t 'p
'd t'
'set gxout contour'
'd shu'
p=p+1
endwhile
'set vpage off'
'gxprint f:\slp\slp.png white'
;
使用的是清风在论坛里发的一页多图的gs,不知道什么原因发生了地图变形 谢谢大家指导了
|
|