- 积分
- 11
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-4-30
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2014-5-6 15:57:05
|
显示全部楼层
補上原始帖子
'reinit'
'set display color white'
'set t 9'
*t='00 06 12 18 24 30 36 42 48'
*ntot is 9 forcast time (00,06,12,18,24,30,36,42,48)
ntot=9
fcsthc='00 06 12 18 24 30 36 42 48'
fcsth=subwrd(fcsthc,9)
dtg=12061800
var=phi
*-------------------------------------first page
'set vpage 0.0 8.5 5.5 11.0'
'set parea 1.0 8.0 6.0 11.0'
'run up.gs'
'set grads off'
'set vpage off'
'draw string 2.5 10.2 pi 'fcsth' 'dtg' '
*-------------------------------------second page
'set vpage 0.0 8.5 0.0 5.5'
'set parea 1.0 8.0 0.5 5.5'
'run down.gs'
'set grads off'
'set vpage off'
'draw string 2.5 5.2 pi 'fcsth' 'dtg' '
'printim IMG_'fcsthc'.png white'
|
|