- 积分
- 10436
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-29
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
'open e:/data/model.ctl'
'set t 1'
type=cro( varb1,pts,lev1,lev2,type,scnd,ps,cld.gs,shd.gs,shd)
'define ps =ps/1.0'
varb1='t'
pts = '3 120 58 140 18 150 -22'
lev1 = 1000 ; lev2 = 300
type = 2
scnd = 0
shd =0
rec = write(shd.gs, "'set cint 5';'set rbcols 1 2 3 4 5 6 7 8 9 10 11 12';");
rec = close(shd.gs);
*----- isoline decorations defination in here ----------
rec=write(cld.gs,"'set ccolor 2';'set cthick 6';");
rec = close(cld.gs);
;
function cro( varb,pts,lev1,lev2,type,scnd,psr,cld,shdgs,shd)
.....
if(shdgs != 'shdgs' ) 后面带有引号的shdgs代表的是字符串还是shdgs这个变量所代表的值呢?
shdgs
endif
'set gxout contour'
*---- contour line decorations --------
say 'cld==== 'cld
if( cld != 'cld' & cld != '')
cld
endif
|
|