- 积分
- 64
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-3-13
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2012-3-13 20:27:15
|
显示全部楼层
数据为50*53的格点,按照不同颜色给出相应位置的标记,如1 2 3,这步在excel中实现,用for转换成二进制数据,并配置相应ctl文件。
******************
dset f:\hello.bin
undef -999.0
options yrev
xdef 50 linear 0 1
ydef 53 linear 0 1
zdef 1 levels 500
tdef 1 linear 01jan1980 1dy
vars 1
h 0 99 h
ENDVARs
*********************
'reinit'
rc=mycolor()
'enable print f:\hello.gmf'
'open f:\hello.ctl'
'set x 1 50'
'set y 1 53'
'set grads off'
'set grid off'
'set xlab off'
'set ylab off'
'set mpdraw off'
'set frame on'
*这里开始根据数据填色
'set gxout fgrid'
'set fgvals 1.0 1 2.0 8 3.0 22 4.0 21 5.0 24'
'd h'
*这里画向日葵上的line
lon=39
lat=27
'q w2xy 'lon' 'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=43
lat=23
'q w2xy 'lon' 'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=37
lat=25
'q w2xy 'lon' 'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=41
lat=21
'q w2xy 'lon' 'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=37
lat=23
'q w2xy 'lon' 'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=43
lat=27
'q w2xy 'lon' 'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
lon=38
lat=21
'q w2xy 'lon' 'lat' '
x01=subwrd(result,3)
y01=subwrd(result,6)
lon=44
lat=25
'q w2xy 'lon' 'lat' '
x02=subwrd(result,3)
y02=subwrd(result,6)
'set line 1 1 12'
'draw line 'x01' 'y01' 'x02' 'y02''
'print'
'disable print'
'reinit'
*这里就相当于是十字绣里的配线颜色啦
function mycolor()
'set rgb 21 0 128 128'
'set rgb 22 255 255 0'
'set rgb 23 141 0 255'
'set rgb 24 238 106 167'
return(0) |
|